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

مسار التقرير


ASSOUSI

الردود الموصى بها

السلام عليكم ورحمة الله 

إخواني أريد كيفية إدراج مسار التقرير في مربع نص

للنّجاح أناس يقدّرون معناه، وللإبداع أناس يحصدونه، لذا نقدّر جهودكم المضنية، فأنتَم أهل للشّكر والتّقدير، فوجب علينا تقديركم، فلكم منّا كلّ الثّناء والتّقدير.
 

 

 

 

XA.rar

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

9 ساعات مضت, ASSOUSI said:

السلام عليكم ورحمة الله 

إخواني أريد كيفية إدراج مسار التقرير في مربع نص

للنّجاح أناس يقدّرون معناه، وللإبداع أناس يحصدونه، لذا نقدّر جهودكم المضنية، فأنتَم أهل للشّكر والتّقدير، فوجب علينا تقديركم، فلكم منّا كلّ الثّناء والتّقدير.
XA.rar

على الرغم ما افتهمت ما قصدك بالضبط

هل تريد مسار البقاعدة بيانات الحالية مع اسم التقرير

ام تريد شيء اخر

تقدر تستخدم هذا الكود كمصدر لمربع نصي اللي باسم text في نموذج

=[Application].[CurrentProject].[FullName] & "\X"

هذا الجزء من الكود سيعطيك مسار القاعدة الحالية

=[Application].[CurrentProject].[FullName]

و حرف x هو اسم تقريرك في هذه القاعدة

احنا اضفنا \ لكي يفرق بين اسم القاعدة و اسم التقرير

تحياتي

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

17 دقائق مضت, ASSOUSI said:

لو تفضلة اريد أن يضاف للكود Format PDF

تحياتي لكمXA.rar

ما افتهمت من قصدك !
ممكن توضح اكثر ماتريد بالضبط ؟

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

22 ساعات مضت, ASSOUSI said:

السلام عليكم 

عندي برنامج ارسل به حساب مجموع الفواتر  

 والآن أريد إرسال تفاصيل الفاتورة بالتقرير مرفقا بصيغة PDF

 

هل تريد ان ترسل الفاتورة بصيغة pdf  هل انا فهمتك بصحيح ؟

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

2 ساعات مضت, ASSOUSI said:

نعم فهمتني صحيح

شكرا على هتمامك 

 

استخدم هذا الكود

    Dim stDocName As String
    Dim TheFile As String
    TheFile = "D:\"  ' اكتب المكان اللي تريد ان يحفظ فيه
    stDocName = "X" 'هو اسم التقريرك
    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, TheFile & stDocName & ".pdf", False

او هذا

    DoCmd.OutputTo acOutputReport, "X", acFormatPDF, "D:\" & "X" & ".pdf", False

للعلم كلا من الكودين يحفظ التقرير باسم ئيكس في قرص دي باسم التقرير اي باسم ئيكس

تحياتي

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

السلام عليكم

 اخي شفان ريكاني

زادك الله علما وباراك لك 

لقد تم إرسال التقرير بنجاح 

هل هناك طريقة اخرى تضاف لإرسال التقرير مباشرة من دون حفض pdf في \:D مكان مربع النص الذي فيه المسار

[مربع النص الذي فيه مسار التقرير بهذ الشكل D:\\X.pdfو]objmsg.AddAttachment 

تحياتي لكم

 

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

11 دقائق مضت, ASSOUSI said:

السلام عليكم

 اخي شفان ريكاني

زادك الله علما وباراك لك 

لقد تم إرسال التقرير بنجاح 

هل هناك طريقة اخرى تضاف لإرسال التقرير مباشرة من دون حفض pdf في \:D مكان مربع النص الذي فيه المسار

[مربع النص الذي فيه مسار التقرير بهذ الشكل D:\\X.pdfو]objmsg.AddAttachment 

تحياتي لكم

 

نعم اخي واعتذر منك بشدة

لاني ما فهمت قصدك بالضبط

غدا ان شاء الله راح اعطيك الكود ارسال التقرير الى ايميل

انتظرني غدا

تحياتي

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

6 دقائق مضت, ASSOUSI said:

ان شاء الله

اتفضل 
جرب هذ الكود

    DoCmd.SendObject acSendReport, "x", "PDFFormat(*.pdf)", shivan_rekany212@yahoo.com, "", "", "", "", True, ""

غير ايميلي بايميلك

جرب ووافيني بالنتيجة

تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information