sql - Access VBA で SQL SELECT ステートメントを使用する方法

Question

SQL WHERE 句で値を使用したいコンボボックスがあります。コンボボックスの値に基づいて VBA 内で SELECT ステートメントを実行するにはどうすればよいですか?

Answer 1

バインドされた列の値を使用する場合は、単純にコンボを参照できます。

sSQL = "SELECT * FROM MyTable WHERE ID = " & Me.MyCombo

列のプロパティを参照することもできます。

sSQL = "SELECT * FROM MyTable WHERE AText = '" & Me.MyCombo.Column(1) & "'"

Dim rs As DAO.Recordset     
Set rs = CurrentDB.OpenRecordset(sSQL)

strText = rs!AText
strText = rs.Fields(1)

テキストボックスで:

= DlookUp("AText","MyTable","ID=" & MyCombo)

*編集済み