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

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

أستاذ متقاعد جزاك الله خيراً و شكرا للتوضيح تفضل تمت التجربة ويعمل يجب أن تختار النموذج المراد نقله من القائمة المنسدلة ومسار القاعدة 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 وهل يمكن مسحها من الخلية الاولى

أستاذى @kanory بهذه الطريقة لو أن النشاط غير موجود مثلا سينقل الاسم الاخير للشخص

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

أستاذى @Eng.Qassim المطلوب كما موجود فى المرفق بعاليه فقط أريد أخذ القيمة من جدول أخر بدلا من عمل عشرات الاستعلامات فالمطلوب نقل النشاط كـ المقاولات أو مخبز أو استيراد من خانة Namex الى KindX وسوف اكتب فى KindX ما يتم نقله مثلا سوف انقل المقاولا و لكن فى kindx سوف ينقل مقاولات عامة و الفكرة انه هناك انشطة مكتوبة خطأ سوف أصححها

السلام عليكم ورحمة الله و بركاته أريد عمل استعلام تغيير و تحديث فى هذا المثال مثلا يتم البحث فى عمود Namex عن كلمة مقاولات و نريد أن ننقل الكلمة الى عمود Kindx ولكنها كلمة واحدة و فى حين تغيير أكثر من كلمة فى هذه الحالة سيكون هناك عشرات من الاستعلامات التحديث ( ليس فقط اضافة نفس الكلمة فى عمود Namex قد يكون عليها اضافات مثل مقاولات عامة أو مقاولات وتوريدات ) كنت أعمل مثل المثال المرفق وأحوله الى كود فاصبح عندى الكثير من الاسطر فهل يمكن عمل هذه الاحداث عن طريق جدول وجزاكم الله خيراً Replace&add.mdb

ربي يبارك فيك ويحفظك

أستاذى @Moosak 1 - يتم ارسال كل التقارير وليس تقرير الشخص المطلوب ( يتم ارسال تقرير محمد و أحمد و محمود ,,,, الى كل الاشخاص أريد أن تقرير محمد يرسل الى محمد و يتم الربط بين التقرير و النموذج برقم التليفون ) 2 - عند الارسال تأتى رسالة أن خلية نوع التقرير (AttachmentType) خالية ولا يرسل الا بعد كتابة اى شيى فى خانة AttachmentType

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

اضافة زرار ارسال جديد لارسال ملف تقارير pdf للواتس أستاذ العزيز / موسى وضع الكود ولكن لا أعرف طريقة تنفيذه وجزاكم الله خيراً Dim SaveToPath As String Dim SaveFullName As String SaveToPath = CurrentProject.Path & "\" SaveFullName = SaveToPath & "ReportName.pdf" DoCmd.OutputTo acOutputReport, "ReportName", "*.pdf", SaveFullName, False, , , acExportQualityPrint SendToWhatsApp "PhoneNumber", "الرسالة", SaveFullName, Document Kill SaveFullName ' MsgBox " تم الإرســــــال ", vbMsgBoxRight, "" مرسال.accdb

جزاكم الله خيراً

كيف يمكن ارسال رسائل SMS كما رسائل الواتس حيث يتم شبك الموبايل بموقع الرسائل https://messages.google.com/web/conversations والسبب هناك بعض الارقام غير مشتركة بالواتس وجزاكم الله خيراً مرسال.accdb

فى هذا النموذج يتم اخاء خلفية النماذج ولكن أريد ان يسالنى عند الفتح اولا هل تريد الاخفاء أم لا بحيث عند اختيار نعم يخفى خلفية النماذج وعند اختيار لا لا يخفيها وجزاكم الله خيراً SystemInfo.accdb

أستاذ أبو أمين الاجابة على سؤالك فى هذا الموضوع

البرنامج بيبعت رسائل الى أشخاص فى واتساب الموضوع الأساسى للأستاذ موسى

فى هذا النموذج يمكن ارسال رسالة الى جروب واتساب اسم الجروب يتم كتابته فى حقل Remarks فى الجدول كما هو فى الواتس يتم فتح صفحة الواتساب فى متصفح الكروم و يتم ارسال الرسالة من يريد أن يطوره أكثر فاليتفضل مشكورا الفكرة من البحث على الانترنت فى فيديو شاهدته على اليوتيوب Group.accdb