複数条件の抽出フォームの設計 その1

帳票フォームのフォームヘッダーに下記のテキストボックスを配置 txt社員コード、txtフリガナ、txt氏名、min誕生日、max誕生日、txtプロフィール さらに下記のコマンドボタンを配置。 cmdFilter（標題: 抽出）、cmfFilterOff（標題: 抽出解除） フォームデザインビュー フォームモジュール Private Sub cmdFilter_Click() Dim strFilter As String, strExp As String, aryOpe As Variant If Not IsDate(Me.min誕生日) Then MsgBox "日付ではありません。" Me.min誕生日.SetFocus Exit Sub End If If Not IsDate(Me.max誕生日) Then MsgBox "日付ではありません。" Me.max誕生日.SetFo