Eksik İşleç Ve Küsürat Sorunu

Sayın Kadir bey,
Konuyu kapatmışsınız ama sorun henüz çözülemedi.
Saygılarımla.

Kodda ilgili yeri aşağıdaki ile değiştirerek deneyiniz.

If GKOntrol > 0 Then

                    DoCmd.RunSQL "UPDATE T_KASA SET NAKIT = '0', KREDIKARTI = '0' = '0',TURU='0' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"

                    DoCmd.RunSQL "UPDATE T_KASA SET ISLEMTARIHI = '" & UYGULAMATARIHI & "',[" & GOdemeTuru & "] = '" & ALINANTUTAR & "',  GELIRCESIDI = '" & Replace(GISYERIUNVANI, "'", "''") & "', TURU = '" & ACL_UYGULAMAISTEMI & "' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"

                Else

        

                    DoCmd.RunSQL "INSERT INTO T_KASA ( GKOD, ISLEMTARIHI, [" & GOdemeTuru & "], GELIRCESIDI,TURU ) values ('" & GKOD & "', '" & UYGULAMATARIHI & "', '" & ALINANTUTAR & "', '" & Replace(GISYERIUNVANI, "'", "''") & "', '" & ACL_UYGULAMAISTEMI & "')"

                End If

Sayın Ozan hocam,
Emeğiniz ve yardımlarınız için sonsuz teşekkürler.
Konu çözülmüştür.
Saygılarımla.