Listbox a veri almada söz dizimi hatası hk.

[kemal turan]

Merhaba,
Günlük Sahifesinde textbox1 deki tarihe göre TARİH sutunundan veri çekmek istediğimizde aşağıdaki kod söz dizimi hatası veriyor.
textbox1 formatı "dd.mm.yyy" dir.
Aylık sahifesinde sorun yok.

Sub sorgula()
    If TextBox1.Value <> "" Then
        ListBox1.Clear
        ListBox2.Clear
        
        Dim con As Object
        Dim rs As Object
        Set con = CreateObject("adodb.connection")
        con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
                 ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""

        Sql = "select [ÜRÜN ADI], sum([ADET]), ROUND(sum([NET TUTAR]),2) from [VERI$] where [TARİH]=" & Format(CDate(TextBox1.Value), "dd.mm.yyy") & "' group by [ÜRÜN ADI]"
        Set rs = con.Execute(Sql)
        If Not rs.bof Then ListBox1.Column = rs.getrows
       

        Set rs = Nothing
        Set con = Nothing
        
    End If
End Sub

 

[Necdet]

Merhaba,

ListBox'ın ColumnCount unu 3 yapınız ve aşağıdaki gibi deneyiniz.

Sub sorgula()

    [B]Dim Tarih As Date
    
    Tarih = DateSerial(Right(TextBox1.Value, 4), Mid(TextBox1.Value, 4, 2), Left(TextBox1.Value, 2))[/B]
    
    If TextBox1.Value <> "" Then
        ListBox1.Clear
        ListBox2.Clear
        
        Dim con As Object
        Dim rs As Object
        Set con = CreateObject("adodb.connection")
        con.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
                 ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""

        Sql = "select [ÜRÜN ADI], sum([ADET]) , ROUND(sum([NET TUTAR]),2) from [VERI$] where [TARİH]=" & [B]CDbl(Tarih)[/B] & " group BY [ÜRÜN ADI]"
        Set rs = con.Execute(Sql)
        If Not rs.bof Then ListBox1.Column = rs.getrows
       
        Set rs = Nothing
        Set con = Nothing
        
    End If

End Sub

 

[Necdet]

Durum nedir ki?

Merak ettim doğrusu.

 

[kemal turan]

Merhaba Nejdet hocam,
Kusuruma bakmayın.
Aynı soruyu başka bir başlıkta sormuştum.Veysel kardeşimizde sağ olsun sorunu çözdü.
Bende bu sayfaya bakmayı unutmuşum.
Hakkınızı helal ediniz.
Selametle kalınız.