السلام عليكم ورحمة الله وبركاته وبعد ... أعضاء المنتدى المحترمون لحفظ نسخة احتياطية من برنامجي أستخدم الكود التالي : Private Sub Cmd1_Click()     Set khaher = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(4) .AllowMultiSelect = False .ButtonName = "حفظ" .Title = "حفظ نسخة من قاعدة البيانات" If .Show = True Then [AsA] = .SelectedItems(1) khaher.CopyFile CurrentDb.name, Me.AsA & _ "\" & Replace(CurrentProject.name, ".MDB", "") & _