vba - 如何从查询结果中填充文本框

Question

我的表单上有一个组合框和一个文本框。

如果用户从组合框中选择一个值，例如：Cvalue，那么我想用查询结果填充文本框，例如：

Select S1 From Test where Name=Cvalue

我怎样才能做到这一点？

Answer 1

如果您要填充的文本框未绑定（不必更新基础表单数据源中的字段），那么您可以DLOOKUP在文本框的控件源中使用并避免使用 VBA：

=DLOOKUP("S1", "Test", "cvalue='" & forms!MyForm!Combo0 & "'")

Answer 2

Private Sub Command4_Click()

    Dim con As ADODB.Connection

    Set con = Application.CurrentProject.Connection

    Dim rs As ADODB.Recordset

    Set rs = New ADODB.Recordset

    ssql = "select s1 from test where cvalue='" & Combo0.Value & "'"

    rs.Open ssql, con

    Do Until rs.EOF = True

       Text2.SetFocus

       Text2.Text = rs.Fields!s1

       rs.MoveNext

    Loop

End Sub

Answer 3

txtBox1.text = myResults.GetString

假设 txtBox1 是您的文本框，而 myResults 是您查询的记录集。不需要循环。