Fungsi Untuk Mengecek Apakah Sebuah Form Sedang Terbuka atau Tertutup

Untuk mengetahui atau mengecek apakah sebuah form dalam keadaan terbuka, kita dapat membuat sebuah fungsi pada VBA Access.
Gunakan fungsi berikut ini:

view plainprint?

1. Function formTerbuka(strNamaForm As String) As Boolean  
2. '------------------------------------------  
3. ' formTerbuka, mengecek form bernama strNamaForm  
4. ' sedang terbuka (form view) atau tidak  
5. '------------------------------------------  
6.   Const conFormTertutup = 0  
7.   Const conDesignView = 0  
8. On Error GoTo Err_Msg  
9.   formTerbuka = False  
10.   If SysCmd(acSysCmdGetObjectState, acForm, strNamaForm) <> _  
11.     conFormTertutup Then  
12.     If Forms(strNamaForm).CurrentView <> conDesignView Then  
13.       formTerbuka = True  
14.     End If  
15.   End If  
16. Exit_Function:  
17.   Exit Function  
18. Err_Msg:  
19.   If Err.Number = 2450 Then Exit Function  
20.   MsgBox "Error # " & str(Err.Number) & ", source: " & Err.Source & _  
21.   Chr(13) & Err.Description  
22.   Resume Exit_Function  
23. End Function  

Function formTerbuka(strNamaForm As String) As Boolean
'------------------------------------------
' formTerbuka, mengecek form bernama strNamaForm
' sedang terbuka (form view) atau tidak
'------------------------------------------
  Const conFormTertutup = 0
  Const conDesignView = 0
On Error GoTo Err_Msg
  formTerbuka = False
  If SysCmd(acSysCmdGetObjectState, acForm, strNamaForm) <> _
    conFormTertutup Then
    If Forms(strNamaForm).CurrentView <> conDesignView Then
      formTerbuka = True
    End If
  End If
Exit_Function:
  Exit Function
Err_Msg:
  If Err.Number = 2450 Then Exit Function
  MsgBox "Error # " & str(Err.Number) & ", source: " & Err.Source & _
  Chr(13) & Err.Description
  Resume Exit_Function
End Function

Variabel strNamaForm adalah nama form yang ada di dalam objek Form di Access Navigation Pane. Bila sebuah form dalam keadaan terbuka secara Form View, maka fungsi formTerbuka bernilai True. Contoh aplikasinya seperti terlihat pada Immediate Window di gambar berikut ini.

Fungsi formTerbuka bernilai False saat form frmRekUtama tidak dibuka dalam bentuk Form View

Pada gambar di atas, form frmRekUtama dalam keadaan tidak dibuka, sehingga bila fungsi formTerbuka("frmRekUtama") dijalankan, nilainya adalah False.

Fungsi formTerbuka bernilai True saat form frmRekUtama dibuka dalam bentuk Form View

Pada gambar di atas, form frmRekUtama dalam keadaan dibuka, sehingga bila fungsi formTerbuka("frmRekUtama") dijalankan, nilainya adalah True.