If IsNull(Me.GeldigiYer) Then MsgBox "GELDİĞİ YER bölümünü boş bıraktınız. Lütfen Evrakın geldiği yeri yazınız", 48, "Eksik Kayıt": Me.GeldigiYer.SetFocus: Exit Sub
If IsNull(Me.Tarih) Then MsgBox "EVRAK TARİHİ bölümünü boş bıraktınız. Lütfen Evrak tarih yazınız", 48, "Eksik Kayıt": Me.Tarih.SetFocus: Exit Sub
If IsNull(Me.AlindigiTarih) Then MsgBox "ALINDIĞI TARİH bölümünü boş bıraktınız. Lütfen Evrakın alındığı tarihi yazınız", 48, "Eksik Kayıt": Me.AlindigiTarih.SetFocus: Exit Sub
If IsNull(Me.KonununOzeti) Then MsgBox "KONUSU bölümünü boş bıraktınız. Lütfen evrakın konusunu yazınız", 48, "Eksik Kayıt": Me.KonununOzeti.SetFocus: Exit Sub
If IsNull(Me.İslemiYapacakBuro) Then MsgBox "İŞLEMİ YAPACAK BÜRO bölümünü boş bıraktınız. Lütfen İşlemi yapacak büronun adını yazınız", 48, "Eksik Kayıt": Me.İslemiYapacakBuro.SetFocus: Exit Sub

If Len(Me.GonderildigiYer) <> 0 Then
If IsNull(Me.GonderildigiTarih) Then
MsgBox "Gönderildiği TArih Alanını Doldurunuz", vbCritical, "Uyarı"
Exit Sub
End If

Bu daha iyi değilmi

If IsNull(Me.KonununYapilanVeYapilacakİsleminOzeti) Then
MsgBox "Konunun Yapılan ve Yapılacak İşlemin Özeti Alanını Doldurunuz", vbCritical, "Uyarı"

Bu daha iyi değilmi