populated combo box value by a SQL SELECT statement.

[kirubagari]

My form displays a combo box populated by a SQL SELECT statement. The user
will select a row from the combo box. I then want the value in a field of the
row selected in the combo box to be used as the selection criteria in a SQL.Attach is my code but incomplete..Dear experts kindly help

Private Sub coReasonCode_Click()
 
    Dim Sreasoncode As String
    Dim sSQL As String
    Dim oSQL As clsSQL
    Dim cRow As FwAttributes
    Dim cRows As Collection
 
    Sreasoncode = coReasonCode.text
 
    sSQL = "select descs,user,brief_desc from cim_tbl_multiplehold" & _
            " where comment_code = Sreasoncode "
 
    Set oSQL = New clsSQL
    oSQL.Server = "CARdefault"
 
    oSQL.SqlCall = sSQL
    Set cRows = oSQL.SqlResult
 
End Sub
 

statement.

[VijaySofist]

Hi kirubagiri,

In your code plz try the following changes.

If the comment_code field is numeric use this

" where comment_code = " & Val(Sreasoncode) 

Or else the comment_code is text then use this below

" where comment_code = '" & Sreasoncode & "'"

All the Best

Regards
Vijay.R