如何從查詢結果填充文本框

Question

我的窗體上有一個組合框和一個文本框。

如果用戶從組合框中選擇一個值，例如：Cvalue那麼我想填充一個查詢結果的文本框，例如：

Select S1 From Test where Name=Cvalue 

我怎麼能這樣做？

Answer 1

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 2

如果你是填充文本框是綁定（沒有更新底層表格數據源字段），那麼你可以使用文本框的控制源DLOOKUP，避免VBA：

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

Answer 3

txtBox1.text = myResults.GetString

提供txtBox1是您的文本框，而myResults是來自您的查詢的記錄集。不需要循環。