Membuat Form untuk Preferensi Sistem

Preferensi sistem adalah bagian yang hanya bisa diakses oleh adminstrator, fungsinya untuk melakukan pengaturan dan membuat preferensi sistem yang kita inginkan sebagai default. Pengelolaan ini bersifat khusus dan hanya bisa diaplikasikan pada sistem yang kita buat. Membuat form yang digunakan untuk mengatur sistem cukup mudah. Dengan menggunakan tabel tblSistemPref sebagai record source, kita dapat membuat form melalui tombol Forms, Form Wizard, atau Blank Form seperti telah dijelaskan posting yang lalu. Design view form ini tampak seperti pada Gambar 1.

Gambar 1

Pengaturan properti untuk form ini:

1. Navigation Buttons=No
2. Record Selectors=No
3. Allow Additions=No
4. Allow Deletions=No
5. Allow Edits=Yes

Sedangkan kode VBA yang ada pada form ini adalah sebagai berikut:

view plainprint?

1. Option Compare Database  
2. Private Sub Form_Open(Cancel As Integer)  
3.     Me.Caption = "Sistem Preferens " & Nz(IdPerusahaan("Nama"), "")  
4.     If DCount("*", "tblSistemPref") = 0 Then  
5.         Me.AllowAdditions = True  
6.     Else  
7.         Me.AllowAdditions = False  
8.     End If  
9.     If Not IsNull(Me.LoginPgn) Then Me.logout.Visible = True  
10. End Sub  
11. Private Sub GunakanNamaPgn_AfterUpdate()  
12.   Form.Requery  
13. End Sub  
14. Private Sub Form_Close()  
15.     Form_frmMenus.Visible = True  
16. End Sub  

Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    Me.Caption = "Sistem Preferens " & Nz(IdPerusahaan("Nama"), "")
    If DCount("*", "tblSistemPref") = 0 Then
        Me.AllowAdditions = True
    Else
        Me.AllowAdditions = False
    End If
    If Not IsNull(Me.LoginPgn) Then Me.logout.Visible = True
End Sub
Private Sub GunakanNamaPgn_AfterUpdate()
  Form.Requery
End Sub
Private Sub Form_Close()
    Form_frmMenus.Visible = True
End Sub