وعليكم السلام   اهلا وسهلا بك في المنتدى   عملت لك طريقتين مختلفتين ، بالرقم ، وبالنص ، وباستخدام نافذة الحفظ ، وباستخدام نافذة الحفظ التي يقدمها اكسس لحفظ اسم الملف ،   وهذا كود حدث النموذج: Option Compare Database Private strInputFileName As String Private Sub cmd_Show_PDF_Click() On Error GoTo err_cmd_Show_PDF_Click 'Call Get_File_Click Call Get_File_Click If Len(strInputFileName & "") = 0 Then Exit Sub DoCmd.OpenReport