sizin srg_boskontrol3 isimli sorguda sıkıntı yok, ancak kod içerisindeki güncelleştirme ve/veya ekleme sorgusunda sıkıntı var.
20. mesaja eklediğiniz kodu aşağıdaki ile değiştiriniz.
Private Sub gırısfıyatı_AfterUpdate()
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
Dim GUrunAdi As String
GUrunAdi = Me.urunıd.Column(1) & " - Satınalma"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
If DCount("*", "srg_boskontrol3") > 0 Then
DoCmd.RunSQL "UPDATE srg_boskontrol3 SET srg_boskontrol3.GIDERCESIDI = '" & GUrunAdi & "', srg_boskontrol3.NAKIT1 = [Formlar]![frm_URUNGIRIS]![gırısfıyatı] WHERE (((srg_boskontrol3.ISLEMTARIHI)=[Formlar]![frm_URUNGIRIS]![ıstar]));"
Else
DoCmd.RunSQL "INSERT INTO tbl_KASA ( ISLEMTARIHI, NAKIT1, GIDERCESIDI ) SELECT tbl_URUNGIRIS.ıstar, tbl_URUNGIRIS.gırısfıyatı, '" & GUrunAdi & "' FROM tbl_URUNGIRIS INNER JOIN tbl_URUNLER ON tbl_URUNGIRIS.urunıd = tbl_URUNLER.URUNID WHERE (((tbl_URUNGIRIS.ıstar)=[Formlar]![frm_URUNGIRIS]![ıstar]) AND ((tbl_URUNGIRIS.gırısfıyatı)=[Formlar]![frm_URUNGIRIS]![gırısfıyatı]));"
End If
DoCmd.SetWarnings True
Me.Requery
Else
Me.Undo
End If
End Sub