السلام عليكم اخى سعيد صواب
تفضل هذا البرنامج .. بصيغة 2010 ---BackUpControl.rar
وبصيغة 2003 ---x.rar
اليك طريقة العمل .. اذا كان مثلا لديك 5 مستخدمين يمكنك ان تجعل منهم مستخدم هو ال admin وهو يقوم بالعملية
او تجعل اي نسخه لدى اى مستخدم منهم (مثلا اكثر مستخدم يقوم باستخدام برنامجك) وتضع بها محتويات المرفق بعاليه
ثم تقوم بمنادة الكود عند حدث الخروج من النموذج الرئيسي مثلا او اي شى ترغب به سواء مثلا زر امر بهذا الامر
vback
والكود الموجود بالوحدة النمطية هو
Option Compare Database
Public Function vback()
Dim DBOld As String
Dim DBNew As String
Dim BackUpname As String
Dim BackUpType As String
DBOld = DLookup("pate1", "copy1") ' ÞÇÚÏÉ ÈíÇäÇÊ ÇáãÑÊÈØÉ
DBNew = DLookup("pate_copy", "copy1") ' ãßÇä ÍÝÙ ÇáäÓÎÉ
BackUpname = DLookup("c_ymd", "copy1")
BackUpType = DLookup("cv", "copy1")
Dim vvs
If BackUpname = 1 Then
vvs = Format(Now(), "yyyy-mm-dd-hh")
ElseIf BackUpname = 2 Then
vvs = Format(Now(), "yyyy-mm-dd")
ElseIf BackUpname = 3 Then
vvs = Format(Now(), "yyyy-mm")
ElseIf BackUpname = 4 Then
vvs = Format(Now(), "yyyy")
End If
Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _
DBNew & "\" & vvs & BackUpType & """", 0
End Function
تحياتى لك .. وجاهز باى رد
وتحية للسيد ابو خليل هو من امدانى بهذه الطريقة فى هذا الرابط
تعتبر فعلا عملية نسخ ولصق .. ولا تؤثر على عمل القاعدة الخلفية بتاتاً
وهذه محاولة اخري للفائدة .. وهى لاستاذ ابا فيصل (strtnet) بارك الله فيه
BackUp2003-2007.rar