اضافة تاريخ اليوم و اسم الفرع عند تصدير الى اكسيل

[AMINYOUSIF]

الاساتذة الافاضل 

مرفق ملف اكسيس 2003 (مثال بسيط ) بيسحب بيانات اكسيل من ملف AMIN بيتم علية عمليات فى استعلام Q_001 

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

 DoCmd.SetWarnings False
DoCmd.OutputTo acOutputQuery, "Q_001", acFormatXLS, CurrentProject.Path & "\ßÔÝ ÍÓÇÈ    .xls", True
DoCmd.SetWarnings ture

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

مثال :  كشف حساب -القاهرة -21-08-2020

مع الشكر 
 

TEST.rar

[ابو البشر]

تفضل ...

On Error Resume Next
 DoCmd.SetWarnings False
 a = DLookup("الفرع", "T_1")
DoCmd.OutputTo acOutputQuery, "Q_001", acFormatXLS, CurrentProject.Path & "\" & "كشف حساب" & "-" & a & "-" & Format(Date, "dd-mm-yyyy") & ".xls", True
                                                                  
DoCmd.SetWarnings ture

 

TEST.mdb

[AMINYOUSIF]

شكرك واجب مستحق 

كل الاحترام و التقدير 

شكرك واجب مستحق 

كل الاحترام و التقدير 

+1

[ابو البشر]

32 دقائق مضت, AMINYOUSIF said:

شكرك واجب مستحق 

كل الاحترام و التقدير 

شكرك واجب مستحق 

كل الاحترام و التقدير 

+1

بالعكس واجب علينا عن توفر الاجابة أن نجيب .... حياك الله

[jjafferr]

السلام عليكم 🙂

 

اذا تسمح لي اخي ابوالبشر ، ومن واقع التجربة ، الافضل عند استعمال التاريخ في اسم الملف ، ان يكون سنه - شهر - يوم ، حتى يصبح فرز اسماء الملفات في المجلد بتسلسل تاريخ الحفظ🙂 

 

DoCmd.OutputTo acOutputQuery, "Q_001", acFormatXLS, CurrentProject.Path & "\" & "كشف حساب" & "-" & a & "-" & Format(Date, "yyyy-mm-dd") & ".xls", True

 

جعفر