AccessTr.neT
(VBA) INSERT INTO söz dizimi hatası - 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ığı: (VBA) INSERT INTO söz dizimi hatası (/konu-vba-insert-into-soz-dizimi-hatasi.html)



(VBA) INSERT INTO söz dizimi hatası - exmadon - 06/12/2013

Merhaba;
Firma ödemelerini kasayada yazdırmak istiyorum ama tarihte söz dizimi hatası veriyor. Nerede hata yaptığımı anlayamadım. Yardımcı olablirmisiniz?

Private Sub Komut30_Click()
DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO CIKISKASA ([Tarih],[Aciklama],[Cikis_USD]) VALUES (" & Me.Tarih & "," & Me.Açılan_Kutu13 & "," & Me.Miktar & ")"
DoCmd.SetWarnings True
MsgBox "Kayıt işlemi tamamlandı", vbInformation, "Bilgilendirme"
DoCmd.GoToRecord , , acNext

End Sub



Cvp: (VBA) INSERT INTO söz dizimi hatası - alpeki99 - 06/12/2013

Tarihleri tek tırnaklar içinde yazıp deneyin:

'" & Me.Tarih & "'



Cvp: (VBA) INSERT INTO söz dizimi hatası - exmadon - 06/12/2013

(06/12/2013, 15:34)alpeki99 yazdı: Tarihleri tek tırnaklar içinde yazıp deneyin:

'" & Me.Tarih & "'

Teşekkür ederim. Açılan kutu içinde parametre değeri sordu. Ona da aynı tırnak kullanınca sorunsuz çalıştı.


Cvp: (VBA) INSERT INTO söz dizimi hatası - metehan16 - 07/12/2013

(06/12/2013, 16:02)exmadon yazdı:
(06/12/2013, 15:34)alpeki99 yazdı: Tarihleri tek tırnaklar içinde yazıp deneyin:

'" & Me.Tarih & "'

Teşekkür ederim. Açılan kutu içinde parametre değeri sordu. Ona da aynı tırnak kullanınca sorunsuz çalıştı.

probleminiz zannımca tarih formatında
böyle bir problemle karşılaşmıştım ve tarih formatını değiştirerek çözümlemiştim. şimdi çözümü anlatan konuyu bulamadım ama benim yaptığım çözüm kodlarını paylaşayım en azından fikir verirr

Dim degistir As String
degistir = Mid(Me.gevraktarih, 7, 4) & "/" & Mid(Me.gevraktarih, 4, 2) & "/" & Left(Me.gevraktarih, 2)
benzer = Dlookup ("idgelenevrak", "tbl_gelenevrak", "[idkurumadi]= " & Me.idkurumadi & " and [gevraktarih]=#" & degistir & "#" & " and [gevraksayi]= " & Me.gevraksayi & "and [iddefter]=" & Me.defter)

sizin tarihi bu şekilde uyumlu hale getirin
Düzenlenmiş şeklini ekte ekledim
umarım yardımı olur