Simple coding(solved)

[vivian2u]

hi,

i want to display all the F_upDate which is greater or equal to today's date in the MSFlexGrid. Here is my coding, its only display one record only. Can someone help to modify it.


Dim today As String
today = Format$(Date, "dd/mm/yyyy")
With rs
.Open "Select * from tblDate where F_upDate >= '" & today & "' order by F_upDate desc", con, adOpenKeyset, adLockPessimistic

While Not rs.EOF()
MSFlexGrid1.AddItem rs!EnqNo & Chr(9) & rs!F_upDate & Chr(9) & rs!FirstName ................
rs.MoveNext
Wend


thanks

[dee-u]

I hope this 'cleaner' code would work...

Dim today As String
today = Format$(Date, "dd/mm/yyyy")
With rs
    .Open "Select * from tblDate where F_upDate >= '" & today & "' order by F_upDate desc", con, adOpenKeyset, adLockPessimistic
    While Not .EOF
        MSFlexGrid1.AddItem !EnqNo & Chr(9) & !F_upDate & Chr(9) & !FirstName ................
        .MoveNext
    Loop
End With

[vivian2u]

is not work. still getting only 1 record. Please help!

[dee-u]

Try this...


Dim todayAs String

today = Format$(Date, "dd/mm/yyyy")

With rs
.Open "Select * from tblDate where DateValue(F_upDate) >= '" & DateValue(today) & "' order by F_upDate desc", con, adOpenKeyset, adLockPessimistic
While Not .EOF
MSFlexGrid1.AddItem !EnqNo & Chr(9) & !F_upDate & Chr(9) & !FirstName ................
.MoveNext
Loop
End With

[vivian2u]

still getting only one record. How I can solved this out??

i want to display all the F_upDate which is greater or equal to today's date in the MSFlexGrid. Please help.

[vivian2u]

Thanks to Dee-u,

problem solved !