Foksh

وعليكم السلام ورحمة الله وبركاته .. قمت بإضافة حقل Reg لأنك لم تقم بتحديد الحقل الذي تريد اضافة القيمة له في الجدول ,, تفضل هذا الكود :- Dim strSQL As String If Me.check1.Caption = "o" Then Me.check1.Caption = "‏" strSQL = "UPDATE [بيانات الدور الثاني] SET Reg = Date() WHERE [رقم جلوس] = " & Me.رقم_جلوس CurrentDb.Execute strSQL, dbFailOnError Else Me.check1.Caption = "o" strSQL = "UPDATE [بيانات الدور الثاني] SET Reg = Null WHERE [رقم جلوس] = " & Me.رقم_جلوس CurrentDb.Execute strSQL, dbFailOnError End If وهذا ملفك بعد التعديل :- 1.zip

على حد علمي ، جملة حذف السجل الحالي :- DoCmd.RunCommand acCmdDeleteRecord

مداخلة ليس لها علاقة بالحل ، على حد علمي انه تم اختيار أفضل إجابة للموضوع ، ولكن المشكلة ما زالت لم تنتهي 🤔

في حدث عند التركيز ، جرب الكود التالي :- If Me.TextBox.Value = 0 Then Me.TextBox.Value = "" End If

ولا يهمك استاذة @hanan_ms .. إن شاء الله قريباً ردي على افكارك ، ولكن ضيق الوقت في العمل ما يؤخرني 🤗

يسعدني وضع أول مشاركة أستاذ @أبو عبدالله الحلوانى ، حالياً اقوم بالتصفح من الجوال ، سألقي نظرة على فكرتك الجميلة .. وددت لو أرفقت لنا صور على الأقل لتكتمل الصورة 😉 .

ربي يبارك فيك استاذ @أبو عبدالله الحلوانى على تواضعك الجميل وأسلوبك الأجمل ،، بالعكس ، يسعدني أن أطلع على فكرتك 🤗 ومتأكد أنها جميلة گطيب أصلك 🥰

بعد كود فتح النموذج ، استخدم بدلاً من Me.SetFocus هذا الكود Docmd.SetFocus

شرح جميل وموفق اخي @ahmed draz 🤝🤗

عمل جميل ويستحق التجربة 🤗 . عندي استفسار بسيط ؛ من خلال الفيديو ما سبب ظهور الشاشة التي باللون الزهري عند النقر على صورة المركبة لتحديد مكان الحادث أو الضرر ( باعتبار أن الفكرة قد تستخدم في شركات التأمين على السيارات... ) . 💡لم اقم بتحميل الملف وتجربته وإنما من خلال الفيديو 💡

إضافة لما تفضل به أستاذنا @ابو جودي في حال عدم وجود سجل يطابق الشروط قد نستخدم نوع المتغير Variant بدلاً من Integer في المتغير 😉 Dim Omra As Boolean Dim OmraAnne As Integer Dim result As Variant Omra = IIf(DLookup("Haj", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") = -1, True, False) result = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") If Not IsNull(result) Then OmraAnne = result Else OmraAnne = 0 End If If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne Me.Undo Exit Sub End If من زمان ما استفزيتكش يا مان 😁

لم أفهم المطلوب بشكل واضح 😬

يمكن ذلك ، ولكني أنصحك بفتح موضوع جديد مستقل واشرح المطلوب مع إرفاق ملف

هل الكومبوبوكس مصدر بياناته أكثر من حقل ؟؟ ارسل هذا المصدر هنا من خلال «» الموجودة في شريط الأدوات في صفحة المنتدى هذه عند كتابتك للرد ، أو الأفضل ارفاق ملف لتتوضح لك الإجابة أكثر.

جرب الأمر Requery في حدث بعد التحديث لمربع النص . إن كانت النتائج تعرض في نموذج فرعي ومصدر بياناته الاستعاام المقرون بشرط القيمة في مربع النص هذا ، فسيكون الحدث بعد التحديث هو Me.SubForm.Requery حيث SubForm هو اسم النموذج الفرعي في النموذج الرئيسي. أو كما تفضل أستاذنا @kkhalifa1960 بضرورة ارفاق ملف.

أحسنت أخي الكريم ، بانتظار الشرح ، أو أنصحك بفتح موضوع جديد مستقل للشرح ، لتعم الفائدة أكثر 🥰💐

عمل جميل ورائع ، أحسنت أخي @فريدالطحان إبداع في توظيف وتطوير المهارة

ما شاء الله ، تبين أن في المنتدى مبدعون لا نراهم في الساحة كثيراً ، إلا أن بصماتهم تبقى لامعة كأسمائهم أخي @بحار الاكسس 🥰

أشكرك استاذه حنان على مشاركتك فكرتي المتواضعة ، وباعتقادي يوجد حل طبعاً لتساؤلاتك ، اشوف حل واتابع معك مع العلم أنه لا يمكن حفظ القيم الجديدة في متغير ( زي ما حضرتك عارفة أكيد ) ، وإنما سيكون هناك مكان يتم فيه حفظ مواضع العناصر ( وهذا لا شك فيه ) وأعتقد انها جداول النظام ، أو التعديل في خصائص العناصر في وضع العرض للنموذج وليس عرض التصميم!! 🤗

لا شكر على واجب اخي الكريم @شريف كونكت .. في أقرب فرصة إن شاء الله اليوم نوصل لحل في التقرير عند وضع الطباعة 🤗

نرجو الإهتمام بالعنوان ليمثل وصف المشكلة وذلك إلتزاماً بقواعد المنتدى لتلافي إغلاق المواضيع.

هو فعلاً انا لاحظت بالبطئ الذي ذكرته ، ولكن هذا ما خطر ببالي بناءً على تصميمك لطريقة عرض البيانات في النموذج الفرعي !! اذا أتيت بفكرة أخرى سأتابع معك ، والباب للمشاركات مفتوح على مصراعيه

لم اقم بالتجربة على التقارير فعلاً كونك لم تأتي بتحديد التقارير ، ولكن جرب انت واخبرنا بالنتيجة ، وأنا سأقوم بالتجربة غداً أيضاً ، وإن لم يتم الامر على التقارير سنقوم باللازم.

أخي الفاضل @jo_2010 .. لدي فكرة ، جربها وأخبرني بالنتيجة في حدث بعد التحديث للكومبوبوكس S_Tests استخدم هذا الكود للفلترة :- Private Sub S_Tests_AfterUpdate() Dim strFilter As String If IsNull(Me.S_Tests) Then strFilter = "" Else strFilter = "[Requests] Like '*" & Me.S_Tests & "*'" End If Me.Search_Sub.Form.Filter = strFilter Me.Search_Sub.Form.FilterOn = True Me.Search_Sub.Requery End Sub وفي حدث عند التحميل للنموذج استخدم الغاء فلترة النموذج الفرعي :- Private Sub Form_Load() Me.Search_Sub.Form.Filter = "" Me.Search_Sub.Form.FilterOn = False End Sub وهذا الملف بعد التعديل :- Laboratory_2024.accdb

اعتذر عن المتابعة 💐