住所があっても印刷除外したい

質問

コンバンハ。MS-Access2000・Windows98SEです。

レコードの抽出をして、その中で[顧客マスタT]テーブルの
[宛名印刷除外]フィールド(Yes/No型)にチェックが入った顧客はプレビューしない方法を探しています。

ちなみに抽出レコードのみをプレビューするVBAは
～～～～～～～～～～～～～～～～～～～～～～～
Private Sub cmb抽出データを横書印刷プレビュー_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "R葉書宛名横書印刷",_
acViewPreview, , Me.Filter
End If
End Sub
～～～～～～～～～～～～～～～～～～～～～～～
としています。

何かよい方法はあるのでしょうか？よろしくお願い致します。

回答No.2

Watapo3 · ベストアンサー

すいません・・・・Filter見逃してました。

Private Sub cmb抽出データを横書印刷プレビュー_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "R葉書宛名横書印刷",_
acViewPreview, , Me.Filter & " AND 宛名印刷除外 <> -1"
End If
End Sub

ですかね(^ ^;

お礼

コンバンハ。Watapo3さん回答ありがとうございます。
今度はうまくいきました。助かりました。さすがですね。
ありがとうございました。まだまだ初心者なので、今後も
聞くことがあると思いますが、そのときはまたよろしく
お願い致します。

回答No.1

Watapo3

回答が無いようなので・・・・

Private Sub cmb抽出データを横書印刷プレビュー_Click()
If Me.FilterOn = True Then
DoCmd.OpenReport "R葉書宛名横書印刷",_
acViewPreview, , "宛名印刷除外 <> -1"
End If
End Sub

で如何です？

お礼

上記の方法を試してみましたが、「宛名印刷除外」チェックボックスにチェックを入れた人は、うまく除外されましたが、抽出されたレコードだけではなく、すべてのレコードが表示されてしまいました。抽出されたレコードの中で印刷除外をしたいのですが、どう改良すればよろしいでしょうか？

補足

コンバンハ。his1です。回答ありがとうございます。早速試してみます。結果は後ほど報告します。お待ち下さい。まずはお礼まで。では(^-^)/~~~