全角/半角チェック

クエリーに以下のフィールドを用意して、抽出条件をTrueとします。
※[検索文字列]の部分がパラメータとなります。

フィールド　
IIf(IsNull(InStr([Mailアドレス], "@")) Or InStr([Mailアドレス], "@")=0, False, 
    IIf(StrComp(Mid([Mailアドレス], InStr([Mailアドレス], "@")), 
      [検索文字列], 0)=0, 
      True, 
      False
    )
)
抽出条件 True

解説

[Mailアドレス]フィールドの'@'以降の文字と[検索文字列]を、
バイナリーモードで比較し、一致したものを条件とする
ということになります。