在Access中创建表单以获取客户信息

Question

我创建了一个名为Customer_master的数据库，其中我将一些客户信息保存在MS Access数据库中。

我正在尝试创建一个表单，以便我可以输入一个手机号码，然后单击“搜索”按钮并获取客户名称。

使用手机号码和客户名称作为文本框创建表单，并在手机号码前面显示搜索按钮。

由于我是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

在我输入手机号码并点击“搜索”按钮后，没有发生任何事情，因为我没有得到客户的名字。

Answer 1

实现此目的的另一种方法是在对数据源的访问中创建新查询，并在查询定义中使用FORMS！VALUE将搜索表单中的值传递给查询。

然后，您可以向表单添加一个按钮，并保存VBA代码以在单击时执行查询。通过在行DoCmd.OpenQuery中添加