ابوبسمله

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

معذره اخى @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

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

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

جزاكم الله خيرا هل تقصد هذا المثال اخى كانورى محرك بحث الأكسيس الاصدار 1.2.rar

ههههههههههه انت قدها وقدود بشمهندسنا العزيز ثم اننى لا اطمع سوى فى دعوه تنفعنا يوم لاينفع مال ولا بنون وهذه مشاركتى معك فى نفس الاستعلام مباشره test22_3.accdb

اهلا بك اخى واستاذى وبشمهندسنا العزيز قاسم @Eng.Qassim وكل عام وانت والاهل طيبين رمضان كريم احسنت استاذى العزيز جزاك الله عنا كل خير فقد غفلت بالامس عن التاريخ وهذه مشاركتى بعد التعديل ايضا الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين واياكم اخى بالنسبه للشرح لقد استخدمت داله لاخى ومعلمى العزيز جعفر وسوف ارفق رابط الداله لتراها وترى التغييرات التى تمت لتناسب طلبك ثم غيرنا فيها مره اخرى بعد انتبهت من مشاركه اخى واستاذى العزيز قاسم لاضافه التواريخ وان كنت تود الاستفسار عن شىء آخر فتفضل اخى test22_2.accdb

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @أغيد وكل عام وانتم بخير تم الحل باستخدام كود لاخى ومعلمى العزيز جعفر جزاه الله عنا كل خير مع بعض التعديلات qryAll id type price date 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 3000 01/01/2020 2 انتقال, مكافأة, مواصلات, نثريات 3000 01/01/2021 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 8500 01/02/2022 2 انتقال, مكافأة, مواصلات, نثريات 8000 01/03/2023 1 انتقال, تغذية, مكافأة, مواصلات, نثريات 13000 25/03/2023 بالتوفيق test22_1.accdb

وعليكم السلام ورحمه الله وبركاته كل عام وانت والاهل طيبين وبالف خير رمضان مبارك علينا جميعا ان شاء الله اللهم اهله علينا بالأمن والإيمان وسلامة القلوب والأبدان

اتفضل اخى الاستعلام qry مبنى على الاستعلام q1 بالتوفيق 123_1.accdb

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