Fungsi Menampilkan Satu Record Dalam Aplikasi Database Back-end dan Front-end

Fungsi berikut ini digunakan untuk menampilkan satu record dengan primary key tertentu sebagai kriterianya. Untuk menampilkan satu record, kita bisa membuat fungsi menampilkanSatuRecord seperti berikut ini.

Dalam sebuah jaringan yang melibatkan banyak pengguna dalam mengakses database back-end yang sama, fungsi menampilkanSatuRecord dapat meningkatkan kecepatan mengakses data. Pengguna hanya perlu memasukkan nilai kriteria yang dibutuhkan, aplikasi front-end kemudian mengirimkan perintah ke back-end untuk memilih record sesuai dengan kriteria ini. Selanjutnya, front-end kemudian menampilkannya.

Berikut adalah fungsi menampilkanSatuRecord.

view plainprint?

1. Function menampilkanSatuRecord(frm As Form, strSql As String, Optional boolEdit As Boolean = False)  
2.   Dim rs As DAO.Recordset  
3.   Dim fld As Field  
4.   Dim ctl As Control  
5.     
6. On Error GoTo Err_Msg  
7.   If Not cekDbsTerbuka Then membukaDbs  
8.     
9.   If boolEdit Then Set rs = membukaRecordset(strSql, True) Else Set rs = membukaRecordset(strSql)  
10.   With frm  
11.     For Each ctl In .Controls  
12.       For Each fld In rs.Fields  
13.         If fld.Name = ctl.Name And fld.Type <> DB_OLE Then  
14.           .Controls(fld.Name).Value = fld.Value  
15.         End If  
16.       Next fld  
17.     Next ctl  
18.     
19.   End With  
20.   
21. Exit_Function:  
22.   Exit Function  
23. Err_Msg:  
24.   MsgBox "Function menampilkanSatuRecord, Error # " & str(Err.Number) & ", source: " & Err.Source & _  
25.   Chr(13) & Err.description  
26.   Resume Exit_Function  
27.     
28. End Function  

Function menampilkanSatuRecord(frm As Form, strSql As String, Optional boolEdit As Boolean = False)
  Dim rs As DAO.Recordset
  Dim fld As Field
  Dim ctl As Control
  
On Error GoTo Err_Msg
  If Not cekDbsTerbuka Then membukaDbs
  
  If boolEdit Then Set rs = membukaRecordset(strSql, True) Else Set rs = membukaRecordset(strSql)
  With frm
    For Each ctl In .Controls
      For Each fld In rs.Fields
        If fld.Name = ctl.Name And fld.Type <> DB_OLE Then
          .Controls(fld.Name).Value = fld.Value
        End If
      Next fld
    Next ctl
  
  End With

Exit_Function:
  Exit Function
Err_Msg:
  MsgBox "Function menampilkanSatuRecord, Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.description
  Resume Exit_Function
  
End Function

Fungsi menampilkanSatuRecord cocok digunakan pada lingkungan database front-end. Kita menggunakan fungsi itu untuk menampilkan record yang sesuai dengan kriteria tertentu. Setelah record ditampilkan, kelak kita bisa melakukan pembaharuan maupun penghapusan record.
Ada tiga fungsi lain yang terlibat dalam fungsi ini:

1. cekDbsTerbuka, memeriksa apakah database back-end dalam keadaan sudah terbuka atau belum.
2. membukaDbs, bila database back-end masih belum terbuka, maka fungsi ini akan membuka database back-end
3. membukaRecordset, membuka recordset (yang sesuai dengan kriteria tertentu)

Untuk mengaplikasikan fungsi menampilkanSatuRecord, ikuti cara di bawah ini:

1. Buatlah form seperti dijelaskan di Memuat Properti Field Tabel ke Dalam Properti Control di Form di Access.
2. Di bagian atas dari control Kode Rekening, sisipkan beberapa control berikut ini:
   
   1. Text box dengan label menempel:
      
      1. Name=txtKriteria
      2. Caption untuk label=Masukkan Kode Rekening
   2. Command Button (Form Control):
      
      1. Name=cmdTampilkan
   3. Text box tanpa label:
      
      1. Name=txtInfo
3. Hasil akhir seperti gambar di bawah ini:
   
   
4. Atur properti form untuk event Time Interval=4000 (sama dengan 4 detik)

Pada modul form (class module) isikan kode VBA berikut ini:

view plainprint?

1. Option Compare Database  
2. Private Const strNamaTabel = "tblRekUtama"  
3. Private Const strPrimaryKey = "KodeRek"  
4.   
5. Private Sub cmdTampilkan_Click()  
6.   Dim strKriteria As Variant  
7.   Dim strSql As String  
8.     
9.   strKriteria = membuatKriteriaString(strPrimaryKey, strNamaTabel, Me.txtKriteria)  
10.   strSql = "SELECT * FROM " & strNamaTabel & " WHERE " & strKriteria  
11.   If adaNilaiField(strPrimaryKey, strNamaTabel, CStr(Me.txtKriteria)) Then  
12.     menampilkanSatuRecord Me, strSql  
13.   Else  
14.     Me.txtInfo = "Tidak ditemukan, Kode Rekening: " & Me.txtKriteria  
15.   End If  
16. End Sub  
17.   
18. Private Sub Form_Open(Cancel As Integer)  
19.   If Not cekDbsTerbuka Then membukaDbs  
20. End Sub  
21. Private Sub Form_Timer()  
22.   If Me.txtInfo <> "" Then Me.txtInfo = ""  
23. End Sub  

Option Compare Database
Private Const strNamaTabel = "tblRekUtama"
Private Const strPrimaryKey = "KodeRek"

Private Sub cmdTampilkan_Click()
  Dim strKriteria As Variant
  Dim strSql As String
  
  strKriteria = membuatKriteriaString(strPrimaryKey, strNamaTabel, Me.txtKriteria)
  strSql = "SELECT * FROM " & strNamaTabel & " WHERE " & strKriteria
  If adaNilaiField(strPrimaryKey, strNamaTabel, CStr(Me.txtKriteria)) Then
    menampilkanSatuRecord Me, strSql
  Else
    Me.txtInfo = "Tidak ditemukan, Kode Rekening: " & Me.txtKriteria
  End If
End Sub

Private Sub Form_Open(Cancel As Integer)
  If Not cekDbsTerbuka Then membukaDbs
End Sub
Private Sub Form_Timer()
  If Me.txtInfo <> "" Then Me.txtInfo = ""
End Sub

Bila form dibuka dengan mode Form View, hasilnya seperti animasi berikut ini:

 Animasi di atas merupakan hasil pemisahan database back-end dengan front-end. Form frmRekUtama merupakan front-end, sedangkan isi record seperti kode rekening 111 dan 112 di simpan di database back-end.

Dengan cara ini, Access hanya akan menampilkan record yang diperlukan saja. Front-end, melalui perintah Masukkan Kode Rekening mengirimkan permintaan ke database back-end untuk menampilkan kode rekening yang diminta. Bila kode rekening tidak ada, maka akan muncul pesan Tidak ditemukan, Kode Rekening: xxx. Sebaliknya, bila ada kode rekening, maka akan record dengan kode rekening yang dimaksud akan ditampilkan, seperti kode rekening 111 dan 112.