Formlar Arası Veri Aktarma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Formlar Arası Veri Aktarma (/konu-formlar-arasi-veri-aktarma.html) Sayfalar:
1
2
|
Cvp: Formlar Arası Veri Aktarma - fascioğlu - 01/05/2018 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 Cvp: Formlar Arası Veri Aktarma - ozanakkaya - 01/05/2018 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. Cvp: Formlar Arası Veri Aktarma - fascioğlu - 01/05/2018 Merhaba Ozan bey.. Düzeltile kodu yeniden ekledim,yine aynı söz dizimi hatası veriyor. Cvp: Formlar Arası Veri Aktarma - ozanakkaya - 01/05/2018 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, Cvp: Formlar Arası Veri Aktarma - fascioğlu - 01/05/2018 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. |