Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
Dim oAccessObject As AccessObject
Set oAccessObject = CurrentProject.AllForms(strFormName)
If oAccessObject.IsLoaded Then
If oAccessObject.CurrentView <> acCurViewDesign Then
IsLoaded = True
End If
End If
End Function
Bu kodlar modül için. Bu kodu, modüller bölümünde yeni kayıt açıp yapıştırın
ve kayıt edin.
If IsLoaded ( "kontrol_edilecekformadı" ) Then
Eylemi yap
Else
Vazgeç veya başka eylem yap
End If
Benim kod bankamda varolan bir çalışma. Kim hazırlamış bilmiyorum. Kolay gelsin
Çok sayıda form varsa o zaman son bölümü if..then yerine select...case ile yapmanız daha akıllıca olacaktır.