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

أستاذى @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

uP

تقريبا سوف تحتاج الى دالة Replace

كده الموضوع اختلف

تفضل هل هذا ما تريد Database22.accdb

البرنامج يفتح وهو من موضوع أستاذ موسى المثبت

أستاذى @Moosak ممكن بعد اذنك تعدلى على النموذج ده علشان اعمل استعلام الحاق حذفت جدول GroupsTable التعديل على نموذج ارسال رسالة جماعية حيث تم عمل خلية وهمية IDMain لاكتب بها رقم لكى يتم الارسال ارجو التعديل بحيث لا يكون مرتبط بخلية IDMain والتعديل أيضا على الكود Private Sub SF_Enter() If IsNull(Me.IDMain) Then Me.Msg = " " Me.Refresh End Sub ربنا يبارك فيك ويحفظك __مرسال الواتسأب.accdb

شكراً أستاذى @ابوخليل و استاذى @Eng.Qassim تم حل مشكلة الالحاق بحذف جدول GroupsTable

شكراً أستاذى @ابوخليل الموضوع انى اريد الحاق الاسم ورقم التليفون ورقم تسجيل الى مرسال الواتس لأستاذى @Moosak فكيف يمكن ذلك علما بأن جدول GroupsTable مش محتاج منه حاجة الا نوع المرفق و مسار المرفق __مرسال الواتسأب.accdb

أرييد عمل استعلام الحاق بين جدولين main1115 و MultiNamesTable حيث يتم النقل من main1115 الى MultiNamesTable 1 - idtasgel = idtasgel 2 - namex = PersonName 3 - Telphone = PhoneNumber هناك جدول وسيط يسبب مشكلة لى حيث IDMain فى جدول GroupsTable يساوى IDMain فى جدول MultiNamesTable وجزاكم الله خيراً __مرسال الواتسأب.accdb

جزاك الله خيراً أستاذى @Moosak تمام بارك الله فيك تم تغيير الرسالة باسم كل شخص

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