Các bạn ơi có ai giúp dùm mình cách backup dataase theo ngày tháng chỉ định với !
Nội Dung : Mình muốn xuất ra 1 file lưu theo từng tháng ( tháng 1 /2013 ; tháng 2 /2013 ... ) và 1 file tổng hợp
Vd : tôi muốn xuất 1 fiel lưu tất có trong tháng 1 hoặc tháng 2 trong năm 2013

Bạn tạo 1 module
Function BackupDUPHONG() As Boolean

Dim Source As String
Dim Target As String
Dim retval As Integer
Source = CurrentDb.Name

Target = "E:\LUUDUPHONG\luuthang"
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
MsgBox "Sao luöu döõ lieäu thaønh coâng", , "Thoâng baùo"
End Function
--------
Target = "E:\LUUDUPHONG\luuthang"
bạn điều chỉnh lại cho phù hợp nha.

Lỗi :
retval = objFSO.CopyFile(Source, Target, True)

Bổ sung thư viện hàm vào: Microsoft Office 14.0 Object Library

(05-02-14, 01:25 AM)morosumo Đã viết: Bạn tạo 1 module
Function BackupDUPHONG() As Boolean

   Dim Source As String
   Dim Target As String
   Dim retval As Integer
Source = CurrentDb.Name

   Target = "E:\LUUDUPHONG\luuthang"
   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
MsgBox "Sao luöu döõ lieäu thaønh coâng", , "Thoâng baùo"
End Function
--------
Target = "E:\LUUDUPHONG\luuthang"  
bạn điều chỉnh lại cho phù hợp nha.

nếu muốn back up cả frontend và backend thì sao bạn?