If IsNull(DLookup(Nz([MASAID], 0), "MASAISLEMLERI", "[ADISYONDURUM]=" & "'ACIK'")) Then
DoCmd.Close acForm, "QGUNKAPANIS"
Else
MsgBox ("açık masa var")
End If
kapat butonunun tıklandığında olayına