اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by 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

رابط هذا التعليق
شارك

أستاذ @Moosak

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

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

:imsorry:


 

تم تعديل بواسطه محمد احمد لطفى
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

أستاذى @Moosak

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

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

 

رابط هذا التعليق
شارك

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


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

الأول واضح ..

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

image.png.5106eada7414b4e03b4dda3ad0503032.png

 

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

image.png.e1ff9cd60fed227c9f0e5b2254a5fc07.png

 

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

مرسال (2).accdb

  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information