Merhaba arkadaşlar,
Ben sayın Haluk kardeşimin ado ile ilgili çalışmasından yararlanarak
bir çalışma yapıyorum, sağolsun çok yaralandım
Ãimdiki sorunum iki tarih arası rapor almada sorun yaşıyorum,
Yardımcı olacak arkadaşlara şimdiden teşekkürler...
tr1 ve tr2 adında iki textbox un var bu iki texte yazacağım tarihler arası sorgu yapmak istiyorum...
Private Sub CommandButton37_Click() 'raporlar//
'On Error Resume Next
Dim Mytarih As Date, Mytarihh As Date
Mytarih = tr1.Value
Mytarihh = tr2.Value
Set RS = CreateObject("ADODB.recordset")
DatabasePath = "C:\Akd_Db.mdb"
strSQL = "SELECT * FROM Mytarih WHERE " & ">=" & Mytarihh & " ORDER BY " & "Tarih"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste2.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste2.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Miktar")
kyt.SubItems(4) = Format(kyt.SubItems(4), "#,##0.00")
RS.MoveNext
x = x + 1
Loop
End Sub
strSQL satırında çıkmamış mdb deki sorgu alanım "Tarih" dir
Ben sayın Haluk kardeşimin ado ile ilgili çalışmasından yararlanarak
bir çalışma yapıyorum, sağolsun çok yaralandım
Ãimdiki sorunum iki tarih arası rapor almada sorun yaşıyorum,
Yardımcı olacak arkadaşlara şimdiden teşekkürler...
tr1 ve tr2 adında iki textbox un var bu iki texte yazacağım tarihler arası sorgu yapmak istiyorum...
Private Sub CommandButton37_Click() 'raporlar//
'On Error Resume Next
Dim Mytarih As Date, Mytarihh As Date
Mytarih = tr1.Value
Mytarihh = tr2.Value
Set RS = CreateObject("ADODB.recordset")
DatabasePath = "C:\Akd_Db.mdb"
strSQL = "SELECT * FROM Mytarih WHERE " & ">=" & Mytarihh & " ORDER BY " & "Tarih"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste2.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste2.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Miktar")
kyt.SubItems(4) = Format(kyt.SubItems(4), "#,##0.00")
RS.MoveNext
x = x + 1
Loop
End Sub
strSQL satırında çıkmamış mdb deki sorgu alanım "Tarih" dir