[RESOLVED] MSFlexGrid pls help out...!

How about removing the row?

.RemoveItem .Row

(do it in reverse for more than one row)

I see. Take out the On Error Resume Next, and you'll find that it gets to the end of the first record and crashes. Records that start with 0 go to -1, not the record count!

Sub ClientDisplayRecordset(x As ADODB.Recordset)
Dim rs As String, fld As String, z As Long
Dim str As String
frmClients.flx.Rows = 1
str = "^ID " & vbTab & "Last Name " & vbTab & "First Name " & vbTab
str = str & "Type " & vbTab & "Details " & vbTab
str = str & "^Amount " & vbTab
str = str & "^Start " & vbTab & "^End " & vbTab & "Length" & vbTab
str = str & "Frequency" & vbTab & "^Location " & vbTab & "^Fixed " & vbTab & "^Paid "
frmClients.flx.FormatString = str ' creates heading row above
Do While x.EOF = False
For z = 0 To x.Fields.Count - 1 ' -1 is most critical
fld = x(z) & ""
If rs <> "" Then rs = rs & vbTab
rs = rs & fld
Next z
frmClients.flx.AddItem rs
rs = ""
x.MoveNext
Loop
Set x = Nothing
End Sub

Tjat's exactly what I gave. It displays ANY recordset. I do the query somewhere else. I have 13 items in a drop-down, with 13 fields they can query. You said you had that part.

Do While x.EOF = False
For z = 0 To x.Fields.Count - 1 ' -1 is most critical
fld = x(z) & ""
If rs <> "" Then rs = rs & vbTab
rs = rs & fld
Next z
frmClients.flx.AddItem rs
rs = ""
x.MoveNext
Loop

Here's dates, the right way. Text uses "'" & txt & "' " Integers don't use anything in ' between & " and "

Option Explicit

Private Sub Form_Load()
Dim dteDate As Date
Dim adoRec As ADODB.Recordset
dteDate = CDate("7 March 2005 10:04:00AM")
Set adoRec = GetRecordset(dteDate)
With adoRec
Do While Not .EOF
'your code goes here
MsgBox .Fields(0)
.MoveNext
Loop
.Close
End With
Set adoRec = Nothing
End Sub

Private Function GetRecordset(ByVal pdteSearchDate As Date) As ADODB.Recordset
Dim strSQL As String
Dim adoRec As ADODB.Recordset
strSQL = "SELECT * "
strSQL = strSQL & "FROM AS_Createsched "
strSQL = strSQL & "WHERE AS_Createsched.CSIN_dates = #" & Format$(pdteSearchDate, "d mmm yyyy") & "# "
strSQL = strSQL & "AND HOUR(AS_Createsched.CSIN_times) = " & Format$(pdteSearchDate, "hh") & " "
strSQL = strSQL & "AND MINUTE(AS_Createsched.CSIN_times) = " & Format$(pdteSearchDate, "nn") & " "
Set adoRec = New ADODB.Recordset
adoRec.Open strSQL, GetConnString, adOpenForwardOnly, adLockReadOnly
Set GetRecordset = adoRec
Set adoRec = Nothing
End Function

Private Function GetConnString() As String
GetConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db4.mdb;Persist Security Info=False"
End Function

I doubt that your time/date field is formatted like that.

Try CDate() to parse into a date, or break it down like I did into hours min and sec

Plug in a test value myDate = #08/07/2007 13:21#
to get something to work.

Create a strSQL variable and do a debug.print prior to calling it.

paste the result into Access, and try to execute it. it will tell you exactly the problem, whereas vb can't

hello dglienna,
i am still lost. the problem i am having is how to change the value of a variable. my code looks like this:

Dim sString As String, bstring As String, fString As string
sString = frmQuery.Combo1.Text
bstring = frmQuery.txtQuery.Text
fString = "SELECT * FROM TorrdData WHERE "
fString = fString & "[" & sString & "]"
fString = fString & "="
fString = fString & "'" & bstring & "'"

Problem: how to validate bstring to a date value if the input is a date within the query string

Add the two last lines

fString = fString & "="
fString = fString & "'" & bstring & "'"
debug.print fString
stop

Create a qieru om Access, sql view, and paste in your code
the query should run in access and show a table of results

if not, it will tell you the problem, if it isn't obvious.

Sure they're dates and not just text?

Hmmm. Thought you noticed from my other post.

fString = fString & "#" & bstring & "#"

we don't know what bstring is or the field in your table.

i will re-check my codes again.... than you and im very greatful

hello dglienna,
thanks very much for ur assistance as it now works. actually i am the one messing things around simply because i want a structurally arranged/organised codes, and with that i am violating logics. Now that i packed some codes together, it finally worked.
once again, a big THANK YOU!

how do i mark it as resolved..? i am new here..

Done. Once again, thank you.

hello dglienna, i want to ask if it is possible to use the code to populate an opened excel sheet ?

Sub ClientDisplayRecordset(x As ADODB.Recordset)
Dim rs As String, fld As String, z As Long
Dim str As String
frmClients.flx.Rows = 1
str = "^ID " & vbTab & "Last Name " & vbTab & "First Name " & vbTab
str = str & "Type " & vbTab & "Details " & vbTab
str = str & "^Amount " & vbTab
str = str & "^Start " & vbTab & "^End " & vbTab & "Length" & vbTab
str = str & "Frequency" & vbTab & "^Location " & vbTab & "^Fixed " & vbTab & "^Paid "
frmClients.flx.FormatString = str ' creates heading row above
Do While x.EOF = False
For z = 0 To x.Fields.Count - 1 ' -1 is most critical
fld = x(z) & ""
If rs <> "" Then rs = rs & vbTab
rs = rs & fld
Next z
frmClients.flx.AddItem rs
rs = ""
x.MoveNext
Loop
Set x = Nothing
End Sub

i`ll use automation object to load excel as in ...

dim retval
set retval = CreateObject("Application.Excel")
.....

and i`ll use retval as (excel)handle to recieve values from Recordset..

I guess it should work.

ok... i`ll do that right away... thanks