Merhaba,
Vaktim kalmadığı için bukadarını yapabildim. Kodları incelerseniz fikir edinip kalanını tamamlayabilirsiniz.

Kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then

    If MsgBox("miktar boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].SetFocus

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus

    Exit Sub

    Else

    Me.Undo

    End If

ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then

    If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].SetFocus

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus

    Exit Sub

    Else

    Me.Undo

    End If

Else

DoCmd.RunCommand acCmdSaveRecord

End If

Geri alma olayında, 2. hayırda kaydın tamamını mı geri alacak, yoksa son işlemi mi geri alacak, veya kaydı tamamen mi iptal edecek anlamadım.

Ayrıca, sonraki sorularınızda konunuzu Site Kurallarına uygun olarak açarsanız memnun olurum.