Backup Database

Langkah – langkahnya sebagai berikut

1. Buat satu buah Form dan Satu buah Command

Kemudian ketik script dibawah ini

Option Explicit

Private Sub backup()

On Error GoTo pesan

Dim data As String

Dim namafile As String

data = App.Path & "\DataPalawija.mdb"

namafile = "_" + MonthName(Month(Date)) & "_" & Year(Date)

Call FileCopy(data, cmd.FileName & namafile & ".mdb")

MsgBox "Backup Database Selesai"

Exit Sub

pesan: MsgBox " Database sedang digunakan!" & vbCr & _

"Tutup dulu jendela form yang mengakses ke databases"

Exit Sub

End Sub

Private Sub Command2_Click()

backup

End Sub

2. Yang terakhir anda tinggal menjalankanya

Tekan F5