اخذ نسخة احتياطية كل اسبوع

[ابو عبد الرحمن اشرف]

  في 10‏/5‏/2023 at 14:41, Moosak said:

قم بكتابة الموقع الجديد في المكان الذي ذكرته هكذا : 

"WhereToSave =  "c:\windows\Bakup

حيث أن BECurrentPath  هو اسم الدالة التي تحضر لك الموقع الحالي لقاعدة البيانات .

وكذلك عليك أن تحذف السجل المحفوظ لهذا الأسبوع من الجدول لكي يقوم البرنامج بحفظ نسخة جديدة لهذا الأسبوع .. 🙂 

 

Expand  

اخي الحبيب@Moosak

ظهر الخطأ التالي المرفق

 

[Moosak]

  في 10‏/5‏/2023 at 15:15, ابو عبد الرحمن اشرف said:

ظهر الخطأ التالي المرفق

Expand  

الظاهر من الخطأ أن الويندوز لا تسمح لك بإنشاء ملفات في مجلد الويندوز ..

بدلا من ذلك جرب عمل المجلد في الـ C مباشرة .. هكذا :

"WhereToSave =  "c:\Bakup

  في 10‏/5‏/2023 at 15:00, ابو عبد الرحمن اشرف said:

الان علمت معلومة جديدة عن هذه الدالة BECurrentPath  فبارك الله فيك اخي الحبيب

Expand  

بالمناسة هذه ليست دالة خاصة بالأكسس .. وإنما هي دالة أنا قمت بإنشاءها سابقا .. فلو احتجت أن تستخدمها في برنامج آخر يجب عليك أن تنسخها كاملة في موديول من موديولات البرنامج الجديد .. 🙂 

وهذه هي كاملة .. :

Public Function BECurrentPath()

    On Error GoTo ErrHandler

    Dim FullLinkedPath As String
    Dim LinkedDBPath As String

    FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "")

   If FullLinkedPath <> "" Then
    LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1)    
    BECurrentPath = LinkedDBPath & "\"
    
    Else
    
    BECurrentPath = CurrentProject.Path & "\"
    
    End If

ErrHandler:
    If Err.Number = 0 Then Exit Function Else
    MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description
End Function

 

[ابو عبد الرحمن اشرف]

  في 10‏/5‏/2023 at 15:51, Moosak said:

الظاهر من الخطأ أن الويندوز لا تسمح لك بإنشاء ملفات في مجلد الويندوز ..

بدلا من ذلك جرب عمل المجلد في الـ C مباشرة .. هكذا :

"WhereToSave =  "c:\Bakup

بالمناسة هذه ليست دالة خاصة بالأكسس .. وإنما هي دالة أنا قمت بإنشاءها سابقا .. فلو احتجت أن تستخدمها في برنامج آخر يجب عليك أن تنسخها كاملة في موديول من موديولات البرنامج الجديد .. 🙂 

وهذه هي كاملة .. :

Public Function BECurrentPath()

    On Error GoTo ErrHandler

    Dim FullLinkedPath As String
    Dim LinkedDBPath As String

    FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "")

   If FullLinkedPath <> "" Then
    LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1)    
    BECurrentPath = LinkedDBPath & "\"
    
    Else
    
    BECurrentPath = CurrentProject.Path & "\"
    
    End If

ErrHandler:
    If Err.Number = 0 Then Exit Function Else
    MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description
End Function

 

Expand  

تمام اخي زادك الله علما

سافوم بالتنفيذ الان واوافيك بالنتيجة 

تم تعديل مايو 10, 2023 بواسطه ابو عبد الرحمن اشرف
املاء

[ابو عبد الرحمن اشرف]

  في 10‏/5‏/2023 at 15:57, ابو عبد الرحمن اشرف said:

تمام اخي زادك الله علما

سافوم بالتنفيذ الان واوافيك بالنتيجة 

Expand  

تمت التجربة وكما قلت اخي تم انشاء مجلد علي الجذر الصلب c:\  ونجح الامر والحمد لله الذي تتم بنعمته الصالحات

جزاك الله خيرا اخي الحبيب

[Moosak]

الحمدلله 🙂

[ابوخليل]

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

 مشاركة مع اخي موسى لإثراء الموضوع

في المرفق يتم اخذ نسخة احتياطية كل اسبوع عند فتح النموذج ، بعد ان يتأكد البرنامج انها غير موجودة

