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