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
Kodda ilgili yeri aşağıdaki ile değiştirerek deneyiniz.