أبوبسمله

احسن الله اليك , واياكم الحل كما ذكره لك اخى @kkhalifa1960 ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل بالتوفيق

السلام عليكم مشاركه مع اخوانى هل هذا ما تريد جرب واخبرنا 11.accdb

عودا حميدا اخى واستاذى جعفر 💐

وعليكم السلام هكذا Call Form_FC.ccc بالتوفيق

السلام عليكم مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا Private Sub x_Click() Call searchtext(Forms![fxm], Me.x) End Sub Sub searchtext(frm As Form, strtxt As String) Dim ctl As Control For Each ctl In frm.Controls If ctl.ControlType = acOptionButton Then If ctl.Name = strtxt Then ctl.Value = True Else ctl.Value = False End If End If Next End Sub testc_1.accdb

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

السلام عليكم السبب فى ذلك عدم تعريفك للمتغير frm وعند الدخول للنموذج Frm_Loans فان قيمه المتغير تكون فارغه فلذلك يدخل ع الشرط الثانى اتفضل 20240315_1.mdb

الشكر لله واياكم بالنسبه للتاريخ تم عمله مثلما طلبت فى اول الموضوع وبما انك لا تريده هكذا قم لفتح الاستعلام فى وضع التصميم وقم بانزال حقل التاريخ واختار ماكس بالتوفيق

السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير مشاركه مع اخى @kkhalifa1960 جزاه الله خيرا اتفضل ان شاء الله يكون ما تريد بطريقه اخرى بالتوفيق PRindex_1.accdb

السلام عليكم ورحمه الله وبركاته كيفك اخى ازهر كل عام وانت طيب اتفضل ان شاء الله يكون ما تريد بالتوفيق Q2_1.accdb

جزاك الله خيرا اخى @Foksh ع التوضيح للاخ السائل وحقيقه لااعلم سبب التعارض ولاكن استكفيت بفتح النموذج بشرط ع السجل المطلوب وهو ما قام بايقاف الازرار لانه لا يوجد غير سجل واحد بالنموذج بالنسبه للحذف قم بغلق النموذج بعد الحذف وقبل اغلاق الرساله مع عمل ريفرش للنموذج المفتوح بالخلف عند العوده بالتوفيق

وعليكم السلام ورحمه الله وبركاته وكل عام وانت وجميع الامه الاسلاميه بخير اتفضل بالتوفيق DATE_1.accdb

واياكم اخى اعلم بانه اجتهاد من خلال ردك (طبعاً من تصوري لجملة الدالة DLookup ) ولذلك قلت بانه يوحى لانه نص جزاك الله خيرا ع ما تقدمه لاخوانك من مساعدات جعلها الله فى ميزان حسناتك

السلام عليكم اتفضل تم التعديل ع الكود التالى فقط بايقاف السطر الاخير Private Sub ID_DblClick(Cancel As Integer) 'Dim teltoedit As Long 'teltoedit = Me.ID.Value DoCmd.OpenForm "telseditor", acNormal, , "[id]=" & ID 'DoCmd.SearchForRecord acDataForm, "telseditor", acFirst, "[id]=" & ID End Sub بالتوفيق dbtest.rar

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا اتفضل استخدم التعديل التالى IIf(Len([اسم الخامة] & "")=0;"";Nz(DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]);0)) والاصل قبل الاضافه DLookUp("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم بالتوفيق