|
▼kuri さん:
>▼T さん:
>>▼kuri さん:
>>>根本的にわからないことは、ある抽出条件でクエリを実行するときのコードがわかりません。今まで日付で抽出するときは、クエリのデザインビューで、直接、抽出条件に
>>>Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]
>>>Betwee Forms![F_000]![txt1]And Forms![F_000]![txt2]IsNull
>>>といった感じで入力してたので、いざVBAでコードしようとしても全くわかりません。
>>
>>クエリのデザインビューをSQLビューに変えるとヒントになるかもしれません。
>SQLで見たのですが、
>
>WHERE (((T_001.受付月日) Between forms!F_001!txt1 And forms!F_001!txt2)) Or (((T_001.受付月日) Between forms!F_001!txt1 And forms!F_001!txt2 Is Null));
>このWHERE以降に書かれている事を参考に下記の用にコードしてみましたが、上手くいきませんでした。どこが悪いのか検討がつきません。
>
>Private Sub コマンド28_Click()
>Dim stSQLWhere As String
>
>stSQLWhere = "T_001.受付月日 between[forms]![F_001]! #" & txt1 & "# AND[forms]![F_001]! #" & txt2 & "# "
>
>DoCmd.OpenForm "F_002", acFormDS, "", stSQLWhere
>
>End Sub
できることなら日付型をテキスト型に変換してしまいましょう。
そのほうが範囲指定もやりやすいと思います。
|
|