Sayın Ozan Hocam,
Urungırıs için aşağıdaki uygulamayı yaptım
SELECT TOP 1 tbl_KASA.ISLEMTARIHI, tbl_KASA.GELIRCESIDI, tbl_KASA.GIDERCESIDI, tbl_KASA.NAKIT1

 FROM tbl_KASA
WHERE (((tbl_KASA.ISLEMTARIHI)=[Formlar]![frm_URUNGIRIS]![ISTAR]) AND ((tbl_KASA.GIDERCESIDI) Is Null));


Private Sub gırısfıyatı_AfterUpdate()
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
 
    DoCmd.RunCommand acCmdSaveRecord
   DoCmd.SetWarnings False
       If DCount("*", "srg_boskontrol3") > 0 Then
           DoCmd.RunSQL "UPDATE srg_boskontrol3 SET srg_boskontrol3.GIDERCESIDI = [Formlar]![frm_URUNGIRIS]![URUNID] & ' - Satınalma', srg_boskontrol3.NAKIT1 = [Formlar]![frm_URUNGIRIS]![GIRISFIYATI] WHERE (((srg_boskontrol3.ISLEMTARIHI)=[Formlar]![frm_URUNGIRIS]![GIRISFIYATI]));"
       Else
           DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_URUNGIRIS.ISTAR, tbl_URUNGIRIS.GIRISFIYATI, tbl_GIRISFIYATI.URUNAD FROM tbl_URUNGIRIS INNER JOIN tbl_URUNGIRIS ON tbl_URUNGIRIS.URUNID = tbl_URUNGIRIS.URUNID WHERE (((tbl_URUNGIRIS.ISTAR)=[Formlar]![frm_URUNGIRIS]![ISTAR]) AND ((tbl_URUNGIRIS.GIRISFIYATI)=[Formlar]![frm_URUNGIRIS]![GIRISFIYATI]));"
       End If
   DoCmd.SetWarnings True
Else
   Me.Undo
End If
End Sub


Hata vermedi ama sonuçta vermedi.
Saygılarımla.