kanory

تفضل .... غير الشيفرة التي لديك بهذه .... On Error GoTo XYZ If MsgBox("سوف تقوم بحذف الكلية التي ليس لها قسم", vbCritical + vbYesNo, "تحذير") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "query1" Me.List6.Requery MsgBox "تمت عملية حذف السجلات المطلوب حذفها بنجاح" Else Exit Sub ' خروج فوري إذا المستخدم ضغط "لا" End If Exit Sub ' خروج قبل جزء معالجة الأخطاء '==================== XYZ: MsgBox "حدث خطأ: " & Err.Description

انظر الاستعلام SALESQT قمت بحذف الحقلين وممكن تستخدم عبارة تعبير Expression كما في الصورة

تفضل ...... EL-DATA- T.rar

تفضل ................. EL-DATA.accdb

تعدل هذا cmbType حسب اسم القائمة المنسدلة لديك لو ارفقت مرفقك لكان التعديل عليه افضل لك

جرب بهذه الصورة اذا كنت قد فهمت مطلوبك بالشكل الصحيح Private Sub cmbType_AfterUpdate() ' تعبئة حقل النوع في الجدول Me.نوع = Me.cmbType.Column(1) ' عمود النوع ' تعبئة حقل التصنيف بناءً على النوع Me.تصنيف = Me.cmbType.Column(2) ' عمود التصنيف End Sub

تفضل .................... مثال1.accdb

جرب المرفق التالي ............ LAb (1).accdb

تفضل .................... مثال.accdb

هل هذا التصور المطلوب ....................... على كل حال جرب الموفق .................... مثال.accdb

هذا اعتمده رئيس احدى البلديات في احدى المناطق .... حتى يضمن تواجد الموظفين ....

الف . الف . مبروك @Ahmos تستاهل ... ومزيد من الابداع

الف . الف . مبرك اخي @Foksh يستاهل من ضحى بوقته وجهده وعلمه للاعضاء ... مزيد من التألق

الدالة هي التي تستخدم ايام الاسبوع ولاتظهر في الاستعلام مطلقا

تفضل جرب استاذي الفاضل كل الاحتمالات ...................... واعملنا بالنتيجة Database1 (36).accdb