S
steve a
I'm trying to get a toggle box selection to then cascade to a combo box,
I'm currently using:
Private Sub optward_AfterUpdate()
On Error Resume Next
Select Case optward.Value
Case 1
cboname.RowSource = "query.Dalby.Name"
Case 2
cboname.RowSource = "query.fenton.name"
Case 3
cboname.RowSource = "query.farndale.name"
Case 4
cboname.RowSource = "query.kirby.name"
Case 5
cboname.RowSource = "query.kyme.name"
Case 6
cboname.RowSource = "query.boston.name"
End Select
End Sub
not sure whats wrong?
any suggestions?
Thanks
I'm currently using:
Private Sub optward_AfterUpdate()
On Error Resume Next
Select Case optward.Value
Case 1
cboname.RowSource = "query.Dalby.Name"
Case 2
cboname.RowSource = "query.fenton.name"
Case 3
cboname.RowSource = "query.farndale.name"
Case 4
cboname.RowSource = "query.kirby.name"
Case 5
cboname.RowSource = "query.kyme.name"
Case 6
cboname.RowSource = "query.boston.name"
End Select
End Sub
not sure whats wrong?
any suggestions?
Thanks