كل الانشطه

ههههه جبتها بالصميم أسأل الله حسن الخاتمة .. لكن سؤالي هي ان الحقول تاريخ .. وانت حولتها الى رقم .. مالسبب من امتناع جلبها كتاريخ .. مع اني كنت دوما استخدم ذاك التعبير ويعمل بشكل صحيح DLookup("[date2]", "[tbl2]", "[date2] =#" & Me.text1 & "# And [user_id] ='" & Me.text2 & "'") والحقول فعلا تاريخ وتنسيق الحقول واحد متشابه والآن اكتشفت صحة ملاحظتك بعدم التركيز .. فأزيدك من الشعر بيت .. ان اليوزر في الجدولين مختلف اهلا باخوي الشايب هذه اين يكون مكانها في الاستعلام .. اعتقد يمكن عندما نحول هذه الاسطر الى دالة آمل كرما تشغيل الاستعلام بهذه وارفاقه ..

ماشاء الله يا ابا احمد فكرتي دائما عندما يكون هناك اكثر من معيار يكون سطر لكل معيار اسهل في المراجعة Dim i As Variant Dim strWhere As String strWhere = "[date2] = " & Format(Me.text1, "\#mm/dd/yyyy\#") strWhere = strWhere & " and [usr_id]='" & [text2] & "'" i = DLookup("[date2]", "[tbl2]", strWhere) MsgBox i الشايب

قلة تركيز DLookup_01.accdb

هذا البرنامج مع الكود يا ريت تجربه وتعدل على الكود للدخول مباشرة الى واتس اب ويب @Foksh CONTACT 2025 (1).accdb

اخي فؤاد المحترم تم تجربة الكود وهو شغال تمام لكن هناك ملاحظة اتمنى تأخذها بعين الاعبار بدل ظهور خطوتين حتى نصل للواتس اب ويب يا رييت لو يدخل مباشرة على واتس اب ويب

اعتقد يريد شبيه هذا تطبيق على مثال من عمل اخونا @jjafferr مثال2.rar

السلام عليكم احبتي .. احاول جلب تاريخ من جدول tbl2 بما يماثله من جدول tbl1 داخل الاستعلام ولكنه لا يستجيب ايضا حاولت جلبه من خلال رسالة في النموذج ولكنه لا يستجيب حاولت مرارا وتكرارا .. عجيب جدا .. شروط الدالة صحيحة ، وايضا المكتبات صحيحة قد تكون المشكلة عندي فقط .. لذا اعرضه عليكم d8.rar

جزاك الله خيرا وبارك فيك ابا احمد سوف اعمل عليه .. واطوع الاستعلامات لاستخراج ما اريد

اخوي الكريم @Foksh الاكواد شغالة تمام -- لكن كود الواتس اب لما يفتح التطبيق لا يفتح حسب الرقم الذي تم اختياره اريد فتح التطبيق وفتح دردشة مع نفس الرقم الذي اخترناه من اكسس جزاكم الله خيرا

تم تتقيح الأكواد. تم حذف الاستعلام qryAddMissingEmps لعدم الحاجة له بعد تنقيح الأكواد. تم حذف الفهرس من حقل UserId للجدول tblAttendanceAll. Attendance_11.rar

السلام عليكم أخي @منتصر الانسي بعد التجربة شغال بامتياز ويؤدي المطلوب على أكمل وجه وبدون مشاكل فكرة ممتازة جزاك الله كل خير وجعلها في ميزان حساناتك. كما أتوجه كذلك بخالص الشكر والامتنان لأخي @Foksh

تحية طيبة أستاذنا الفاضل @ابوخليل معذرة على التأخر في الرد بعد التجربة ظهر الخطأ كما في الصورة 1 أستاذنا فيما يخص الفلترة: عند القيام بعملية الفلترة يعطينا ترتيب كل طالب وكذا مجموع الطالب حسب ما اخترناه من النموذج السابق عند استعمال العملية count (*) عند القيام بالفلترة يعطيني مجموع الطلاب دائما 1 وفي المثال الموضح في الصورة 1 مجموع الطلاب هو 8 أستاذنا يرجى التأكد كذلك من صحة العلاقة الموجودة في نموذج frm_modul بين الجدولين info_stagiere و modul بين الحقلين ID و id وبارك الله فيك

