Foksh

امممم ، حسناً في بعض الأحيان لاحظت أن معظم إصدارات أوفيس التي يكون فيها خلل ناتج عن التحديث أو التحميل .... الخ تحتوي خطأ في VBA عند أكواد عشوائية ( حسب منطقة الخلل ) . على العموم جرب إكمال الجملة الشرطية بوضع Else If response = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True MsgBox "تم حذف السجل بنجاح.", vbInformation else DoCmd.CancelEvent End If

ارسل ملفك أخي الكريم ، ولكن جرب اعمل ضغط وإصلاح لقاعدة البيانات !!!! وهلا وضحت السطر التالي :

بدايةً ارجو أن تقوم بإنشاء تقريرك الذي تريد ان يتم طباعته بين التاريخين .. ثانياً هل تريد البحث بين التاريخين لتاريخ ميلاد الطالب ، أو تاريخ التسجيل ؟؟ اذا كان لتاريخ التسجيل ، فإليك الخطوات دون ملف مرفق :- 1. انشئ استعلام وحدد الحقول التي تريد جلب قيمها من الجدول ومن ضمنها طبعاً الحقل Reg كحقل أساسي . 2. في الحقل Reg من داخل الإستعلام وفي جزء الـ Criteria - الشروط اكتب السطر التالي :- Between [Forms]![بيانات الدور الثاني]![n1] And [Forms]![بيانات الدور الثاني]![n2] 3. احفظ الإستعلام ، وانشئ تقريرك المبني على هذا الاستعلام .

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

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

حسناً ، جرب هذا التعديل لنفس الوظيفة بفكرة مختلفة ؟؟ 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 بضرورة ارفاق ملف.

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