محمد احمد لطفى

أبشر

طيب تم العمل Database1-1.rar

تفضل هذه نتيجة لأستاذنا أبو جودى يمكنك استخدمها كما تشاء نتيجة.rar

فى هذا البرنامج أقوم بضبط المواعيد حيث أقوم بوضع أول تاريخ أريده فى خلية Date_M ثم عدد المواعيد المحدده يبدأ من خلية ( من = no1 الى عدد المواعيد ( عدد = no )) و أيضا أيام التباعد بين كل ميعاد من خلية تباعد التاريخ = no2 و الان هناك بعد الازرار فى النموذج الفرعى يقوم بالامر زرار 1 - تحديد وهو يعمل على التباعد بين كل تاريخ بعدد الايام المختاره من خلية تباعد التاريخ زرار 2 - شهر وهو يقوم بعمل التباعد بين كل تاريخ شهر زرار 3 - شهر مخصص وهو يقوم بعمل التباعد بين كل تاريخ بعدد الاشهر المختاره من خلية تباعد التاريخ زرار ربع سنه وهو يعمل على التباعد بين كل تاريخ ربع سنة زرار سنة وهو يقوم بعمل التباعد بين كل تاريخ سنة زرار 5 سنوات وهو يقوم بعمل التباعد بين كل تاريخ 5 سنوات زرار سنة مخصص وهو يقوم بعمل التباعد بين كل تاريخ بعدد السنة المختاره من خلية تباعد التاريخ زرار السبت للخميس يأتى بالمواعيد من السبت للخميس و يمنع يوم الجمعة زرار السبت للاربع يأتى بالمواعيد من السبت للاربع و يمنع باقى الايام زرار الحد للخميس يأتى بالمواعيد من الحد للخميس و يمنع باقى الايام زرار الخميس للسبت يأتى بالمواعيد من الخميس للسبت و يمنع باقى الايام البرنامج يعمل جيدأً و لكن فى حالة أن السجلات تكون كثيرة يأخذ وقت كثير أريد تغيير الاكود الى استعلام أو SQL أو ايجاد حل أفضل وجزاكم الله خيراً test120.mdb

مازال يعمل على اصدار واتس القديم

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

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

شكراً أستاذى @kanory اننى راضى تمام حيث أقوم بهذا العمل بطريقة يدوية ثم عن طريق استعلام تحديث و صل الى اكثر من خمسون سطراً الان يقوم بالتحديث خلال 10 ثوانى

محاولة منى ولكن لا أعرف ما الخطأ ممكن أحد أساتذتى يعرف ما الخطأ هذا الامر اعطاه لى أستاذنا جعفر فى موضوع سابق للبحث عن اكثر من مدينة بدون اللجوء الى خلايا فى النموذج Dim datex As Date: datex = #4/11/2023#: 'مجموعة اوامر الحقل الاول 'تاريخ الشراء myCriteria = "(" myCriteria = myCriteria & "[استعلام لمدار السنة].[تاريخ الشراء]= '" & datex & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.[subForm1].Form.Filter = myCriteria Me.[subForm1].Form.FilterOn = True حضرتك من خلال الكود ممكن البحث بين تاريخين بدون اللجوء لوضع تاريخين من خلال النموذج بالتوفيق

تفضل هل هذا ما تريد تم اضافة فقط الربط بين النماذج و اسم العميل [Forms]![مشتريات لمدار السنة]![y1] تفعيل ازرار مشتريات يوم واسبوع وشهر وسنة.accdb

نعم و لكن يستغرق و قت كبير جداً حسب عدد السجلات

شكراً أستاذى @kanory ربنا يبارك فيك و يحفظك

تم ارفاق مرفق بالفعل

فى حدث قبل التحديث حقل الصنف Set RS = Me.RecordsetClone RS.FindFirst "[اسم الصنف]='" & Me.[اسم الصنف] & "'" If Not RS.NoMatch Then Me.Undo MsgBox ("هذا الصنف موجود مسبقا") End If Database1 (2).accdb

ربنا يبارك فى حضرتك أنا هنا لاتعلم ومازلت اتعلم

أستاذ متقاعد جزاك الله خيراً و شكرا للتوضيح تفضل تمت التجربة ويعمل يجب أن تختار النموذج المراد نقله من القائمة المنسدلة ومسار القاعدة edusoftUpdate (2).accdb

تفضل هل هذا ماتريد DoCmd.TransferDatabase acImport, "Microsoft access", "C:\sourceDB.mdb", acForm ,"SourceFormName", "FormNameInDestinationDB" نفس طريقة نقل الجدول

أستاذى @ابوبسمله وضعت ملف به معظم الانشطة التى اريدها و لكن LiKeB به تكرار وذلك لتصحيح الاخطاء و أستأذن حضرتك اذا كان النشاط فى أول الجملة أو وسط الجملة و اخر الجملة هل يمكن اضافة للكود وجزاك الله كله خيراً Replace&add_B (1).mdb

أستاذى @kanory عند كتابة مقاولات متكاملة و استيراد وتصدير = مقاولات متكاملة و استيراد وتصدير ينقل استيراد تصدير أستاذى @ابوبسمله بسم الله ماشاء الله ينقل ما يساويه بالتمام وهناك ملاحظات أرجو أن تتقبلها لماذا تم وضع LikeB مفتاح أساسى القيمة قد تتكرر لأن الهدف من النقل كذلك تصحيح أخطاء و أستأذن حضرتك اذا كان الكلام أول الجملة أو وسط الجملة هل يمكن اضافة للكود تقبل الله منا ومنكم صالح الأعمال

هذا هو السؤال وحتى الان أقوم يدوى من برنامج الواتس لأعرف من تم ارسال الرساله له و من لم يتم الارسال الرسالة له

جزاك الله خيرا أستاذى @ابوبسمله ربنا يفتحها عليك هناك بعض الملاحظات 1 - سمير مقاولات متكاملة استيراد و تصدير تم نقل مقاولات عامة و عند تغيير مقاولات متكاملة استيراد و تصدير النتيجة مقاولات متكاملة استيراد و تصدير لا ينقلها و ينقل مقاولات عامة اى ينقل مايساوى مقاولات

أسف على الازعاج مقاولات عامة مكتب هندسى مقاولات متكاملة استيراد و تصدير

أستاذى @kanory حميل جدا أستاذى و لكن هكذا ان كان النشاط كلمة واحدة هل يمكن التعديل يعمل كلمة و اثنين او ثلاثة

نعم يجب وجود نسخة واتس ولكن متنزلش أخر نسخة لا يعمل عليها رقم الراسل هو رقم الهاتف الموضوع الاصلى https://www.officena.net/ib/topic/118820-مكتبة-الموقع-🎁-مرسال-الواتسأب-📨-الإصدار-الثاني-20-مطور-🧬🏹/

تمام أستاذى @kanory وهل يمكن مسحها من الخلية الاولى