حفظ التقرير بصيغه الدفتر بمجلد المستندات

[النجاشي]

السلام عليكم ورحمه الله وبركاته

عيدكم مبارك مقدما كل عام وانتم بخير سالين المولى عز وجل أن يعيده علينا وعليكم وانتم في أتم الصحه والعافيه

استاتذتي الكرام 

اريد مثال يحفظ التقرير بالمستندات بصيغه الدفتر

شاكرين

ابو زاهر

[Shivan Rekany]

2 ساعات مضت, ابو زاهر said:

اريد مثال يحفظ التقرير بالمستندات بصيغه الدفتر

هل قصدك بصيغة تيكست فايل
اذا نعم اليك هذا
 

DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt"

[النجاشي]

الان بقوم بتجريته 

[النجاشي]

24 دقائق مضت, Shivan Rekany said:

هل قصدك بصيغة تيكست فايل
اذا نعم اليك هذا
 

DoCmd.OutputTo acOutputReport, "Report1", "TEXT FILES(*.Txt)", "E:\DDD.txt"

كم انت طيب القلب استاذي شفان ريكاني الله يعطيك الصحه والعافيه ممتاز جدا

 جربته حلو جدا

لكن كيف احفظ  اكثر من تقرير 

هل توجد طريقه مثلا زي طريقه النسخ الاحتياطي يراكم لي حفظ التقارير 

الف الف شكر لك يابو محمد

ياليت شرح مختصر للكود للمعرفه

تم تعديل أغسطس 19, 2018 بواسطه ابو زاهر

[النجاشي]

للرفع

[Shivan Rekany]

19 ساعات مضت, ابو زاهر said:

كيف احفظ  اكثر من تقرير 

ما قصدك ؟

19 ساعات مضت, ابو زاهر said:

DoCmd.OutputTo acOutputReport, "Report1",

اخراج تقرير بالاسم ريبورت 1 

19 ساعات مضت, ابو زاهر said:

"TEXT FILES(*.Txt)"

هناك تقوم بتحديد نوعيته ( اكسل او وورد او تيكست او .... الخ )

19 ساعات مضت, ابو زاهر said:

, "E:\DDD.txt"

وهنا مكان واسم للحفظ التقرير ريبورت1

[النجاشي]

استاذي @Shivan Rekany الكود اعجبنا 

بقرب لك الموضوع ان شاء الله تفهمني

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

اليك المثال

تحياتي اليك يالغاليDatabase1.accdb

[Shivan Rekany]

33 دقائق مضت, ابو زاهر said:

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

اتفضل استخدم هذا 
 

Private Sub أمر28_Click()
Dim RepName As String
RepName = Me.frmsubSearch_sales.Form.Rjmfatwra
DoCmd.OutputTo acOutputReport, "بحث في فواتير البيع", "TEXT FILES(*.Txt)", "E:\" & RepName & ".txt"
End Sub

سيحفظ كل تقرير باسم رقم الفاتورة

 

Database1.accdb

[النجاشي]

3 دقائق مضت, Shivan Rekany said:

اتفضل استخدم هذا 
 

Private Sub أمر28_Click()
Dim RepName As String
RepName = Me.frmsubSearch_sales.Form.Rjmfatwra
DoCmd.OutputTo acOutputReport, "بحث في فواتير البيع", "TEXT FILES(*.Txt)", "E:\" & RepName & ".txt"
End Sub

سيحفظ كل تقرير باسم رقم الفاتورة

 

Database1.accdb

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

اجيت فوق الجرح هذا ما اريده الله يجزيك كل خير 

ممتاز يابو محمد الف الف شكر يالغالي