I have a field that is an Autonumber (Metric Number). I am attempting to filter the form based upon that field in the table. Below is my code. However, I get a "Type mismatch" error on the [Metric Number] filter (very last filter in IF statements). Any ideas? Is my syntax wrong for the filter since it is a number field?
Code:
Dim varMetricName, varDataNumber, varMetricNumber
varDataNumber = Form_frmFindMetric.cboDatamartName.Value
varMetricName = Form_frmFindMetric.cboMetricName.Value
varMetricNumber = Form_frmFindMetric.cboMetricNumber.Value
If varDataNumber <> "" Then
'Do Nothing
'Else
If varMetricNumber = "" Then
If varMetricName = "" Then
Me.Filter = "[Datamart Name] = """ & varDataNumber & """"
Me.FilterOn = True
Else
Me.Filter = "[Metric Name] = """ & varMetricName & """"
Me.FilterOn = True
End If
Else
Me.Filter = "[Metric Number] = """ & varMetricNumber & """"
Me.FilterOn = True
End If
End If