kendi soruma kendim cevap vereyim barii

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