OP Yıllanmış Üye
Teşekkür Sayısı: 0
284 mesaj
Kayıt Tarihi:Kayıt: Oca 2007
slm arkadaşlar
butona basınca text1 in içindeki tarihe denk gelen tarih ve o günkü kazancıdbgrid de listeleyecek
Private Sub Command1_Click()
Set DataGrid1.DataSource = DataEnvironment1
DataEnvironment1.RecordSource = "select * from kasa_defteri where gunun_tarihi=" & "'" & UCase(Text1.Text) & "'"
DataEnvironment1.Refresh
End Sub