If Dlookup ("spor_ıd", "sportest", "DURUMU='İZİNDE' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='HASTANEDE' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='GÖREVLİ' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='RAPORLU' ") Then
MsgBox "PERSONELİN GİRİLMEYEN TESTİ BULUNMAKTADIR YAPTIGINIZ KAYIT SİLİNECEKTİR YİNEDE KAYIT YAPMAK İSTİYORSANIZ KAYITLAR SİLİNDİKTEN SONRA DURUMU KISMINI DEĞİŞTİRMEDEN KAYIT YAPABİLİRSİNİZ!", vbCritical, "TEST UYARI"
Me.sınav = ""
Me.mekik = ""
Me.barfiks = ""
Me.trh = ""
Me.kosu = ""
Me.testler = ""
Exit Sub
Else
End If
kendi soruma kendim cevap vereyim barii