ارسال تقارير Pdf للواتس

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

اضافة زرار ارسال جديد لارسال ملف تقارير 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

[Moosak]

تفضل أخي محمد 🙂 

 

مرسال.accdb

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

أستاذ @Moosak

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

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



 

تم تعديل أبريل 4, 2023 بواسطه محمد احمد لطفى

[Moosak]

3 ساعات مضت, محمد احمد لطفى said:

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

لم أفهم أخ محمد ..

إشرح بالمسميات الموجودة عندك في الملف ..

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

أستاذى @Moosak

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

2 - عند الارسال تأتى رسالة أن خلية نوع التقرير (AttachmentType) خالية  ولا يرسل الا بعد كتابة اى شيى فى خانة AttachmentType

 

[Moosak]

34 دقائق مضت, محمد احمد لطفى said:

2 - عند الارسال تأتى رسالة أن خلية نوع التقرير (AttachmentType) خالية  ولا يرسل الا بعد كتابة اى شيى فى خانة AttachmentType

الأول واضح ..

الثاني ال AttachmentType نوعه ثابت دائما وهو (مستند) لأننا سنرسل التقرير على شكل pdf لذلك لن تحتاج لتعبئة هذه الخانة أساسا .. بل يعمل النوع في الكود مباشرة ً

[Moosak]

أصلحت لك موضوع التقرير بإنشاء موديول يخزن رقم الـ ID للشخص الحالي في متغير عام ثم يسنده إلى دالة تقوم بفلترة الاستعلام الذي يفتح التقرير :

 

 

الدالة في الموديول :

 

وبذلك يتم تخزين التقرير الخاص بكل شخص وإرساله إليه ثم حذفه وإرسال التقرير التالي .. وهكذا ..

مرسال (2).accdb

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

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

[dr_bioman]

السلام عليكم ا.محمد احمد

هل يتطلب وجود برنامج الواتس اب مسطب على الجهاز؟

واين يتم وضع رقم الراسل؟

 

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

نعم يجب وجود نسخة واتس ولكن متنزلش أخر نسخة لا يعمل عليها

رقم الراسل هو رقم الهاتف 

الموضوع الاصلى 

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