أبوبسمله

اتفضل اخى @محمد احمد لطفى التعديل 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

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

وفيك بارك الله اخى بالتوفيق

السلام عليكم ورحمه الله وبركاته هل هذا ما تريد qry المعرف اسم الاب الرسوم المبلغ 1 محمود 200 50 2 علي 300 100

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

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز @Eng.Qassim جزاه الله عنا كل خير ارفق لكم مشاركه لاخى @صلاح جبر جزاه الله عنا كل خير تقبلوا تحياتى ومرورى وكل عام وانتم بخير

واياكم اخى محمد انت نسخت الظاهر فالمعيار اضغط كليك يمين على المعيار واختار انشاء ليفتح لك منشىء التعبير وسوف يظهر لك كامل وها هو ع سطر واحد In (SELECT DISTINCT Table2.id FROM Table2;) بالتوفيق

السلام عليكم اتفضل اخى @محمد احمد لطفى DELETE Table1.id FROM Table1 WHERE (((Table1.id) In (SELECT DISTINCT Table2.id FROM Table2; ))); بالتوفيق Delt_1.mdb

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

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

شغال معايا زى الفل بدون مشاكل والحمدلله

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

واياكم اخى محمد بالتوفيق

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

وعليكم السلام ورحمه الله وبركاته اتفضل اخى واستاذى محمد @أبو عبدالله الحلوانى Dim QryStr As String 'On Error Resume Next QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _ "SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _ "'" & InvNo & "' AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _ "WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));" بالتوفيق