f_sarfalt isimli alt formun kayıt kaynağını aşağıdaki ile değiştir.

SELECT *, [sarf_kalite] & "-" & [sarf_tip1] & "-" & [sarf_tip2] & "-" & [sarf_tip3] & "-" & [sarf_ebat] & "-" & [sarf_renk] & "-" & [sarf_fiyat] & "-" & [sarf_dovtip] & "-" & [sarf_not] AS GSarfKriter  FROM sarf; 

f_sarfalt isimli alt formdaki sarf_adet metin kutusunun güncelleştirme sonrasında olayındaki kodu aşağıdaki ile değiştir.

Dim GStokMiktari, GSarfMiktari As Integer



GStokMiktari = Dlookup ("Fark", "srg_sonuc", "GSatinAlmaKriter='" & Me.GSarfKriter & "'")

GSarfMiktari = Me.sarf_adet



If GSarfMiktari > GStokMiktari Then

    MsgBox ("Stok Miktarından Daha Fazla Sarf miktarı Girdiniz." & Chr(13) & Chr(10) & "Stok Miktarı :" & GStokMiktari & ", Sarf Miktari: " & GSarfMiktari)

    Me.Undo

    Exit Sub

Else

    [Forms]![f_sarfust].Requery

    Forms!f_sarfust.Form!Listekutusu.Requery

End If

Ayrıca, üst formdaki liste kutusunun çift tıklandığında olayındaki kodun en altına aşağıdaki kodu eklersen liste kutusuna çift tıkladığında alt formda son kayda gider.

 Me.f_sarfalt.SetFocus

    DoCmd.GoToRecord , , acLast

    [f_sarfalt].Form![sarf_adet].SetFocus