Как заполнить текстовое поле из результата запроса

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 являются записями из вашего запроса. Никакой цикл не требуется.