اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. الساعة الأخيرة
  2. هذا البرنامج مع الكود يا ريت تجربه وتعدل على الكود للدخول مباشرة الى واتس اب ويب @Foksh CONTACT 2025 (1).accdb
  3. اخي فؤاد المحترم تم تجربة الكود وهو شغال تمام لكن هناك ملاحظة اتمنى تأخذها بعين الاعبار بدل ظهور خطوتين حتى نصل للواتس اب ويب يا رييت لو يدخل مباشرة على واتس اب ويب
  4. Today
  5. اعتقد يريد شبيه هذا تطبيق على مثال من عمل اخونا @jjafferr مثال2.rar
  6. السلام عليكم احبتي .. احاول جلب تاريخ من جدول tbl2 بما يماثله من جدول tbl1 داخل الاستعلام ولكنه لا يستجيب ايضا حاولت جلبه من خلال رسالة في النموذج ولكنه لا يستجيب حاولت مرارا وتكرارا .. عجيب جدا .. شروط الدالة صحيحة ، وايضا المكتبات صحيحة قد تكون المشكلة عندي فقط .. لذا اعرضه عليكم d8.rar
  7. جزاك الله خيرا وبارك فيك ابا احمد سوف اعمل عليه .. واطوع الاستعلامات لاستخراج ما اريد
  8. اخوي الكريم @Foksh الاكواد شغالة تمام -- لكن كود الواتس اب لما يفتح التطبيق لا يفتح حسب الرقم الذي تم اختياره اريد فتح التطبيق وفتح دردشة مع نفس الرقم الذي اخترناه من اكسس جزاكم الله خيرا
  9. تم تتقيح الأكواد. تم حذف الاستعلام qryAddMissingEmps لعدم الحاجة له بعد تنقيح الأكواد. تم حذف الفهرس من حقل UserId للجدول tblAttendanceAll. Attendance_11.rar
  10. السلام عليكم أخي @منتصر الانسي بعد التجربة شغال بامتياز ويؤدي المطلوب على أكمل وجه وبدون مشاكل فكرة ممتازة جزاك الله كل خير وجعلها في ميزان حساناتك. كما أتوجه كذلك بخالص الشكر والامتنان لأخي @Foksh
  11. Yesterday
  12. تحية طيبة أستاذنا الفاضل @ابوخليل معذرة على التأخر في الرد بعد التجربة ظهر الخطأ كما في الصورة 1 أستاذنا فيما يخص الفلترة: عند القيام بعملية الفلترة يعطينا ترتيب كل طالب وكذا مجموع الطالب حسب ما اخترناه من النموذج السابق عند استعمال العملية count (*) عند القيام بالفلترة يعطيني مجموع الطلاب دائما 1 وفي المثال الموضح في الصورة 1 مجموع الطلاب هو 8 أستاذنا يرجى التأكد كذلك من صحة العلاقة الموجودة في نموذج frm_modul بين الجدولين info_stagiere و modul بين الحقلين ID و id وبارك الله فيك
  13. تم تصحيح مرفقك واضافة دالة منع اغلاق اكسس وعند Taskbar win @منتصر الانسي جرب المرفق تحميل المرفق https://www.mediafire.com/file/w4ro360p6l47rhp/SetFormBackColors_v1.2.rar/file وما اقدر ارفع في الموقع ============================================================( تجربة لمشروعك ) انسخ الدالة ونموذج start اضافة الى نموذج الاقلاع فتح نموذج ومخفي DoCmd.OpenForm "start", , , , , acHidden
  14. معلمى الفاصل منتصر انا عامل كود غلق التقرير بعد الطباعة بمعنى يفتح التقرير تظهر الرسالة اختار yes يطبع ويغلق او no يغلق بدون طباعة اين اضع كود فتح التقرير فى الكود اللي حضرتك كتبتة بعد جملة اية حتى احصل علي مااربد شكرا لسعة صدرك
  15. هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة مع تحياتي
  16. يوجد حل غير مباشر ستجده في المرفق مع تحياتي تكبير حجم الخط.rar
  17. استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام
  18. عليكم السلام اخي المحترم (منتصر الانسي) شكرا على المحاوله ولكن ليس هذا المطلوب اذ ارفقت مثال في الصورة حيث ان الاسم مكرر والمطلوب ان لايتكرر الاسم مع الشكر والتقدير
  19. أتفق مع الأستاذ فادي فلا توجد أي طريقة إلا بتمييز إسم الملف بقيمة فريدة لا تتكرر ومن خلال المثال الخاص بك فهذه القيمة هي قيمة الحقل ID عموما قمت بالتعديل على الكود الخاص بمثالك ووضحت ما قمت بتعديله من خلال التعليقات أرجو أن يكون الحل مناسبا لك مع تحياتي baseA.rar
  20. تمت المهمة، ويمكنكم تحسينه إذا احتاج لذلك. مشكلة الحضور لأني غفلت عن وجود وقت مع التاريخ ويفترض أن أتخلص من الوقت باستخدام دالة Fix تجنبت عمليات الحذف والإضافة للسجلات حتى لا تتضخم قاعدة البيانات مع الوقت وكل التحديثات باستخدام التعديل. اختبار جميع الموظفين ليوم واحد عن طريق إجراء Test بتمرير تاريخ معين. ويمكن استخدام دالة موظف واحد لشهر كامل باستدعاء منفصل بإضافتكم لإجراء آخر.
  21. وعليكم السلام ورحمة الله وبركاته ,, فيما يخص الإيميل ، فهذه فكرة بسيطة من خلال النقر على مربع نص الإيميل على سبيل المثال :- Private Sub EMAIL_Click() Dim EmailAdd As String Dim GmailURL As String EmailAdd = Me.EMAIL.Value If Not IsValidEmails(EmailAdd) Then MsgBox "عنوان البريد الإلكتروني غير صالح", vbExclamation + vbMsgBoxRight, "" Exit Sub End If GmailURL = "https://mail.google.com/mail/?view=cm&fs=1&to=" & EmailAdd Application.FollowHyperlink GmailURL End Sub Function IsValidEmails(EMAIL As String) As Boolean Dim regex As Object Set regex = CreateObject("VBScript.RegExp") regex.Pattern = "^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$" regex.IgnoreCase = True IsValidEmails = regex.Test(EMAIL) End Function والطلب الثاني ، وهو فتح واتس أب ويب على دردشة محددة للرقم الذي تم النقر عليه ، حذح محاولتي البسيطة ( مشتقة من أحد ملفاتي سابقاً ) .. Private Sub MOB_Click() Dim WhatsURL As String Dim PhoneNum As String PhoneNum = Me.MOB.Value PhoneNum = CleanPhoneNum(PhoneNum) If PhoneNum = "" Then MsgBox "رقم الهاتف غير صالح", vbExclamation + vbMsgBoxRight, "" Exit Sub End If WhatsURL = "https://wa.me/" & PhoneNum Application.FollowHyperlink WhatsURL End Sub Function CleanPhoneNum(phone As String) As String Dim i As Integer Dim result As String result = "" For i = 1 To Len(phone) If IsNumeric(Mid(phone, i, 1)) Then result = result & Mid(phone, i, 1) End If Next i If Left(result, 2) = "00" Then result = Right(result, Len(result) - 2) ElseIf Left(phone, 1) = "+" Then result = Right(result, Len(result) - 1) End If CleanPhoneNum = result End Function
  22. صراحة معنا بالمنتدى ثلاثة آباء مبهرين @ابوخليل و @ابو جودي و @ابو البشر ما شاء الله الأفكار رائعة والتنفيذ أروع نتعلم منه الكثير ألف شكر لكم وبالتوفيق إن شاء الله مع تحياتي
  23. لا أدري إذا كنت قد فهمت ماتقصده بالضبط ولكن قمت بتعديل ملفك وشاهد إذا كان هو المطلوب او لا مجلد جديد (3).rar
  24. آمين، وبارك الله فيكم، ونفعنا الله بما علمنا
  25. السلام عليكم احبتي الغوالي برنامج بسيط جدا الفكرة كالتالي اقوم بتسجيل اسماء العملاء وارقام الواتس اب والايميل بحيث عندما افتح التقرير اختار عميل وبجرد ان اكبس على رقم هاتفه يحولني البرنامج تلقائيا الى واتس اب ويب على جهازي الكمبيوتر ويفتح لي دردشة مع نفس الرقم الذي اخترته والايميل نفس الفكرة بمجرد ان اكبس على الايميل ينقلني الى جي ميل واراسل البريد الذي اخترته جزاكم الله خيرا مرفق قاعدة البيانات للتطبيق عليها CONTACT 2025.accdb
  1. أظهر المزيد
×
×
  • اضف...

Important Information