Re: [belajar-access] Tanya Backup Data.

 

Dear mas Adi,

bisa dengan cara buat module1 sbb:

Public Sub ExportDatabaseObjects()
On Error GoTo Err_ExportDatabaseObjects
   
    Dim strExportLocation As String
       
    strExportLocation = "C:\Temp\"
   
    DoCmd.TransferText acExportDelim, , "tblPenjualanDetil", strExportLocation & "backup_" & Now() & ".txt", True
    
    MsgBox "AHA....Table Penjualan Detil Anda hari ini telah di backup pada folder... " & strExportLocation, vbInformation, "Pesan Sponsor..."
   
Exit_ExportDatabaseObjects:
    Exit Sub
   
Err_ExportDatabaseObjects:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_ExportDatabaseObjects
   
End Sub

 
eksekusi backup nya dengan Buat Button command event on click:

Private Sub cmdBackup_Click()
Call ExportDatabaseObjects
End Sub

Thank you | Terima Kasih | Matur Suksema

Sumiyanto

---

From: adi_srpd <adi_srpd@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Monday, 12 December 2011 10:17 PM
Subject: [belajar-access] Tanya Backup Data.

 

Dear rekan2 belajar-access

saya ingin tanya bagaimana cara membuat backup database access pada salah satu tabel, tetapi bukan dalam bentuk file access (*.mdb) melainkan dalam format notepad (*.txt). misal pada database penjualan kita memiliki tabel penjualan detil yang berisi (NoNota, KodeBrg, NamaBrg, Harga, Quantity dan NominalJual) dan tabel inilah yang saya maksud untuk di backup setiap hari pada suatu folder tertentu.

Mohon pencerahan rekan-rekan semua, terimakasih..

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 13

Visit Your Group

SPAM IS PROHIBITED

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___