Sondaki end if yanlış yerde

If IsNull(Me.Teknik_Özellikleri) Then

    MsgBox "Lütfen Teknik Özellikleri Belirtiniz", 48, "Kayıt İşlemi"

    Me.Teknik_Özellikleri.SetFocus

    Exit Sub



End If



If IsNull(Me.Miktar) Then

    MsgBox "Lütfen Miktar Belirtiniz", 48, "Kayıt İşlemi"

    Me.Miktar.SetFocus

    Exit Sub

    

End If



    DoCmd.RunCommand acCmdRefresh

    

    If MsgBox("Değişiklikler kaydediliyor!", 36, "Kayıt İşlemi") = 6 Then

        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

         



        satinalma_durumu = 7

        MsgBox "Siparişiniz Satınalma Birimine Yönlendirildi"



    End If

çalışmaz ise örnek uygulamanızı ekleyiniz