Question

我在这里很新。

我正在使用仅使用vba访问2013，没有宏。

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

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

我想要的是当用户在txtStoreCode中输入代码并单击该按钮时，sql语句必须查看txtStoreCode中的值，然后查看tblStoreCode，找到Code然后在txtStoreName中显示Store Name形式。

到目前为止我试过了

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

请帮忙。

Answer 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

玩得开心！

ms访问vba表单，文本框，查询

1 个答案: