Access2007の初心者です。ＶＢＡの記述で困っています、お力添え

質問

Access2007の初心者です。ＶＢＡの記述で困っています、お力添えお願いします。
チェックボックスにチェックが入っている場合に、誕生日が空白のものを抽出する部分のVBAの
記述のところで躓いているのだと思っています。

■テーブルの情報
・テーブル名：T_会員情報
・T_会員情報のフィールド：会員名（テキスト形式）・性別（数値型）・誕生日（日付/時刻型）

■実現したいこと
・T_会員情報で、「検索」ボタンを押下したら、条件にあった情報がフォーム上に抽出できるもの。

■用意したフォーム
T_会員情報の連結フォーム
・フォーム上には以下を用意
　◆「性別」の非連結コンボボックス:txtSeibetsu
　◆「誕生日が空白」という非連結チェックボックス：chkBirthday
　◆「ＡＮＤ　ＯＲ」のいずれかが選択できるオプションボタン
　◆「検索ボタン」
　◆「会員名」「性別」「誕生日」のT_会員情報の帳票フォーム

■ＶＢＡ
Option Compare Database
Option Explicit

Const cAnd = 1
Const cOr = 2
Const cBaseQuery = "SELECT * FROM T_会員情報"

Private Sub 検索ボタン_Click()

Dim strWhere As String
Dim strAndOr As String

strWhere = vbNullString

If Me.optAndOr.Value = cAnd Then
strAndOr = " AND "
Else
strAndOr = " OR "
End If

'性別検索
If ISNull(Me.txtSeibetsu.value)=False Then
strWhere = strWhere & strAndOr & " 性別 = " & Me.txtSeibetsu.Value
End If

'誕生日空白検索
If Me.chkBirthday=False Then
strWhere = strWhere & strAndOr & " 誕生日= " & Null
End If

'WHERE句編集
strWhere = Replace(strWhere, strAndOr, "WHERE", , 1)

'レコードソース書き換えと再クエリ
Me.RecordSource = cBaseQuery & " " & strWhere
Me.Requery

End Sub

誕生日が空白の検索のところの記述が問題だと思っています。
初心者でよくわかっておりません。
ご存知の方がいらっしゃいましたら、教えてください。
よろしくお願いします。

回答No.2

piroin654 · ベストアンサー

私の伝え方悪かったようです。
strWhere = strWhere & strAndOr & " [誕生日] Is Null"
です。このままコピーしてください。
IsNull ではなく、Is Null　と離します。
これでエラーは出ないと思いますが。

お礼

ご回答本当にありがとうございます。
誕生日空白のチェックボックスにチェックを入れて検索すると、
「パラメータの入力」を求められてきてしまいます。

何が原因でしょうか？
もしご存知でしたら、お力添えください。
よろしくお願いします。

回答No.6

piroin654

エラーはプログラム上、コンボに表示
がないとエラーが起きます。したがって
コンボの規定値を記入しておく必要が
あります。
誕生日のパラメータが表示される、という
ことはプログラムの中で記入ミスがあるか、
コンボボックスやテーブルに記入ミスが
ある可能性があります。

ところで、このプログラムで実現したい
ことについては考えていなかったのですが、
気になったのでこんなことがしたいのだろ
うか、ということで以下のように書き出して
みました。
１　全ての表示
SELECT T_会員情報.*
FROM T_会員情報;

２　男の表示
SELECT T_会員情報.性別
FROM T_会員情報
WHERE (((T_会員情報.性別)=1));

３　男で記入漏れの表示
SELECT T_会員情報.性別, *
FROM T_会員情報
WHERE (((T_会員情報.性別)=1) AND ((T_会員情報.誕生日) Is Null));

４　女の表示
SELECT *
FROM T_会員情報
WHERE (((T_会員情報.性別)=2));

５　女で記入漏れの表示
SELECT T_会員情報.性別, *
FROM T_会員情報
WHERE (((T_会員情報.性別)=2) AND ((T_会員情報.誕生日) Is Null));

