كود فتح مجلد ، واختيار ملف معين

[Mohameddd200300]

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

 

الموضع  برنامج عقود المهم في كود يقوم باستخراج التقريربصيغة pdf   ويحفظة  بداخل مجلد بجوار البرنامج تمام  ابغها بعد ميقوم بذي العمليه يفتح لي اللمجلد الي بجوار البرنامج وكيون ماشر علي الملف الي استخرجه كا نوع من التعلم ان هذا هوا الملف الذي قمت بي استخراجه  طبعا اسم المف يناخذ من النموذج نفسه    في ملف مرفق وشكرا لكم.

صوت الابداع.rar

[jjafferr]

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

 

لازم يكون عندك مجلد اسمه Save_Me ، في نفس مجلد برنامجك :

 

Private Sub cmd_rpt_Click()

    Dim file_name As String
    
    file_name = Application.CurrentProject.Path & "\Save_Me\Blah.pdf"
    
    DoCmd.OutputTo acOutputReport, "rpt_Name", acFormatPDF, file_name, False, , , acExportQualityPrint
    
    Shell "C:\Windows\explorer.exe /select," & file_name, vbNormalFocus
    
End Sub

.

جعفر

1305.zip