حفظ نسخة في مجلد معين

[سامر محمود]

الاخوة الكرام الافاضل 

تحية طيبة وبعد،،،

كنت محتاج مساعدة حضراتكم في حفظ نسخة في مجلد معين الكود ده مش بيحطها في المكان اللي انا عايزه

Dim StrFolder As String
StrFolder = BrowseFolder("اختر مجلدا للحفظ")
On Error GoTo MyErr
If IsNull(StrFolder) Then
[txtv] = Null
Else
[pate_copy] = Left(StrFolder, Len(StrFolder) - 1)
End If
MyErr:
If err.Number <> 0 And err.Number <> 5 Then
MsgBox "لم تقم بتعبئة بيانات حفظ النسخة الاحتياطية", , "لوحة التحكم"
End If

[kanory]

جرب هذا مع تعديل المكان المطلوب <><><><><><>

    Dim Source As String
    Dim Target As String
    Dim retval As Integer
    
    Source = CurrentDb.Name
  ' عدل هذا حسب المكان المطلوب C:\Users\Documents
  ' عدل هذا حسب اسم الملف FileName
    Target = "C:\Users\Documents\FileName"
    Target = Target & Format(Date, "dd-mm") & " "
    Target = Target & Format(Time, "hh-mm") & ".accdb"
    
    ' create the backup
    retval = 0
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    retval = objFSO.CopyFile(Source, Target, True)
    Set objFSO = Nothing

 

[سامر محمود]

22 ساعات مضت, kanory said:

جرب هذا مع تعديل المكان المطلوب <><><><><><>

    Dim Source As String
    Dim Target As String
    Dim retval As Integer
    
    Source = CurrentDb.Name
  ' عدل هذا حسب المكان المطلوب C:\Users\Documents
  ' عدل هذا حسب اسم الملف FileName
    Target = "C:\Users\Documents\FileName"
    Target = Target & Format(Date, "dd-mm") & " "
    Target = Target & Format(Time, "hh-mm") & ".accdb"
    
    ' create the backup
    retval = 0
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    retval = objFSO.CopyFile(Source, Target, True)
    Set objFSO = Nothing

 

@kanory

اشكرك اخي الكريم علي الاستجابة بس محتاج خبرتك ضروري في الخظار الظاهر في الصورة 

اكون شاكر فضلك جدا

[kanory]

منذ ساعه, سامر محمود said:

اشكرك اخي الكريم علي الاستجابة بس محتاج خبرتك ضروري في الخظار الظاهر في الصورة 

اكون شاكر فضلك جدا

طيب شوف الصورة وطبق ........

قص العبارة المشار اليها برقم 1 وضعها مكان الجزء من السطر المشار اليه برقم 2

امسح السطر المشار اليه برقم 3

جرب واعلمنا ....

 

[سامر محمود]

17 دقائق مضت, kanory said:

طيب شوف الصورة وطبق ........

قص العبارة المشار اليها برقم 1 وضعها مكان الجزء من السطر المشار اليه برقم 2

امسح السطر المشار اليه برقم 3

جرب واعلمنا ....

 

@kanory

الاخ الكريم بشكرك والله علي تعبك 

هو انا نفذت اللي حضرتك قولته بالظبط بس الزرار مفيش فيه اي استجابة خالص يعني مش بيفتح مكان للحفظ

[kanory]

7 دقائق مضت, سامر محمود said:

هو انا نفذت اللي حضرتك قولته بالظبط بس الزرار مفيش فيه اي استجابة خالص يعني مش بيفتح مكان للحفظ

الطريقة السابقة ليس فيها اختيار مكان الحفظ .. بل يحفظ تلقائيا في المسار المحدد مسبقا في الكود المشار اليه برقم واحد ... اذهب للمسار وشاهد هل هنا ملف محفوظ ام لا 

[سامر محمود]

@kanory

اخي الكريم هي الحقيقة بردو زي ما هي مش بتحفظ بردو 

بس انا تعبتك معايا وشاكر فضلك 

[kanory]

3 ساعات مضت, سامر محمود said:

@kanory

اخي الكريم هي الحقيقة بردو زي ما هي مش بتحفظ بردو 

بس انا تعبتك معايا وشاكر فضلك 

اخي @سامر محمود لا عليك .. جرب المرفق هذا ....................

 

test_kanory.accdb

[سامر محمود]

@kanory

الاخ الكريم العزيز زادك الله علماً بصراحة حاجة رائعة بجد

لو تسمح لي ارفق لحضرتك فكرة الموضوع بتاعي علشان بس تسعدني علي موضوع تحديد مكان الحفظ ومن ثم عمل النسخة لان البرنامج عندي الجداول مرتبطة مش مع النماذج فحابب اخد نسخة من النماذج لوحدها والجداول اللي مكان اخر نسخة بردو 

خالص تحياتي وشكرى لحضرتك

Emp&Imp.accdb

Emp&Imp.accdb

معلش عذا هي النسخة الاخيرة