ms 访问 vba 表单、文本框、查询答案

【问题标题】：ms access vba forms, textboxes, queriesms 访问 vba 表单、文本框、查询
【发布时间】：2020-07-13 20:54:59
【问题描述】：

我是新来的。

我只使用带有 vba 的 access 2013，没有宏。

一个名为 tblStoreCode 的表包含三个字段，一个是自动编号，另一个是 fldStoreCode 和 fldStoreName。

我的名为 frmStoreDetails 的表单有两个文本框，txtStoreCode 和 txtStoreName 以及一个 cmdSearch 按钮。

我想要的是，当用户在 txtStoreCode 中输入代码并单击按钮时，sql 语句必须查看 txtStoreCode 中的值，然后查看 tblStoreCode，找到代码，然后在 txtStoreName 中显示商店名称表格。

我试过了

Private Sub Command9_Click() 
Dim MyString As String 
MyString = CurrentDb.QueryDefs("qryStore").OpenRecordset.Fields("fldStoreName")
Me.txtName.SetFocus txtName.Text = MyString End Sub

请帮忙。

【问题讨论】：

方法...你到目前为止所尝试的显示代码
Private Sub Command9_Click() Dim MyString As String MyString = CurrentDb.QueryDefs("qryStore").OpenRecordset.Fields("fldStoreName") Me.txtName.SetFocus txtName.Text = MyString End Sub跨度>
您有几个选择，但需要更多信息。您想允许通过表单添加数据，还是仅用于查找？我假设您目前在表单上显示所有记录的列表？您可以在表单标题中放置一个未绑定的文本框，然后为该文本框设置 vba 代码，如下所示： Private Sub txtSearch_Change() If Me.txtSearch.Text = "*" Or Me.txtSearch.Text = "" Then Me. Filter = "" Me.FilterOn = False Else Me.Filter = "StoreCode= " & Me.txtSearch.Text Me.FilterOn = True End If End Sub

标签： sql ms-access textbox vba

【解决方案1】：

这就是我的做法-

Private Sub cmdSearch_Click() 
    txtName = nz(Dlookup("fldStoreName","tblStoreCode","aa=" & nz(txtStoreCode,0)),"")
End Sub

如果 nz 函数让你复杂化，或者像这样（当有空值时，nz 函数将有助于防止出现问题）

Private Sub cmdSearch_Click() 
    txtName = Dlookup("fldStoreName","tblStoreCode","aa=" & txtStoreCode,0)
End Sub

玩得开心！

【讨论】：