اسم النسخة عبارة عن : السنة + رقم الاسبوع خلال هذه السنة

يتم البحث عن النسخة داخل المجلد .. وهنا نستغني عن الجدول لتسجيل النسخة

Dim DBOld As String
Dim DBNew As String
Dim tstfile As Integer
Dim frmtName As String
'--------------------------------
Sub tstBakUp()
Dim i, ii
i = frmtName
Dim MyFSO As New FileSystemObject, Pth As String, Fo As Folder, Fn As File
Pth = CurrentProject.Path & "\tst"
Set Fo = MyFSO.GetFolder(Pth)
For Each Fn In Fo.Files
If ii = i Then tstfile = 1
ii = MyFSO.GetBaseName(Fn)
Next Fn
End Sub
'-------------------------------------
Private Sub Form_Load()
frmtName = Year(Date) & Format(DatePart("ww", Date), "00")
DBOld = CurrentProject.Path & "\db1_Data.mdb"
DBNew = CurrentProject.Path & "\tst\"
tstBakUp
If tstfile = 1 Then
Exit Sub
Else
cpyDatbs
End If
End Sub
'----------------------------------------
 Sub cpyDatbs()
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)
Application.SetOption "Use Hijri Calendar", False
NewFile = DBNew & "\" & frmtName & ".mdb"
CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
Shell CopyMyDB, 0
Me.Requery
Exit Sub
End Sub

 

 

 

 

نسخة احتياطية كل اسبوع.rarFetching info...

[kkhalifa1960]

إلى الأستاذان أستاذ @Moosak والأستاذ @ابو خليل والله مبدعين وجزاكم الله خير على اتمام واثراء هذا الموضوع الحيوي الذي يحتاجة معظم المبرمجين . كما اني أشكر أستاذنا @ابو عبد الرحمن اشرف

على فتح هذا الموضوع واثرائه بأسئلته وحواره الموضوعي .............فشكراً جميعاً ويجعله الله في ميزان حسناتكم .

[Moosak]

  في 10‏/5‏/2023 at 21:51, ابوخليل said:

وهنا نستغني عن الجدول لتسجيل النسخة

Expand  

شكرا لك أستاذنا @ابوخليل أبدعت 🙂 

من ضمن الفوائد التي كنت وضعت من أجلها روابط النسخ الاحتياطية في جدول هو سهولة العودة إليها في حال احتجنا لإعادة ربطها بقاعدة البيانات عندما تعطب القاعدة الأصلية مثلا ..

[ابوخليل]

  في 11‏/5‏/2023 at 05:28, Moosak said:

شكرا لك أستاذنا @ابوخليل أبدعت 🙂 

من ضمن الفوائد التي كنت وضعت من أجلها روابط النسخ الاحتياطية في جدول هو سهولة العودة إليها في حال احتجنا لإعادة ربطها بقاعدة البيانات عندما تعطب القاعدة الأصلية مثلا ..

Expand  

جميل جدا استاذنا .. وحسب طريقتي اعتقد انه يمكننا اختيار القاعدة المناسبة من المجلد والارتباط بها 

[Moosak]

  في 11‏/5‏/2023 at 14:09, ابوخليل said:

جميل جدا استاذنا .. وحسب طريقتي اعتقد انه يمكننا اختيار القاعدة المناسبة من المجلد والارتباط بها 

Expand  

تتعدد الأساليب والهدف واحد 🙂👌🏻

[ابو عبد الرحمن اشرف]

  في 11‏/5‏/2023 at 01:40, kkhalifa1960 said:

إلى الأستاذان أستاذ @Moosak والأستاذ @ابو خليل والله مبدعين وجزاكم الله خير على اتمام واثراء هذا الموضوع الحيوي الذي يحتاجة معظم المبرمجين . كما اني أشكر أستاذنا @ابو عبد الرحمن اشرف

على فتح هذا الموضوع واثرائه بأسئلته وحواره الموضوعي .............فشكراً جميعاً ويجعله الله في ميزان حسناتكم .

Expand  

الله الله انت اخي @kkhalifa1960  استاذنا ومعلمنا بارك الله فيكم جميعا انما انا تلميذ لكم جميعا 

وشكري وامتناني لاساتذتي @Moosak و @ابوخليل