VBA syntax hatasını bulmak.

[lsuersoy]

Merhaba arkadaşlar ,

Aşağıdaki SQL kodunu , kendimce VBA koduna çevirmeye çalışıyorum...

Fakat bir yerde bir syntax hatası yapıyorum , hatayı bulmama yardımcı olabilirmisiniz...

Sorgu = "SELECT SUM(LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.AMOUNT) AS Giren"
Sorgu = Sorgu & "FROM LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD INNER JOIN "
Sorgu = Sorgu & "LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES ON LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD.LOGICALREF = LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.CARDREF "
Sorgu = Sorgu & "WHERE (LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.DATE_ BETWEEN CONVERT(DATETIME, '" & Format(Range("B1"), "yyyy-mm-dd") & "', 102) AND CONVERT(DATETIME, '" & Format(Range("C1"), "yyyy-mm-dd") & ", 102)) AND "
Sorgu = Sorgu & "(LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.SIGN = 0) AND (LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD.LOGICALREF = 1)"

Kolay gelsin , iyi çalışmalar...

 

[Ferhat Pazarçevirdi]

VBE'de Menüden View->Immediate Window komutunu verin ... Immediate penceresi görüntülenecektir. Daha sonra, Debug.Print ilave edilmiş aşağıdaki kodu çalıştırınız. SQL stringdeki syntax'ın nerede hatalı olduğunu immediate penceresinden rahatça görebilirsiniz.

Sub deneme()
[COLOR=DimGray]
sorgu = "SELECT SUM(LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.AMOUNT) AS Giren"
sorgu = sorgu & "FROM LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD INNER JOIN "
sorgu = sorgu & "LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES ON LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD.LOGICALREF = LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.CARDREF "
sorgu = sorgu & "WHERE (LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.DATE_ BETWEEN CONVERT(DATETIME, '" & Format(Range("B1"), "yyyy-mm-dd") & "', 102) AND CONVERT(DATETIME, '" & Format(Range("C1"), "yyyy-mm-dd") & ", 102)) AND "
sorgu = sorgu & "(LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_01_KSLINES.SIGN = 0) AND (LG_" & Format(Sheets("SETUP").Range("B5"), "000") & "_KSCARD.LOGICALREF = 1)"[/COLOR]
[B]
Debug.Print sorgu[/B]

End Sub

.