组合框上的参数值

Question

我正在尝试使用组合框过滤子表单。我的工作有效，但它一直显示 "Enter Parameter Value" 文本框。当我输入要过滤的值时，它会毫无问题地搜索子表单。我宁愿不必输入值，因为它违背了组合框的目的。

这是我的 ComboBox 代码，

    Private Sub ComboFE_AfterUpdate()

    On Error GoTo Proc_Error
If IsNull(Me.ComboFE) Then
   Me.SubFormPF.Form.Filter = ""
   Me.SubFormPF.Form.FilterOn = False
Else
  Me.SubFormPF.Form.Filter = "Lead_FE = " & Me.ComboFE
  Me.SubFormPF.Form.FilterOn = True
End If
Proc_Exit:
   Exit Sub
Proc_Error:
   MsgBox "Error " & Err.Number & " in setting subform filter:" & vbCrLf & Err.Description
   Resume Proc_Exit

End Sub

我已经检查并确保所有姓名都正确并与我表格上的相应项目相匹配。

有什么想法吗？非常感谢

Answer 1

在文本列上应用过滤器时，该值需要引号。

Me.SubFormPF.Form.Filter = "Lead_FE = '" & Me.ComboFE & "'"

如果值本身包含引号，为避免出现问题，请从此处使用 Gustav 的 CSql() 函数：

Me.SubFormPF.Form.Filter = "Lead_FE = " & CSql(Me.ComboFE.Value)

这适用于所有数据类型。

组合框上的参数值

Parameter Value on Combo Box

ms-access

combobox

ms-access-2013