Membuat Fungsi Untuk Menentukan Lokasi Database Access

Pada aplikasi Access untuk server dan client tanpa menggunakan linked table, kita harus menentukan lokasi database di komputer server agar komputer client dapat melakukan koneksi ke database itu. Untuk menemukan lokasi database Access itu, kita bisa membuat fungsi sendiri yang disimpan dalam aplikasi Access di komputer client. Dengan demikian, bila aplikasi Access di client dikonversi ke accde, koneksi dapat dilakukan dengan aman.

Fungsi yang kita beri nama lokasiDatabase digunakan untuk menentukan lokasi database yang akan dibuka. Variabel strRst yang digunakan dapat berupa sebuah nilai string, atau ekspresi formula. Hasil fungsi lokasiDatabase berupa string. Berikut ini adalah kode VBA lengkap dari fungsi lokasiDatabase:

view plainprint?

1. Function lokasiDatabase() As String  
2.   Dim strRst As String  
3.   Dim objFSO As Object  
4. On Error GoTo Err_Msg  
5.   Set objFSO = CreateObject("Scripting.FileSystemObject")  
6.   strRst = "D:\Access\Database_be.accdb"  
7.   If objFSO.FileExists(strRst) Then  
8.     lokasiDatabase = strRst  
9.   Else  
10.     lokasiDatabase = vbNullString  
11.   End If  
12.   Set objFSO = Nothing  
13. Exit_Function:  
14.   Exit Function  
15. Err_Msg:  
16.   MsgBox "Function lokasiDatabase, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
17.   Chr(13) & Err.description  
18.   Resume Exit_Function  
19. End Function  

Function lokasiDatabase() As String
  Dim strRst As String
  Dim objFSO As Object
On Error GoTo Err_Msg
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strRst = "D:\Access\Database_be.accdb"
  If objFSO.FileExists(strRst) Then
    lokasiDatabase = strRst
  Else
    lokasiDatabase = vbNullString
  End If
  Set objFSO = Nothing
Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function lokasiDatabase, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.description
  Resume Exit_Function
End Function

Implementasi:
Bila variabel strRst berupa nilai string, maka isikan variabel strRst dalam fungsi di atas. Contoh di atas menggunakan nilai string "D:\Access\Database_be.accdb" sebagai lokasi database-nya.
Bila variabel strRst berupa ekspresi, maka isikan variabel strRst yang ada di dalam fungsi di atas dengan menggunakan ekspresi. Contoh:

view plainprint?

1. strRst = DLookup("[Nama path file database]","[Tabel Database]","[pathDefaultStatus]=True")  

strRst = DLookup("[Nama path file database]","[Tabel Database]","[pathDefaultStatus]=True")

Di mana [Nama path file database] adalah field yang nilainya diambil dari tabel [Tabel database] yang mempunyai status sebagai database default.

Tabel Database

pathfFile	pathDescription	pathDefaultStatus
D:\Access\Database_be.accdb	Database lokal	True
\\Access\Database_be.accdb	Database server	False

Dengan menggunakan tabel Tabel Database di atas, maka kita bisa mengarahkan strRst untuk memilih D:\Access\Database_be.accdb sebagai lokasi database-nya. Dengan demikikan ekspresi strRst menjadi:

view plainprint?

1. strRst = DLookup("[pathfFile]","[Tabel Database]","[pathDefaultStatus]=True")  

strRst = DLookup("[pathfFile]","[Tabel Database]","[pathDefaultStatus]=True")

sama dengan

view plainprint?

1. strRst = "D:\Access\Database_be.accdb"  

strRst = "D:\Access\Database_be.accdb"