Cara Membuat Tombol Backup Database Microsoft Access Dengan VBA (Visual Basic For Application)
Catatan:
Database ini akan di Back-Up di Folder Yang sama dengan Database Anda Sekarang
Langkah-langkahnya sbb:
1. Buat Kotak Tombol Pada Form Anda. Misal dengan nama: "Command113"
2. Ketik Kode Berikut pada propertis On_Click()
Private Sub Command113_Click()
On Error GoTo Err_Command113_Click
Dim msgValue, Cancel As Integer
msgValue = MsgBox("Hello, want to Back Up? Choose:" _
& vbCr & "(1) Yes: if you Sure!" _
& vbCr & "(2) No: if you are Not SURE" _
, vbYesNo + vbQuestion, _
"Critical Information")
If msgValue = vbYes Then
MsgBox "Anda akan membackup data ke_:" _
& vbCr & Application.CurrentProject.Path
Call fMakeBackup
ElseIf msgValue = vbNo Then
' Do Nothing
End If
Cancel = True
Err_Command113_Click:
MsgBox Err.Description
'Resume Exit_Command113_Click
End Sub
'--- Tambahkan Function fMakeBackup ---
Function fMakeBackup() As Boolean
Dim sPath As String
Dim RecordSt As Recordset
Dim dBase As Database
Dim stringSQL As String
Dim doSQL As String
Dim stDocName As String
Dim rCnt As Integer
Dim outputFileNameKu As String
Dim Source As String
Dim Target, Target1, Target2, Target3, Target4 As String
Dim RetVal As Integer
Source = CurrentDb.Name
Target = Application.CurrentProject.Path & "\BackUpDatabase2020_[" & Format(Now(), "ddd dd-mmm-yyyy hh mm AMPM") & "]" & ".accdb"
Target1 = "BackUpDatabase2020" & Format(Date, "ddmmmyyyy") & " - " & 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
Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & Target & Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) & Target1, vbInformation, "Backup Completed"
Application.FollowHyperlink CurrentProject.Path
End Function
Selamat Mencoba.
Hubungi W/A: 081277403909 jika ada pertanyaan lebih lanjut..
Mahanila Das - Director
0812-7740-3909 (HP dan WA)
0819-9109-9321 (HP)
Marketing Manager: Susanti
HP
0813-8014-2808 (HP)
0819-9108-4996 (HP dan WA)
Mahanila Engineering Menerima:
Spanduk, Banner, Sertifikat, Poster, Cover Buku dan Majalah, Brosur, Kartu Nama, Undangan, Logo, Bros, Pin, Neon Box, Sticker, Database Ms Access, Website, Blog, Desain Rumah Tinggal, Konstruksi Bangunan
Hubungi:
Mahanila Das (I Wayan Mesra Ariyawan).
HP/WA 0812-7740-3909