I am having trouble getting this to work:

- There is a group of 5 option buttons.
- When one of the option buttons is "clicked", the results of a query display in a combo box...

I have created the queries and they work fine. I have created the option buttons and the combo box. I am at an utter loss on how to go about displaying the query results in the combo box.

When you say "displaying the query results in the combo box" are you refering to a filtered column from the query? A different result depending on which option is selected?

################################
Private Sub frame1_BeforeUpdate(Cancel As Integer)

    If Me.frame1.Value = 1 Then
        Me.cboIssueTypeID.RowSource = "SELECT Empid, EmpName " & _
                                      "FROM employees;"


    ElseIf Me.frame1.Value = 2 Then

        Me.combo1.RowSource = "SELECT Empid, EmpName " & _
                                      "FROM employees " & _
                                      "WHERE (((Empid)=1 Or (Empid)=2)) " & _
                                      "ORDER BY EmpName;"
    End If
End Sub
#################################

Is this what you are looking for? There is no need for queries, just use a string.

Let me know if this helps.



Sal

Well, this is my code...It isn't working:

Private Sub Frm_InvUpd_Category_BeforeUpdate(Cancel As Integer)

If Me.Frm_InvUpd_Category.Value = 1 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Long Range'))" & _
                               "ORDER BY Product.Product_Name;"

ElseIf Me.Frm_InvUpd_Category.Value = 2 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Mid Range'))" & _
                               "ORDER BY Product.Product_Name;"

ElseIf Me.Frm_InvUpd_Category.Value = 3 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Putt & Approach'))" & _
                               "ORDER BY Product.Product_Name;"

ElseIf Me.Frm_InvUpd_Category.Value = 4 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Specialty'))" & _
                               "ORDER BY Product.Product_Name;"

ElseIf Me.Frm_InvUpd_Category.Value = 5 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Recreational'))" & _
                               "ORDER BY Product.Product_Name;"
End If

End Sub

Put the code on the frame Before Update event. Also use a case statement

select case frame1.value
    case 1
        yada yada yada
    case 2
        bla bla bla
    case 3
        gafddsfd
end select



Sal

 

I thought it was in the before update event...

Private Sub Frm_InvUpd_Category_BeforeUpdate(Cancel As Integer)


would the select statement look like this?

Select case Frm_InvUpd_Category.Value
  Case 1
    Me.Frm_InvUpd_Category.Value = 1 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Long Range'))" & _
                               "ORDER BY Product.Product_Name;"

  Case 2
    Me.Frm_InvUpd_Category.Value = 2 Then
Me.Cmb_InvUpd_Prod.RowSource = "SELECT Product.Product_Name" & _
                               "FROM Product" & _
                               "WHERE (((Product.Product_Category) = 'Mid Range'))" & _
                               "ORDER BY Product.Product_Name;"

  Case 3
    bla bla bla

  Case 4
    etc etc etc

End Select

Put the code on the before update event of the Frame control that holds the option buttons, not on the form's event.

Do not use

Select case Frm_InvUpd_Category.Value

use
Select case frame1.value

Substitute Frame1 woth the name of your Frame control that holds the option buttons.



Sal

that is the name of my frame... Frm_InvUpd_Category

Also, if the code posted below is a faithful copy, you seem to be suffering from a shortage of spaces
resolves to:
SELECT Product.Product_NameFROM ProductWHERE (((Product.Product_Category) = 'Long Range'))ORDER BY Product.Product_Name;

If your company is having difficulty in procuring whitespace, post another message and we'll send some through. Here's a sample so you can check the quality ! :):):);)


Brian Skelton
Braxis Computer Services Ltd.

 

erm...I'm afraid I don't know what you mean...

This code:                                will result in the rowsource of Cmb_InvUpd_Prod being set to: You need spaces before FROM, WHERE and ORDER BY.


Brian Skelton
Braxis Computer Services Ltd.