Question

カスタムVBA関数を使用してアクセスSQLクエリのWHERE IN関数のリストを作成しようとしていますが、動作しないようです。 GETLIST（）関数は、私はこの場合には先頭と末尾の引用符の欠落など引用符で遊んで試みた

Function getList() As String 

If DCount("[CDP]", "[tblAdmin]", "[CDP] = '" & Environ("username") & "'") = 0 Then 
     getList= "'Performance', 'ReDeployment'" 
Else 
     getList= "'Performance', 'ReDeployment', 'Absence'" 
End If 

End Function 

でのクエリの簡易版を

SELECT staffNo, [Staff Member], CoachingStage, 
FROM tblCoachingStages 
WHERE CoachingReason IN (getList()) 

コードの下に示されていますコンパイラによって追加されますが、私はそれを動作させることはできません。

私は、フォームのロード時にデータベースがロードされ、クエリがサブフォームを読み込むので、クエリのSQLを変更するためにqueryDefを使用しないようにしようとしています。すでにバックグラウンドでクエリを実行しています。

ありがとうございました

Answer 1

私はこれがうまくいくとは思わない。 WHERE句が効果的にどちらかと（自分のDCOUNT関数の結果に応じて）出ているので、あなたの関数は、あなたに値を単一の文字列を返している：

WHERE CoachingReason = "'Performance', 'ReDeployment'" 

または

WHERE CoachingReason = "'Performance', 'ReDeployment', 'Absence'" 

をたぶん、あなたは試すことができる

Answer 2

publicキーワードであるbasモジュールで関数getListを宣言するsoアクセスクエリでアクセスできます。テストのために、？getlist（）のようなVBAコードの即時ウィンドウから関数を呼び出して、enterを押します。これはエラーではなく結果を返します。 関数の戻り値のハードコードされた値でクエリを実行した後、関数が文字列を返すときにクエリ構文とSQLがOKであることを確認します。

Answer 3

@Skippyが正しいです。クエリを実行する前に、イン・バリューを解決する必要があります。

あなたは何ができる：あなたが取得しているどのようなエラー

SELECT 
    staffNo, [Staff Member], CoachingStage 
FROM 
    tblCoachingStages 
WHERE 
    CoachingReason IN ('Performance', 'ReDeployment') 
    OR 
    CoachingReason = Nz(DLookup("'Absence'", "[tblAdmin]", "[CDP] = '" & Environ("username") & "'"))