[belajar-access] Back Up Database

----- Original Message -----
From: "Belajar Office" <belajaroffice@ymail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, January 20, 2010 4:37 PM
Subject: Re: [belajar-access] Back Up Database

Bpk kodenya untuk transfer object, bukan backup database. Barangkali yg
dimaksud Bpk file database.

FileCopy "D:\LokasiDatabase\NamaFileDatabase.mdb",
\\NamaServer\LokasiBackup\NamaFileBackup.mdb"
Thank's.

________________________________

From: "tio.adjie@ptssb.co.id" <tio.adjie@ptssb.co.id>
To: belajar-access@yahoogroups.com
Sent: Wed, January 20, 2010 3:17:29 PM
Subject: [belajar-access] Back Up Database

Dear Pakar Access,

Saya dapat kode ini dari internet, tapi kenapa ya tidak bisa saya panggil
dari suatu form. Form ini saya namakan FRMBackup. Maksud saya adalah saya
ingin memback up Database dari suatu form.

Terima kasih sebelumnya.
Tio

Public Function DoBackUp()
' Prompts user for backup location, and backs up database tables
' This is a function so that it can be run directly from a menu

Dim strFileName As String
Dim strTblName As Variant
Dim i As Integer

On Error GoTo endsub

Initialize

' Ask user to choose file name

strFileName = GetFileName( strDefaultBackup File, _
"DatabaseSekolah (*" & strBackupExtension & ")" & vbNullChar & _
"*" & strBackupExtension & vbNullChar, _
"Back up database to....", 1, 47)

If (strFileName = "") Then
' user cancelled
Exit Function
End If

' create new MDB database file

DoCmd.Hourglass True

CreateDatabase strFileName, dbLangGeneral

Form_FRMBackup. Refresh

' save all tables to backup database, except system objects
For i = 0 To intLastTableToBacku p
strTblName = strTablesToBackup( i)
DoCmd.CopyObject strFileName, strTblName, acTable, strTblName
Next i

DoCmd.Hourglass False

MsgBox "Backup Database Berhasil", , "Backup Database"
Exit Function

endsub:
DoCmd.Hourglass False

DisplayError "backup", Err.Description
End Function