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

Question

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

如果用户选择Combobox中的值，例如： 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是您查询的记录集。不需要循环。