"Fizmit" adlı formunuzun "Geçerli olduğu" olay yordamına

Private Sub Form_Current()

If SysCmd(acSysCmdGetObjectState, acForm, "FizmKoyAyrinti") <> 0 Then Exit Sub

If SysCmd(acSysCmdGetObjectState, acForm, "FizmKoymahAyrinti") <> 0 Then Exit Sub

Me.yrsec = Null

Me.Yer = Null

Me.Yeralt = Null

MsgBox "Formlar kapalı"

End Sub

yazın. Her iki formda kapalı ise istenileni yapacaktır...