COPY - PASTE File Menggunakan VBA di Microsoft Access

COPY - PASTE File Menggunakan VBA di Microsoft Access - Hallo semua sahabat msaccesseveryday.blogspot.com semoga semua dalam keadaan sehat wal afiat dipagi yang cerah ini, pada kesempatan kali ini kita akan sharing bagaimana sih copy-paste sebuah file menggunakan kode vb script pada aplikasi microsoft access.

Biasa tujuan dari menggunakan script copy-paste ini, yaitu untuk memudahkan user disaat ada closing dari program, baik closing program itu dalam rentan waktu bulanan, ataupun tahunan. Jadi untuk berpindah ke program baru tentu harus menggunakan database baru dengan transaksi yang masih kosong. jika sudah sediakan tombolnya tinggal klik satu kali, maka kita sudah pada posisi program yang baru dengan periode yang baru tentunya.

Buka tab Create pilih Module, silahkan copas codenya dibawah ini:

Function CopyFile(strSource As String, strDest As String) As Boolean
On Error GoTo CopyFile_Error

    FileCopy strSource, strDest
    CopyFile = True
    Exit Function

CopyFile_Error:
    If Err.Number = 0 Then
    ElseIf Err.Number = 70 Then
        MsgBox "The file is currently in use and therfore is locked and cannot be copied at this" & _
               " time.  Please ensure that no one is using the file and try again.", vbOKOnly, _
               "File Currently in Use"
    ElseIf Err.Number = 53 Then
        MsgBox "The Source File '" & strSource & "' could not be found.  Please validate the" & _
               " location and name of the specifed Source File and try again", vbOKOnly, _
               "File Currently in Use"
    Else
        MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
               Err.Number & vbCrLf & "Error Source: ModExtFiles / CopyFile" & vbCrLf & _
               "Error Description: " & Err.Description, vbCritical, "An Error has Occured!"
    End If
    Exit Function

End Function

Silahkan simpan dengan nama: mod_CopyFile

Untuk memanggil fungsi CopyFile tersebut ikuti kode seperti dibawah ini:

CopyFile "F:\GL_2017_DB.mdb", "F:\GL_2018_DB.mdb""

Jika sukses, silahkan lihat hasilnya di drive F: dengan file yang baru namanya F:\GL_2018_DB.mdb"

Demikian, cara menggunakan code copy-paste file dimicrosoft access, semoga bermanfaat.

Terimakasih

Tweet

Subscribe to receive free email updates: