我创建了一个数据库Customer_master
,其中将一些客户信息保存在MS Access数据库中。
我正在尝试创建一个表格,以便我可以输入手机号码并单击Search按钮并获得客户名称。
该表格是使用“移动电话号码和客户名称”作为文本框以及在移动电话号码前面的“搜索”按钮创建的。
由于我是VBA的新手,所以我认为存在一些编码问题。
以下是我尝试使用“搜索”按钮的代码:
Private Sub Command6_Click()
Dim strsearch As String
Dim Task As String
'Check if a keyword entered or not
If IsNull(Me.Mobile_Number) Or Me.Mobile_Number = "" Then
MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
Else
strsearch = Me.Mobile_Number.Value
Task = "SELECT Customer_Name FROM Customer_Master WHERE ((Mobile_Number Like ""*" & strsearch & "*""))"
Me.RecordSource = Task
End If
End Sub
输入手机号码并单击“搜索”按钮后,没有任何反应,因为我没有得到客户的名字。
实现此目的的另一种方法是在访问数据源时创建一个新查询,然后在查询定义中使用FORMS!VALUE将值从搜索表单传递给查询。
然后,您可以在表单中添加按钮,并保存VBA代码以在单击时执行查询。通过添加DoCmd.OpenQuery行
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句