تم تصحيح مرفقك واضافة دالة منع اغلاق اكسس وعند Taskbar win @منتصر الانسي جرب المرفق تحميل المرفق https://www.mediafire.com/file/w4ro360p6l47rhp/SetFormBackColors_v1.2.rar/file وما اقدر ارفع في الموقع ============================================================( تجربة لمشروعك ) انسخ الدالة ونموذج start اضافة الى نموذج الاقلاع فتح نموذج ومخفي DoCmd.OpenForm "start", , , , , acHidden

معلمى الفاصل منتصر انا عامل كود غلق التقرير بعد الطباعة بمعنى يفتح التقرير تظهر الرسالة اختار yes يطبع ويغلق او no يغلق بدون طباعة اين اضع كود فتح التقرير فى الكود اللي حضرتك كتبتة بعد جملة اية حتى احصل علي مااربد شكرا لسعة صدرك

هذا في إعتقادي لأنك عامل أمر الإغلاق بعد أمر الفتح جرب حذف سطر إغلاق التقرير وإن شاء الله تنحل المشكلة مع تحياتي

يوجد حل غير مباشر ستجده في المرفق مع تحياتي تكبير حجم الخط.rar

استاذى الفاضل ومعلمى منتصر اشكرك علي اهتمامك بمساعدتى فى تعديل الكود لكن قمت بإضافة كود فتح التفرير Docmd.openreport"youssef",acViewPreview وعند الضغط علي الزر يفتح التقرير ثم يختفى عند ظهور الرسالة التى تسأل هل تريد الطباعة ام لا ارجو من حضرتك جعل التقرير يكون مفتوح امامى وتظهر الرسالة فى وجود التقرير لكى اختار yes للطباعة اوno للغلق للك خالص الشكر والتقدير والاحترام

عليكم السلام اخي المحترم (منتصر الانسي) شكرا على المحاوله ولكن ليس هذا المطلوب اذ ارفقت مثال في الصورة حيث ان الاسم مكرر والمطلوب ان لايتكرر الاسم مع الشكر والتقدير

أتفق مع الأستاذ فادي فلا توجد أي طريقة إلا بتمييز إسم الملف بقيمة فريدة لا تتكرر ومن خلال المثال الخاص بك فهذه القيمة هي قيمة الحقل ID عموما قمت بالتعديل على الكود الخاص بمثالك ووضحت ما قمت بتعديله من خلال التعليقات أرجو أن يكون الحل مناسبا لك مع تحياتي baseA.rar

تمت المهمة، ويمكنكم تحسينه إذا احتاج لذلك. مشكلة الحضور لأني غفلت عن وجود وقت مع التاريخ ويفترض أن أتخلص من الوقت باستخدام دالة Fix تجنبت عمليات الحذف والإضافة للسجلات حتى لا تتضخم قاعدة البيانات مع الوقت وكل التحديثات باستخدام التعديل. اختبار جميع الموظفين ليوم واحد عن طريق إجراء Test بتمرير تاريخ معين. ويمكن استخدام دالة موظف واحد لشهر كامل باستدعاء منفصل بإضافتكم لإجراء آخر.

وعليكم السلام ورحمة الله وبركاته ,, فيما يخص الإيميل ، فهذه فكرة بسيطة من خلال النقر على مربع نص الإيميل على سبيل المثال :- 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

صراحة معنا بالمنتدى ثلاثة آباء مبهرين @ابوخليل و @ابو جودي و @ابو البشر ما شاء الله الأفكار رائعة والتنفيذ أروع نتعلم منه الكثير ألف شكر لكم وبالتوفيق إن شاء الله مع تحياتي

لا أدري إذا كنت قد فهمت ماتقصده بالضبط ولكن قمت بتعديل ملفك وشاهد إذا كان هو المطلوب او لا مجلد جديد (3).rar

شكرا لك 192.168.100.1 192.168.1.1

آمين، وبارك الله فيكم، ونفعنا الله بما علمنا