اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

 

 

 

XA.rar

قام بنشر
9 ساعات مضت, ASSOUSI said:

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

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

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

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

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

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

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

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

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

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

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

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

تحياتي

  • Like 1
قام بنشر

السلام عليكم

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

المسار يعمل جيدا هذى مأوريد

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

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

قام بنشر
17 دقائق مضت, ASSOUSI said:

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

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

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

قام بنشر

السلام عليكم 

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

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

 

قام بنشر
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