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

ألف مبروك الترقية

اتفضل ده مثال من أستاذى @دروب مبرمج Replace.accdb

تفضل هل هذا ما تريد بالتوفيق قاعدة تجربة.accdb

هنا الحل أو ضع مثال للعمل عليه

ان أمكن ممكن التعديل لارسال رسائل للجمع

UP

المشكلة عند ارسال صورة لرقم غير مسجل فى واتساب نموذج SendWhatsMoreMsg يتوقف البرنامج عن العمل وتاتى رسالة خروج من الوتساب المطلوب اغلاق رسالة الخروج و العودة الى ادخال الرقم التالى وجزاكم الله كل خير sendwatsWebAll2.rar

جزاك الله خيراً أستاذى @ابوخليل ربنا يبارك فى حضرتك و يحفظك

صورة توضحية لارسال الرسالة

أستاذى @ابوخليل عند الارسال يتم البحث عن الرقم واذا كان غير موجود يتم وضع الرسالة بجانب الرقم كما بالصورة وهكذا يتم وضع باقى الارقام والرسائل فى نفس الخانة ويتوقف البرنامج عن الارسال حل المشكلة هو قبل وضع الرقم يتم مسح الكلام الموجود select all لخانة البحث عن الرقم و للمسح Backspace or Delet و تغيير الرسالة الى مربع نص بحوار رقم التليفون بالاسفل أسف لا يوجد نموذج فرعى أقصد بجور الاسم ورقم الهاتف بالأسفل حيث يمكن عن طريق استعلام تحديث اضافة المزيد من البيانات لكل رقم هاتف تخص كل شخص على حده . وجزاكم الله كل خير

up

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

الجدولين مرتبطين فى فايل تانى Whatsapp_be 1- ممكن تغير المسار 2- انقلهم من الملف التانى بالتوفيق

فى انتظار تجربة أعضاء المنتدى

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

طيب جرب DoCmd.DeleteObject acTable, "data" DoCmd.TransferDatabase acImport, "Microsoft Access", _ "C\Updatedata\ser.mdb", acTable, "data", "data", False بالتوفيق كل عام و أنتم بخير

كل عام وحضرتك طيب وبخير بعد التجربة لا يرسل الا لرقم محدد حتى بعد حذفه برسالة test و لا يرسل الى ارقام الاخرى المضافة

ألف مبروك الترقية

ينفع ان شاء الله if Age >=16 and Age <=32 Then Do Something Else Don't End If بالتوفيق

تفضل وصلتنى رسالتك منذ قليل =IIf([Notes]>=5;"ينتقل";IIf([Notes]>=1 And [notes]<4.5;"معيد";IIf([Notes]>=4.5 And [Notes]<=4.99;"استدراك";""))) بالتوفيق البرنامج-aa.rar

هل هذا ما تريد بالتوفيق تظلمات.mdb

ربنا يبارك فى حضرتك ويحفظك

عند استيراد ملف اكسيل تحدث مشكلة أن بعض أسماء الحقول تدخل باسماء الحقول ملف الاكسل و السبب خلايا مدمجة بالاكسل هل يمكن معالجة الادخال لتدخل اسماء الحقول من الجدول من اكسيل برمجيا وجزاكم الله كل خير test.mdb mainX.xls

ممكن رفعها على موقع مديا فاير و احضار Link هنا بالتوفيق

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