Terima Kasih Mas Muntahar, sarannya berhasil. On 7/9/10, Muntahar <[email protected]> wrote: > prosedur backup yang sederhana hanya mengkopi file BE ke folder tertentu, > mungkin modul ini bisa membantu, silahkan kopi-paste kan ke dalam mdl baru, > misalnya mdl_backup : > > Option Compare Database > > Option Explicit > > Private Type SHFILEOPSTRUCT > hwnd As Long > wFunc As Long > pFrom As String > pTo As String > fFlags As Integer > fAnyOperationsAborted As Long > hNameMappings As Long > lpszProgressTitle As String > End Type > > Private Declare Function SHFileOperation Lib "shell32.dll" _ > Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long > > Private Const FOF_ALLOWUNDO = &H40 > Private Const FOF_NOCONFIRMATION = &H10 > Private Const FO_COPY = &H2 > > Public Function ShellFileCopy(src As String, dest As String, _ > Optional NoConfirm As Boolean = False) As Boolean > > Dim WinType_SFO As SHFILEOPSTRUCT > Dim lRet As Long > Dim lflags As Long > > lflags = FOF_ALLOWUNDO > If NoConfirm Then lflags = lflags & FOF_NOCONFIRMATION > With WinType_SFO > .wFunc = FO_COPY > .pFrom = src > .pTo = dest > .fFlags = lflags > End With > > lRet = SHFileOperation(WinType_SFO) > ShellFileCopy = (lRet = 0) > > End Function > > Public Sub backup() > Dim pesan As Boolean > On Error GoTo m > MkDir CurrentProject.Path & "\backupdata" > m: > > pesan = ShellFileCopy(CurrentProject.Path & "\data.accdb", _ > CurrentProject.Path & "\backupdata\" & Format(Now(), > "yyyymmdd-hhmmss") & ".accdb", True) > > If Not pesan Then MsgBox Err.Description > > End Sub > > > > 2010/7/9 Ahmad <[email protected]> > >> >> >> Buat teman2 milis, gimana caranya membuat backup BE yang filenya terpisah >> dari FE (link tabel) . Kalo lewat Menu FILE-BACK UP DATABASE yang >> ter-backup >> hanya FE-nya saja. >> Terima kasih sebelumnya. >> >> >> > > > > -- > --------------------------------------------- > grapyak-semanak-cluthak > http://djmumun.wordpress.com > http://facebook.com/djmumun > --------------------------------------------- >
-- Ahmad Qomaruddin Sulang Rembang email : [email protected] blog : ud13en.blogspot.com
