كيف أعمل نسخة من البيانات وأفرغ الجداول بعد ذلك آليًا ؟

هل من إجابة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ارجو من الإخوة الأعضاء والمشرفين الاهتمام بهذا الموضوع ومن لديه علم فليجد به

لأن هذا الموضوع مهم وخاصة إذا كان عدد الجداول كبير وعدد الحقول بالجداول كبير

ولم تفلح معي استعلامات الحذف

أما عن عمل نسخة من البرنامج ووضعها في مجلد بنفس المسار فهي كالتالي

 Option Compare Database
Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB

Private Sub Command0_Click()
Dim fs As Object
Dim a As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.Createfolder(CurrentProject.Path & "\copy " & Format(Date, "yyyy-mm-dd"))

OldFile = CurrentProject.Path & "\data.mdb"
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = CurrentProject.Path & "\copy " & Format(Date, "yyyy-mm-dd") & "\" & DBwithoutEXT & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0

OldFile = CurrentProject.Path & "\اسم برنامجك.mde"
DBwithEXT = Dir(OldFile)
DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)
NewFile = CurrentProject.Path & "\copy " & Format(Date, "yyyy-mm-dd") & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM") & Right(DBwithEXT, 4)
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0

MsgBox "تم عمل مجلد ونسخ البرنامج به"
End Sub

حيث data اسم قاعدة الجداول وتضع اسم برنامجك في مكانه

وإذا لم يكن البرنامج مقسم فنحذف الجزء الخاص بنسخ القاعدة data من أول oldfile إلى shell

ياريت الإخوة يفيدونا في حكاية حذف محتويات الجداول

محمد صالح

وهذا كود آخر لعمل مجلد من خلال الدوس

 Shell "cmd.exe /c md " & CurrentProject.Path & "\mas_" & Format(Date, "yyyy-mm-dd"), 0

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

جهد ممتاز