Foksh

وإياكم أخي العزيز ,, شكراً لك

أخي الكريم أهلاً وسهلاً بك معنا ، تقيداً بقوانين المنتدى ، أرجو منك التوضيح أكثر حيث أنك لم تذكر اسم الجدولين أولاً ..

حسناً ، جرب هذا التعديل لنفس الوظيفة بفكرة مختلفة ؟؟ Private Sub del_Click() On Error GoTo ErrorHandler Dim response As VbMsgBoxResult response = MsgBox("سوف يقوم البرنامج بحذف بيانات العميل هل توافق علي ذلك", vbYesNo) If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation End If Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء محاولة حذف السجل: " & Err.Description, vbCritical DoCmd.SetWarnings True End Sub

جرب هذا التعديل للمرفق الأخير :- 2.zip تم إضافة حقل جديد في الجدول Reg_Status من نوع Yes/No ، وإضافة حدث في الحالي لتحديث القيمة لـ check1 بناءً على قيمة Reg_Status ، وتعديل الكود السابق في المشاركة السابقة لتحديث هذا الحقل أيضاً .

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟ اعتذر منك ولكن فعلاً لم افهم المطلوب رغم قراءتي له أكثر من مرة

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

وعليكم السلام ورحمة الله وبركاته .. قمت بإضافة حقل 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 بضرورة ارفاق ملف.

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

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

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

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