如何解决运行时错误3075 Access组合框搜索中的访问语法错误
我正在学习如何使用组合框创建搜索框。我正在用youtube中的视频学习: 访问:如何使用组合框第1部分创建搜索表单
但是,当我编写代码时,它不起作用。 :/我收到运行时错误3075访问语法错误。
Private Sub cboVendorSearch_AfterUpdate()
Dim MyVendor As String
MyVendor = "Select * from Vendors where ([vend_name] = " & Me.cboVendorSearch & ")"
Me.Invoices_subform.Form.RecordSource = MyVendor
Me.Invoices_subform.Form.Requery
End Sub
解决方法
假设vend_name是一个文本字段,需要用撇号定界符。
MyVendor = "SELECT * FROM Vendors WHERE [vend_name] = '" & Me.cboVendorSearch & "';"
除了设置RecordSource之外,还可以设置Filter属性。
Me.Invoices_subform.Form.Filter = "[vend_name] = '" & Me.cboVendorSearch & "'"
Me.Invoices_subform.Form.FilterOn = True
使用供应商ID作为搜索条件可能会更好。探索多列组合框,其中“ ID”字段是一个隐藏列,但组合框使用该隐藏列作为其“值”,但仍向用户显示vend_name。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。