ACCESS2013 - 実行時エラー '3061'。パラメータが少なすぎます。予想される1

Question

アクセス時にフォームを開いているときにエラーが発生しました。
このコードは、そのフォームの "OnOpenイベント"で実行する必要があります。 しかし、私のスクリプトにはエラーが発生しています。

Dim ThisDB As DAO.Database 
    Set ThisDB = CurrentDb 
    Dim d As DAO.Recordset 
    Dim q As String 
    q = "SELECT [tbl-apartner].[EMail] FROM [tbl-apartner] WHERE [tbl-apartner].[SID] = " & sid2 'sql query 
    Set d = ThisDB.OpenRecordset(q, dbOpenDynaset) 
    Dim Result As String 
    Result = "" 
    If d.EOF = False Or d.BOF = False Then 'if-else clause 
     d.MoveFirst 
     Do While Not d.EOF 
      If Result <> "" Then Result = Result & "; " 
      Result = Result & d!EMail 
      d.MoveNext 
      Loop 
     End If 
    d.Close 

障害のある行は次のようになります。

Set d = ThisDB.OpenRecordset(q, dbOpenDynaset) 

Answer 1

私は問題を解決しました。

ライン

q = "SELECT [tbl-apartner].[EMail] FROM [tbl-apartner] WHERE [tbl-apartner].[SID] = " & sid2

は正しくありませんでした。

q = "SELECT [tbl-apartner].[EMail] FROM [tbl-apartner] WHERE [tbl-apartner].[SID] = " & "'" & sid2 & "'" 

違いがある：= " & "'" & sid2 & "'"