تعديل كود حفظ نسخة ملف

[رشبد]

السلام عليكم ورحمة الله

الاخوة الكرام خبراء المنتدى عندي كود حفظ نسخة ملف اكسيس شغال 100/100  يحفظ في documents واري ان يحفظ في مجلد باسم MyBk cبداخل documents

جزاكم الله خيرا

Option Compare Database
Option Explicit


Private Sub Command1_Click()
crBkp
End Sub

Private Sub HxtyalALMaster_Click()
Dim title
With Application.FileDialog(msoFileDialogFolderPicker)
title = "Please select tha MakanTexzin folder"
.ButtonName = CurrentProject.Path
If .Show = True Then
 Me.MakanTexzin.Value = .SelectedItems(1)
 End If
 End With

End Sub
Public Function crBkp() As Boolean
Dim source As String
Dim target As String
Dim a As Integer
Dim objFSO As Object
Dim Path As String
If MsgBox("åá ÊÑíÏ ÍÝÙ äÓÎÉ áÈÑäÇãÌß¿", vbExclamation + vbYesNo) = vbYes Then
Path = CurrentProject.Path & "\"

Dim nm: nm = CurrentProject.name
source = CurrentDb.name
target = target & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb"
a = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
a = objFSO.CopyFile(source, target, True)
Set objFSO = Nothing
MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbInformation
Else
MsgBox "áã íÊã ÇáäÓÎ ", vbInformation

End If



End Function

 

[ابوخليل]

غير بهذين السطرين فقط كما هو موضح

Public Function crBkp() As Boolean

Path = CurrentProject.Path & "\MyBk\"

target = Path & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb"

End Function

 

[رشبد]

جزاك الله خيرا اساد ابو خليل

عملت ما قلت ولكن فيه خطأ الملف في الدسك طوب

ولما نقلته الى documents شغال 

كيف الحل

 

حفظ نسخة.accdb

تم تعديل أبريل 14, 2023 بواسطه رشبد

[ابوخليل]

غير السطر 

Path = CurrentProject.Path & "\MyBk\"

الى

Path= "C:\Users\myuser\Documents\MyBk\"

او الى

Path= "C:\Users\myuser\Documents\MyBk"

 

لا حظ  يجب تغيير   myuser الى اسم المستخدم عندك في وندوز

[رشبد]

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

تم الامر بنجاح

بارك الله فيكم وزادكم من فضله