【Debug】VBA内でSQLを発行する

T_名前マスター([UserId],[名前],[表示順序])と、ComboBoxがあるとする。

コンボボックスに指定されたUserIdは出力しない例。

Private Sub Exp_SQL_Com()
  Dim Str_SQL As String
  Dim rs As New ADODB.Recordset

'SQL文を文字列で作ってやる。
  Str_SQL = "SELECT UserId, 名前 FROM T_名前マスター WHERE UserId  <> " & _
                     Me!ComboBox.Value & " ORDER BY 表示順序;"

'ちゃんとSQL構文になっているか確認。よく変数名がそのまま出てたり( ﾟ-ﾟ)~ﾟ
  Debug.Print Str_SQL
  rs.Open Str_SQL, CurrentProject.Connection
  Do Until rs.EOF
    Debug.Print rs![名前]
    rs.MoveNext
  Loop
  rs.Close
End Sub

こんな感じに、イミディエイトウィンドウにSQL文や結果を排出。

後から動的に値集合ソースなどを指定するときの確認に便利。かも？