السلام عليكم ورحمه الله وبركاته
انا عندي قاعده بيانات منقسمة الي جزئين الجزء الاول شاشات الادخال
والجزء الثاني الداتا
وكنت محتاج اعمل باك اب للداتا
انا عملت كود لعمل الباك اب لكن مش عارف اعمل استرجاع للداتا لانها منفصله وده الكود
انا جيت في نموذج وانشاءت حدث عن التحميل وضفت الكود ده
[DBOld] = "E:\T-Form\data\data.mdb"
[DBNew] = "E:\Backup"
حرف الـــ E
ده عنوان البرتيشن
و T-Form
ده الفولدر الموجود فيه القاعده
و data تعني الفولد الموجود في الداتا
و data.mdb ده ملف الداتا اللي باخد منه باك اب
و E:\Backup ده العنوان اللي بيتم وضع الباك اب فيه
.............................
وجيت في نفس النموذج اضفت حدث عند الاغلاق ووضع الكود ده
On Error Resume Next
Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
OldFile = [DBOld]
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = [DBNew] & "\" & Format(Now, "yyyymmdd") & ""
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Exit Sub
كنت محتاج كود من خلال الكود ده اعمل استرجاع للقاعدة في الداتا نفسها لان حولت كتير لكن للاسف بيتم استرجاع الملف لكن بيقوم بحذف الربط ما بين املفين ولو حولت اربط تاني القي الداتا هيا هيا