AccessTr.neT

Tam Versiyon: Eksik İşleç Ve Küsürat Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
Sayfalar: 1 2