Search This Blog

Memeriksa Apakah Sebuah Form Dalam Kondisi Terbuka

Jika anda meng-assign sebuah nilai ke sebuah control misalnya text box pada form dan form tersebut dalam kondisi tertutup maka anda akan menerima pesan kesalahan (error messages). Oleh karena itulah sebelum meng-assign nilai tersebut kita harus memeriksa apakah form tersebut dalam keadaan terbuka atau tertutup.

Microsoft Access tidak menyediakan fungsi khusus untuk memeriksa form dalam kondisi tertutup atau terbuka. Maka kita harus membuat fugsi sendiri untuk memeriksa kondisi form tersebut. Berikut adalah fungsi untuk memeriksa apakah form terbuka atau tidak:
Public Function IsLoaded(strName As String) As Integer
Const conFormDesign = 0
Dim intX As Integer

IsLoaded = False
For intX = 0 To Forms.Count - 1
  If Forms(intX).FormName = strName Then
      If Forms(intX).CurrentView <> conFormDesign Then
          IsLoaded = True
          Exit Function
      End If
  End If
Next intX

End Function


Keterangan:
- Fungsi IsLoaded disimpan dalam Module
- Fungsi IsLoaded memerlukan sebuah parameter string berupa nama form
- Fungsi IsLoaded dideklarasikan sebagai Public agar dapat dipanggil di semua bagian program dalam file Microsoft Access


Cara menggunakan fungsi ini adalah:

frmAktif = IsLoaded(NamaForm)

Variabel frmAktif akan bernilai True jika nama form yang dikirim sebagai parameter IsLoaded dalam kondisi terbuka, dan akan bernilai False jika form dalam keadaan tertutup.

Contoh cara penggunaan funsi IsLoaded:
Private Sub cmdCekForm_Click()
Dim txtNamaForm As String
Dim frmAktif As Boolean

txtNamaForm = "Form2"

frmAktif = IsLoaded(txtNamaForm)

If frmAktif = True Then
  MsgBox "Form 'Form2' dalam kondisi aktif/terbuka !", vbInformation, "Percobaan"
Else
  MsgBox "Form 'Form2' dalam kondisi tidak aktif/tertutup !", vbInformation,"Percobaan"
End If

End Sub


Silakan download contoh program ini di sini.
- File yag di-download adalah dalam bentuk ZIP file.
- Setelah file di-download extrat file tersbut.
- File yang ada dalam ZIP file adalah db4.mdb dalam format Microsoft Access 2000.
- Setelah file di-extrat buka file db4.mdb dengan cara men-double klik file tersebut.
- Buka Form1 lalu klik tombol yang ada pada form tersebut, akan ada pesan bahwa Form2 tidak aktif.
- Sekarang buka Form2 sehingga form yang dibuka menjadi 2 buah yaitu Form1 dan Form2.
- Sekarang Klik tombol pada Form1, maka pesan yang muncul sekarang memberitahu anda bahwa Form2 dalam kondisi Aktif atau terbuka.

last update 16 April 2013

No comments: