Combo Box Problems

[MikoKitty]

I'm trying to populate a combo box using the following code:

    Do Until rs.EOF
        strComVal = rs!clnt_LastName
        cbxSearch.AddItem (strComVal)
        rs.MoveNext
    Loop 
 
 

My problem is when it hits .EOF rather than exiting the Loop it tries to go through and throws an error NO current record. Why won't it stop?

[hariharanmca]

I'm trying to populate a combo box using the following code:

    Do Until rs.EOF
        strComVal = rs!clnt_LastName
        cbxSearch.AddItem (strComVal)
        rs.MoveNext
    Loop 
 
 

My problem is when it hits .EOF rather than exiting the Loop it tries to go through and throws an error NO current record. Why won't it stop?

Try this

while rs.EOF=false
strComVal = rs!clnt_LastName
cbxSearch.AddItem (strComVal)
rs.MoveNext
wend

[hariharanmca]

I'm trying to populate a combo box using the following code:

    Do Until rs.EOF
        strComVal = rs!clnt_LastName
        cbxSearch.AddItem (strComVal)
        rs.MoveNext
    Loop 
 
 

My problem is when it hits .EOF rather than exiting the Loop it tries to go through and throws an error NO current record. Why won't it stop?

Why you are not specifying any index value for any item it’s not so important but anyway it’s better to avoid one more query to fetch the index of each item.

[MikoKitty]

Try this

while rs.EOF=false
strComVal = rs!clnt_LastName
cbxSearch.AddItem (strComVal)
rs.MoveNext
wend

Tried that and got the same error as the original code. I [i]did[i] get it to work using

intRecNum = rs.RecordCount - 1
For intCnt = 0 To intRecNum
                    strComVal = rs!clnt_LastName & "," & rs!clnt_FirstName
                    cbxSearch.AddItem (strComVal)
                    rs.MoveNext
Next

Thanks for trying

[hariharanmca]

Tried that and got the same error as the original code. I [i]did[i] get it to work using

intRecNum = rs.RecordCount - 1
For intCnt = 0 To intRecNum
                    strComVal = rs!clnt_LastName & "," & rs!clnt_FirstName
                    cbxSearch.AddItem (strComVal)
                    rs.MoveNext
Next

Thanks for trying

what error you are geting exactly