أبوبسمله

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

السلام عليكم السبب فى ذلك عدم تعريفك للمتغير 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("[سعـــر البيع]";"المخزن";"[اسم الخامة]=" & [اسم الخامة]) والخطأ لان اسم الخامه يوحى بانه نص فتم كتابه المعيار على انه نص وهو فى الحقيقه رقم بالتوفيق

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير وكل عام وانتم طيبيين اتفضل اطلع ع المرفق هل هذا ما تريد بالتوفيق copy value fom colum to another_1.rar

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

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @Foksh جزاه الله خيرا يوجد ملاحظه فى كتابه اسماء الحقول فالجدول وهى تجنب وضع مسافه بين الاسماء مثل NUMERO REGION فيكتب NumeroRegion او NUMERO_REGION باستخدام الشرطه السفليه بين الاسماء ومع ذلك اتفضل التعديل التالى على الوضع الحالى مع ملاحظه ان الحقل NUMERO REGION حقل رقمى If IsNull(Me.NICHE) Then Exit Sub If DCount("*";"ADHERENTS";"NICHE = '" & [NICHE] & "' AND [NUMERO REGION]= " & [NUMERO REGION]) <> 0 Then MsgBox "Cet ajout ferait doublon !", vbCritical Cancel = True End If بالتوفيق

بالتوفيق

وعليكم السلام ورحمه الله وبركاته اتفضل new.accdb

الشكر لله ثم لاخواننا واساتذتنا وبما ان طريقتى عجبتك اتفضل التعديلات التى قد اشرت اليها بالتوفيق Rac_1.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى جزاهم الله عنا خيرا اتفضل اخى Rac.accdb

السلام عليكم ورحمه الله وبركاته يجب عليك الابتعاد عن الاسماء المحجوزه ومنها Name تم التعديل ع الوضع الحالى فالسطر التالى a = DLookup("[ID]&'|'&[Name]&'|'&[age]", "Patient", "[Name]='" & Me!Name & "'") بالتوفيق برنامج الطفيليات_2.accdb

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى برجاء الاطلاع على المشاركات التاليه ففيها الحل ان شاء الله بالتوفيق

حمدالله ع السلامه استاذ خليفه ونسال الله لك الشفاء انت وجميع مرضى المسلمين

السلام عليكم اختار عنصر الشجره وسوف يظهر معك بالتوفيق

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى @محمد احمد لطفى جزاه الله خيرا اتفضل Private Sub Commande3_Click() Dim rs As Recordset Set rs = Me.Table1sub.Form.RecordsetClone For i = 0 To rs.RecordCount - 1 If Len(rs.Fields("date a") & "") = 0 Then rs.Edit rs.Fields("date a") = Date rs.Update End If rs.MoveNext Next rs.Close Set rs = Nothing End Sub وبالنسبه لما ذكره اخى محمد فالنموذج ليس به مشكله ولكن تقريبا اخى رشيد يستخدم اللغه الفرنسيه بجهازه فلذلك لم يعمل معك ومعى ايضا واحسنت بالاستيراد والتعديل بالتوفيق اخوانى

السلام عليكم ورحمه الله وبركاته ليس هذا القسم المناسب لذلك فضع طلبك في قسم الاعلانات باجر https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ بالتوفيق