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

【问题标题】：Creating a form in Access to get the Customer Information在 Access 中创建表单以获取客户信息
【发布时间】：2020-07-13 14:15:58
【问题描述】：

我创建了一个名为 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

在我输入手机号码并点击搜索按钮后，什么都没有发生，因为我没有得到客户的姓名。

【问题讨论】：

代码看起来不错。请阅读并申请：How to debug VBA code和How to debug dynamic SQL in VBA
分配后需要Requery：Me.Form.RecordSource = Task: Me.Form.Requery

标签： sql vba ms-access

【解决方案1】：

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

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

【讨论】：