kodun tamamı aşağıdaki gibi olmalı

If IsNull(Me.alistarihi) Then

    MsgBox ("Alış Tarihi alanı boş bırakılamaz!")

    Me.alistarihi.SetFocus

ElseIf IsNull(imeino) Then

    MsgBox ("Imei No alanı boş bırakılamaz!")

    Me.imeino.SetFocus

ElseIf IsNull(markaadi) Then

    MsgBox ("Marka Adı alanı boş bırakılamaz!")

    Me.markaadi.SetFocus

ElseIf IsNull(modeladi) Then

    MsgBox ("Model Adı alanı boş bırakılamaz!")

    Me.modeladi.SetFocus

ElseIf IsNull(tedarikturu) Then

    MsgBox ("Tedarik Türü alanı boş bırakılamaz!")

    Me.tedarikturu.SetFocus

ElseIf IsNull(alisfiyati) Then

    MsgBox ("Alış Fiyatı alanı boş bırakılamaz!")

    Me.alisfiyati.SetFocus

ElseIf IsNull(satisilkfiyati) Then

    MsgBox ("Satış Fiyatı alanı boş bırakılamaz!")

    Me.satisilkfiyati.SetFocus

Else

    Me.Gmarka = ""

    Me.GModel = ""

    MarkaModelGuncelle

    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Kaydedildi..", vbInformation, "Kaydedildi"

    DoCmd.GoToRecord , , acNewRec

End If