Skip to main content

AccessTr.neT


Formlar Arası Veri Aktarma

Formlar Arası Veri Aktarma

#7
Private Sub ALINANTUTAR_AfterUpdate()
If Me.ACL_ODEMEBICIMI = "" Or IsNull(Me.ACL_ODEMEBICIMI) Then

    MsgBox ("odeme yöntemi seçiniz")
Else
    
    If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
        Dim GMUSTERIADI, GACL_UYGULAMAISTEMI As String
    '    GMUSTERIADI = Me.UYGULAMAYAPAN.Column(1) & " - İlaçlama"
    
    
        GMUSTERIADI = Dlookup ("[MUSTERIADI]", "T_MUSTERIKAYIT", "[MUSID]= " & [MUSID]) ' & " - İlaçlama"
    
            Select Case Me.ACL_ODEMEBICIMI
               Case "Nakit"
               GOdemeTuru = "NAKIT"
               Case "Kredi Kartı"
               GOdemeTuru = "KREDIKARTI"
            End Select
        
            GKOD = CLng(Me.UYGULAMATARIHI) & "-" & Me.CARIID
        
            GKOntrol = Nz(DLookup("[KASAID]", "T_KASA", "[GKOD]= '" & GKOD & "'"), 0)
        
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.SetWarnings False
            
                If GKOntrol > 0 Then
                    DoCmd.RunSQL "UPDATE T_KASA SET NAKIT = '0', KREDIKARTI = '0', BANKA = '0',TURU='0' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"
                    DoCmd.RunSQL "UPDATE T_KASA SET T_KASA.ISLEMTARIHI = '" & UYGULAMATARIHI & "',[" & GOdemeTuru & "] = " & ALINANTUTAR & ",  T_KASA.GELIRCESIDI = '" & GMUSTERIADI & "' WHERE (((T_KASA.GKOD)='" & GKOD & "'));"
                Else
        
                    DoCmd.RunSQL "INSERT INTO T_KASA ( GKOD, ISLEMTARIHI, [" & GOdemeTuru & "], GELIRCESIDI,TURU, ) values ('" & GKOD & "', '" & UYGULAMATARIHI & "', " & ALINANTUTAR & ", '" & GMUSTERIADI & ", '" & ACL_UYGULAMAISTEMI & "')"
                End If
                DoCmd.SetWarnings True
    Else
        Me.Undo
    End If
End If
            'Me.KALAN = Me.toplam - Me.ODEMETUTARI
End Sub
Cevapla
#8
Merhaba,

Eklediğin kodun ilgili kısmı aşağıda. Koddaki bir virgülün veya eksik bir tırnak işaretinin bile önemi var, Eksiklik olduğunda çalışmaz

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

1-)TURU sonrası virgül eklemişsin. Benim verdiğim kodda alan isimleri bitince parantez kapanıyor, sen virgül ekleyip kapamışsın,
2-) GMUSTERİADI tek tırnak, çift tırnak ile başlamış, çift tırnak ile bitmiş, tek tırnak eksik.
Cevapla
#9
Merhaba Ozan bey..

Düzeltile kodu yeniden ekledim,yine aynı söz dizimi hatası veriyor.
[Resim: do.php?imgf=152519935334681.png]
[Resim: do.php?imgf=152519931463141.png]
Cevapla
#10
Yazdıklarımız sanırım okunmamış.


(01/05/2018, 20:35)ozanakkaya yazdı: 1-)TURU sonrası virgül eklemişsin. Benim verdiğim kodda alan isimleri bitince parantez kapanıyor, sen virgül ekleyip kapamışsın,
Cevapla
#11
Mrb.Ozanbey ,
Çok haklıymışsın şimdi düzelttim,sağolun varolun.Ben oncek mesajı düzeltilmiş olarak algıladım.
Konu çözülmüştür,saygılarımla.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da