Microsoft Access 掲示板

エラーの原因の特定のために下記の手順でコードを順に実行して試してみてください。

On Error の行はデバッグ中はコメントアウトします。
stFilter の条件式をシンプルなものから少しずつ足していく。
エラーが出た直前に足して条件式が原因と特定できる。
Debug.Print でイミディエイトウィンドにstFilterの内容を出力して
それが条件式として問題ないか確認する。
1.

        stFilter = "本部 In(" & Mid(stFilter, 2) & ")"
        Debug.Print stFilter
        'On Error Resume Next 
        DoCmd.OpenReport "販社連絡", acViewPreview, , stFilter
        'On Error GoTo 0

2.

        stFilter = "本部 In(" & Mid(stFilter, 2) & ") And ([申請日]=#" & [TXT申請] & "#)"
        Debug.Print stFilter
        'On Error Resume Next 
        DoCmd.OpenReport "販社連絡", acViewPreview, , stFilter
        'On Error GoTo 0

3.

        stFilter = "本部 In(" & Mid(stFilter, 2) & ") And ([不備]=true Or [申請日]=#" & [TXT申請] & "#)"
        Debug.Print stFilter
        'On Error Resume Next 
        DoCmd.OpenReport "販社連絡", acViewPreview, , stFilter
        'On Error GoTo 0