Cara Membuat Tombol Backup Database Microsoft Access Dengan VBA (Visual Basic For Application)

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

KLIK

DONASI VIA PAYPAL Bantu berikan donasi jika artikelnya dirasa bermanfaat. Donasi akan digunakan untuk memperpanjang domain Website ini https://slokagita.blogspot.com. Terimakasih atas dukungan Anda.

Share Share