Moosak

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

ضع الفاصلة المنقوطة ( ; ) بدل الفاصلة ( , )

أهلا وسهلا بك أخي العزيز في المنتدى .. تفضل أخي .. إن شاء الله تجد فيه بغيتك .. test (1).rar

أخي @abouelhassan كود الأستاذ كنج 5 ستار يشترط كتابة ( التاريخ من ) لكي يعمل ..

تفضل يا أبو الحسن Private Sub srch_All_AfterUpdate() If Me.srch_All = "All" Then Me.srch_Date_From = DateSerial(2020, 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1 Else Me.srch_Date_From = "" Me.srch_Date_To = "" End If End Sub DATA1041-5.mdb

تأكدت منها الآن .. شغالة 100% 👌🏻

تفضل أخي .. إشراف (1).accdb

هذا الحل إن أردت الحصول على ترقيم مرتب للسجلات .. غير ذلك لا يمكنك صف (فرز) الأرقام No بطريقة تصاعدية متتابعة ... لأنها تتوزع على ال Group بطريقة غير منتظمة . test1.rar

أسهل طريقة لإخفاء شعار الأكسس وإظهار شعارك الخاص على البرنامج وبدون أكواد هو كتابة اسم الأيقونة بهذه الطريقة .. وتكون دائما بجانب ملف الأكسس : وبالتعليم على خيار (الاستخدام كأيقونة نموذج وتقرير ) ستظهر لك حتى على نوافذ النمانج والتقارير ..

وممكن تعملها باستعلام تحديث ..

تشكراتي لك باش مهندس محمد .. 🌹

شغل ولا أروع ما شاء الله تبارك الله .. لك جزيل الشكر على هذا المجهود المتميز أستاذنا .. ماذا تقصد بهذه العبارة أستاذي ممكن شرح مبسط ليفهم البسطاء مثلي 😁

الله الله الله .......... جميل جدا .. أشياء جديدة أول مرة أعرفها .. 🌹

وعليكم السلام ورحمة الله وبركاته .. إرجع لهذا الموضوع أخي العزيز :

أخي الحلبي لا يمكننا التنبؤ بمكونات قاعدة بياناتك الأصلية إن لم توضح جميع المعطيات عندك أو ترفقها كما هي .. مودتي 🙂

دائما مبدع يا أبا جودي 😉

تفضل أخي أحمد 3Dates.accdb

لله درك مهندس جعفر ... هذا الموضوع مهم جدا ومطلوب جدا 🙂🌹 ما شاء الله عليك بحر لا ينضب ..

تكتب بين كل سطر وآخر عبارة & vbNewline &

نعم أخي العزيز .. يمكنك ذلك والمواضيع المطروحة في هذا المجال كثيرة .. خذ على سبيل المثال :

للعلم ما يحتاج تدخل لمحرر الأكواد لربط العناصر بالكود .. فقط حدد العناصر كلها في نفس الوقت وألصق الكود في المكان الذي حددته لك بالمستطيل الأحمر 🙂

هذه مشاركتي مع أخي الدكتور كاف يار .. remain (2).accdb

وعليكم السلام ورحمة الله وبركاته .. نعم ممكن والله أعلم ،،، تجعل في خصائص القائمة ( السماح بقيم متعددة ) تجعلها = نعم : أما لفلترة القائمة على حسب المكتوب .. فتجعل الاستعلام الخاص بمصدر القائمة يفلتر النتائج ..

جميل ما شاء الله

تم الحل أخي الحلبي ولله الحمد بهذه الدالة : Private Function NoEntry() If xtyp = "" Or IsNull(xtyp) Then Me.AllowEdits = False MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة" Me.xtyp.SetFocus Else Me.AllowEdits = True End If End Function تحدد جميع العناصر وتضع في حدث عند التركيز اسم الدالة هكذا بهذه الصورة : =NoEntry() وهذا هو الملف امكانية التسجيل2.accdb