كل لما اجي اعمل نسخه احتياطيه لقاعدة البيانات بيقول permission denied
مع العلم ان database برقم سري وبفتحها كده
Set db = DBEngine.Workspaces(0).OpenDatabase(DBpath & "source.mdb", false, False, ";pwd=55665566")
والنقل عادي خالص كده
With CommonDialog1
.Filter = "DataBase File (*.mdb)|*.mdb"
.Filename = ""
.ShowSave
If .Filename <> "" Then
db.Close
'DBpath = App.Path & "\Data\source.mdb"
FileCopy (DBpath & "source.mdb"), .Filename
MsgBox ""
End If
End With
ارجو الرد السريع لان البرنامج واقف على دي