ابوبسمله

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

معذره اخى @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-إعلانات-شخصية-بأجر-للاعضاء/ بالتوفيق

اتفضل اخى @محمد احمد لطفى التعديل TableX NameX KindX DateX محمد احمد مقاولات عامة 01/03/2023 خالد استيراد وتصدير 01/03/2023 احمد مخبز 01/03/2023 سمير مقاولات متكاملة استيراد و تصدير تسلم ايدك اخى @kanory 🌹 تقبلوا تحياتى ومرورى Replace&add_B.mdb