６　男と女の記入漏れの表示
SELECT *
FROM T_会員情報
WHERE (((T_会員情報.誕生日) Is Null));

どうでしょか。もしこうならば、少し
プログラムを手直ししないとできない
のではと思います。というのは、
鍵をにぎるのはstrWhereとstrAndOr
ですが、この組み合わせとコードの
流れがうまくいってうないような
気がします。コードに手を加えて
いないので、どんなものかなと
思案しているところです。オプション
グループはチェックボックス
に変えてもいのではという気も
しますが。

お礼

度々ご回答くださり、ありがとうございます。
教えてくださったことを元に考え直しプログラムに手を加えたところ、動くようになりました。
諦めかけていたので、本当に助かりました。
ありがとうございました。

私は、あるVBAの参考書をみながら、記述を見よう見まねで作成していたのですが、
私が作成したいものは、とくに「OR」を必要としないので、
「AND」「OR」を選択するチェックボックスを省き、
全て「AND」選択にして作成しなおしました。
↓こうすることで動きました。

Option Compare Database
Option Explicit

Const cBaseQuery = "SELECT * FROM T_会員情報"

Private Sub btnSearch_Click()

Dim strWhere As String

strWhere = vbNullString

'性別検索
If Me.txtSeibetsu > 0 Then
strWhere = strWhere & "AND" & " 性別 = " & Me.txtSeibetsu.Value
End If

'誕生日検索
If Me.chkBirthday.Value = True Then
strWhere = strWhere & "AND" & "[誕生日]Is Null"
End If

'WHERE句編集
strWhere = Replace(strWhere, "AND", "WHERE", , 1)

'レコードソース書き換えと再クエリ
Me.RecordSource = cBaseQuery & " " & strWhere
Me.Requery

End Sub

回答No.5

piroin654

コードを見る限り問題はないのですが、
エラーの内容からすると
>誕生日が空白」という非連結チェックボックス：chkBirthday
のチェックすボックスに規定値、
たとえば１を設定するとエラー
回避が出来るのでは、と思います。

回答No.4

piroin654

もし、パラメータの要求が
[誕生日]にかかわるならば、
strWhere = strWhere & strAndOr & " IsNull([誕生日])"
としてみてください。解釈は
同じですが。一応、パラメータ
の要求を載せてみてください。

お礼

引き続きご回答くださり、ありがとうございます。

教えてくださったとおりにしてみたのですが、以下のような動きをしてしまいます。
■うまくいく場合
「性別」のみを選択して検索したとき

■うまくいかない場合：
・「誕生日が空白」のみにチェックを入れて検索した時
エラー内容：『実行時エラー　'3131';FROM句の構文エラーです』

・「性別」を指定して、「誕生日が空白」にチェックを入れた場合
パラメータの入力　誕生日

がでてしまいます。
空白を検索する場合は、別のVBAの記述を考えたほうがよいのでしょうか？

もし何かご存知でしたら、教えてください。
よろしくお願いします。

回答No.3

piroin654

パラメータの内容は何でしょう。

回答No.1

piroin654

>strWhere = strWhere & strAndOr & " 誕生日= " & Null
Null ではなく　Is Null
なのでは？
コンパイルか実行でエラーが出るでしょうから
エラー番号と内容を書くと手間が省けますが。

お礼

お返事ありがとうございます。

すみません、細かいですが、if文が「False」⇒「True」としています。
私の記述が誤っておりました。

'誕生日空白検索
If Me.chkBirthday.Value=True Then
strWhere = strWhere & strAndOr & " 誕生日= " & Null
End If

教えてくださったとおり、「strWhere = strWhere & strAndOr & " 誕生日= " & IsNull」
としたところ
「コンパイルエラー　引数は省略できません」エラーがでます。
引数には何を入れたらよいのでしょうか？

すみません、ご存知でしたらご教授ください。
よろしくお願いします。