Yaktığınız ışıkla yolumu aydınlattınız ve sonunda Urungırıs'i çözdüm ve aşağıdaki kodla uyarlayıp değiştirdim ve hatasız çalıştı.
Kod:
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_URUNLER]![URUNAD] & ' - 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_URUNLER.URUNAD FROM tbl_URUNGIRIS INNER JOIN tbl_URUNLER ON tbl_URUNGIRIS.URUNID = tbl_URUNLER.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
Saygılarımla.