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 がクエリのレコードセットであるとします。ループは必要ありません。