أبوبسمله

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

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى الافاضل @Eng.Qassim و @kanory جزاهم الله عنا كل خير 💐 اتفضل استاذ @محمد احمد لطفى افتح الجدول TableX ستجده كالتالى ثم اغلقه TableX NameX KindX DateX محمد احمد مقاولات 01/03/2023 خالد استيراد 01/03/2023 احمد مخبز 01/03/2023 سمير مقاولات متكاملة استيراد و تصدير ثم اضغط على الزر فالنموذج ثم اغلق النموذج وافتح الجدول ستجده TableX NameX KindX DateX محمد احمد مقاولات عامة 01/03/2023 خالد استيراد وتصدير 01/03/2023 احمد مخبز 01/03/2023 سمير مقاولات عامة وهذا هو الكود Sub ReplaceName() Dim rs As Recordset Dim rs2 As Recordset Set rs = CurrentDb.OpenRecordset("KindX") Set rs2 = CurrentDb.OpenRecordset("TableX", dbOpenDynaset) Dim dic As Scripting.Dictionary Set dic = New Scripting.Dictionary On Error Resume Next rs.MoveLast: rs.MoveFirst For i = 0 To rs.RecordCount - 1 dic.Add rs("LikeB").Value, rs("LikeA").Value rs.MoveNext Next For Each Key In dic.Keys ' Debug.Print "Key: " & Key & " Value: " & dic(Key) rs2.FindFirst "[NameX] Like '*" & dic(Key) & "*' " Do While Not rs2.EOF ' Debug.Print rs2![NameX] If InStr(rs2("NameX"), dic(Key)) Then rs2.Edit rs2("KindX") = Key rs2("NameX") = Left(rs2![NameX], InStr(rs2![NameX], dic(Key)) - 1) rs2.Update End If rs2.MoveNext Loop Next rs.Close rs2.Close Set rs = Nothing Set rs2 = Nothing Set dic = Nothing End Sub بالتوفيق Replace&add_A.mdb

اللهم آمين واياكم اخى قاسم

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