Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7958 / 9994

←次へ　｜　前へ→


	【5217】Re:フォーム作成

バリュー - 05/6/2(木) 13:35 -


	引用なし

	パスワード

▼小僧さん：
こんにちは。
返信誠にありがとうございます。

>ヘッダー部のコントロールが
>>>検索_開始日　　テキストボックス
>>>検索_終了日　　テキストボックス
>>>検索_実行　　　コマンドボタン
>>>検索_発生場所　コンボボックス
>>>検索_是正先　　コンボボックス
>>>検索_不具合　　コンボボックス
>として検索_実行ボタンのクリックのコードビルダに以下のコードで試してください。
>Private Sub 検索_実行_Click()
>'開始日と終了日が空だった場合は実行させません
>　　If IsNull(Me.検索_開始日.Value) Or IsNull(Me.検索_終了日.Value) Then
>　　　　MsgBox "開始日と終了日を入れて下さい"
>　　　　Exit Sub
>　　End If
>
>'開始日と終了日が日付型でなかった場合は実行させません
>　　If Not IsDate(Me.検索_開始日.Value) Or Not IsDate(Me.検索_終了日.Value) Then
>　　　　MsgBox "開始日と終了日を正しく入力して下さい"
>　　　　Exit Sub
>　　End If
>
>'発生場所・是正先・不具合のコンボボックスを空にします
>　　Me.検索_発生場所.Value = ""
>　　Me.検索_是正先.Value = ""
>　　Me.検索_不具合.Value = ""
>
>'日付でフィルタを掛けます
>　　Me.Filter = _
>　　　　"[発行日] Between #" & Me.検索_開始日.Value & "# AND #" _
>　　　　　　　　　　　　　　 & Me.検索_終了日.Value & "#"
>　　Me.FilterOn = True
>　　
>'発生場所・是正先・不具合のコンボボックスの値集合ソースを設定します
>　　Me.検索_発生場所.RowSource = _
>　　　　"SELECT 発生場所 FROM テーブルA " _
>　　　& "WHERE 発行日 Between #" & Me.検索_開始日.Value & "# AND #" _
>　　　　　　　　　　　　　　　　 & Me.検索_終了日.Value & "#"
>End Sub

上記の通りやってみたのですが、
エラーメッセージこそ出ないのですが、
何も変化がおきません。。

どうしたらよいものでしょうか？

354 hits

▼

【5135】フォーム作成 バリュー 05/5/27(金) 11:12