sayın Fascioğlu bu şekilde deneyiniz

If Me.Form.Dirty = True Then

If (IsNull(satıcıtcno.Value)) Or (IsNull(satıcıadı.Value)) Or (IsNull(telefon.Value)) Then

   MsgBox "Boş alan..!Lütfen eksik alanları doldurunuz.. ", vbOKOnly + vbCritical, "Kayıtta Eksik Bilgi": Me.satıcıtcno.SetFocus

Exit Sub

End If

Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.Close



End If