G
Guest
I have an option group on a form that has two unbound radio buttons; optPacer
(value =1) and optICD (value =2). If optPacer is selected I'm trying to use
it to select rowSource for a combo box on my form.
I get the msg; Error 2427 (you entered an expression that has no value) in
the procedure cmdMedtronicFilter
I'm trying to say that if optPacer is selected then run the query.
Any help would be greatly appreciated.
**********************************************************
Private Sub cmdMedtronicFilter_Click()
On Error GoTo cmdMedtronicFilter_Click_Error
If Me.optPacer.Value = True Then
Me.cboPacerExplant.RowSource = "SELECT * FROM tblPacerLU " & _
"WHERE fldManufactureNo IN('2') " & "ORDER BY fldModelName"
End If
On Error GoTo 0
Exit Sub
cmdMedtronicFilter_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
cmdMedtronicFilter_Click of VBA Document Form_frmDevices"
End Sub
(value =1) and optICD (value =2). If optPacer is selected I'm trying to use
it to select rowSource for a combo box on my form.
I get the msg; Error 2427 (you entered an expression that has no value) in
the procedure cmdMedtronicFilter
I'm trying to say that if optPacer is selected then run the query.
Any help would be greatly appreciated.
**********************************************************
Private Sub cmdMedtronicFilter_Click()
On Error GoTo cmdMedtronicFilter_Click_Error
If Me.optPacer.Value = True Then
Me.cboPacerExplant.RowSource = "SELECT * FROM tblPacerLU " & _
"WHERE fldManufactureNo IN('2') " & "ORDER BY fldModelName"
End If
On Error GoTo 0
Exit Sub
cmdMedtronicFilter_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure
cmdMedtronicFilter_Click of VBA Document Form_frmDevices"
End Sub