kaser906

ممتاز أستاذ جعفر الان صرت اعرف كيف يتم تتالي الاحداث استفسار : لاحظت الاحداث بالنموذج الفرعي تبدا قبل النموذج الرئيسي عند الفتح وتكون بعد النموذج الرئيسي عند الاغلاق فهل هذا الأمر طبيعي ام حصل بتوجيه منك ؟

السلام عليكم ورحمة الله وبركاتة المطلوب بالمرفق : بعد ادخال عدد المقاعد بالنموذج الفرعي اضافة عدد سجلات بعدد الرقم المدخل في الجدول Tabl_Bus حيث الحقول : Num_rihla= Num_rihla و Num_Itinerary= Num_Itinerary و ويكون الحقل Chair_ No بالجدول Tabl_Bus يأخذ ارقام اعتبار من رقم 1 الى العدد المدخل في حقل عدد المقاعد في حال كان اضافة سجل وفي حال كان تعديل على رقم المقاعد يتم تعديل عدد السجلات بناء على الرقم المدخل في جدول Tabl_Bus سواء بالزيادة او النقصان Addseat.rar

تمام الله يعطيك العافية

وضعت الكود في زر امر sav لن يعمل الكود لعدم وجود بعض الكائنات وضعته لتنظر اليه 795.Qdell.rar

هذا هو المطلوب بالضبط لكن ظهرت لدي مشكلة حيث تعارض الكود الذي وضعته مع كود أخر بالنموذج انظر الصورة هذه الصورة للكود الأخر الذي اصبح يظهر مشكلة بعد إضافة الكود الذي عملته لي

السلام عليكم ورحمة الله وبركاتة بالمرفق يوجد استعلام للبحث عن غير المتطابقات بالجدولين Tabl_Itinerary و Tabl_Itinerarytemp المطلوب : 1- تحويل الاستعلام الى استعلام حذف بحيث يحذف السجلات غير المتطابقة من الجدول Tabl_Itinerary 2 - عمل كود يمكنني من تنفيذ نفس اجراء الاستعلام من النموذج بدون الحاجة الى الاستعلام Qdel.rar

هههههههه بس ما راح أفهم من جوابك أنك ما راح ترد على أسألتي المستقبلية بسم لله ما شاء الله اللهم صل على محمد وآل محمد ربي يحرسك ويحميك النتائج 100/% الله يجزيك خير ويرحم والديك

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

يعطيك العافية أستاذ شفان اريد تنفيذ أمر الحذف عن طريق زر أمر بالنموذج الرئيسي وليس عن طريق الزر يdel بلوحة المفاتيح

السلام عليكم ورحمة الله وبركاتة عندما نقوم بتحديد السجل بالنموذج الفرعي كما هو موضح بالصورة ونضغط على مفتاح del يتم حذف السجل المحدد المطلوب : ما هو الكود الذي يقوم بحذف السجل المحدد عن طريق المفتاح delet بلوحة المفاتيح وكيف يمكنني توظيفة لتنفيذه عن طريق زر أمر من النموذج الرئيسي

يعطيك العافية الله يعين نغير بالنموذج

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

لإيقاف الحذف استخدم AllowDeletions = False ولتفعيل الحذف AllowDeletions = True

تفضل افتح النموذج frm ستجد شرح داخل النموذج Vfrm.rar

ضبط بعد نقل الكود الى المكان المشار إلية الله يعطيك العافية

h نفذت كل اللي ذكرت والاعدادات مظبوطه كما يجب في ترتيب الجدولة والحقل الأول في ترتيب الجدولة ظاهر لو غيرت مكان الكود خارج هذا الحدث فسيتم نقل النركيز الى السجل الأول بالنموذج الرئيسي وما اريده ان ينتقل التركيز الى السجل الأول بالنموذج الفرعي بعد اكمال الحلقة التكرارية ثم ينتقل الى اكمال الحدث في زر الأمر عند النقر على الفكرة المسألة مش مهمة الى هذه الدرجة لكن لاحظت انه يجب ان انقر على زر الأمر مرتين لكي يتم تنفيذ الحدث في عند النقر طبعا هذا قبل ان اضع الكود الذي اشرت به علي

ههههههه صار صعب الكود أعلاه يتم تنفيذه عند التركيز على زر أمر وعندما وضعت حسب ما أشرت DoCmd.GoToRecord , , acfirst يتوقف زر الأمر في حديث عند التركيز ولا يكمل باقي الكود والموجود في حدث عند النقر

السلام عليكم ورحمة الله وبركاتة هذا الجزأ من الكود يقوم بعمل حلقة تكرارية للتأكد من ملأ كافة الحقول بالنموذج الفرعي وعند إلانتهاء من إكمال الحلقة التكرارية يتوقف ( يتم التركيز ) على سجل جديد فارغ بنهاية النموذج المطلوب : جعل الكود ينقل التركيز الى أول سجل بالنموذج بعد الانتهاء من عمله On Error Resume Next Me.Forme_Visitors2.SetFocus Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus On Error GoTo 0 DoCmd.GoToRecord , , acFirst For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1 If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _ Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus End If 'IsNull Exit Sub End If 'IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) DoCmd.GoToRecord , , acNext Next i End If 'DCount

ما تقصر طال عمرك

اقصد عمل Refresh لكن حتى هذه الدالة ما جابت نتيجة

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

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

السلام عليكم ورحمة الله وبركاتة كيف استدعي الامر Private Sub Form_Current() الموجود في النموذج الرئيسي Forme_ fatora من داخل النموذج الفرعي

ماشاء الله عليك أستاذ جعفر هذا هو المطلوب : الله يرحم والديك ويجزيك خير في هذه الليلة المباركة اعادها الله علينا وعليك أعواما عديدة وأزمنة مديدة ونحن وأياك في أتم الصحة والعافية

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