No.3ベストアンサー
- 回答日時:
おつかれさま~(^_^)
惜しいですね!
もう少しですね
さてさて、明日出張なので今日はたぶん最後のレスになってしまいますが、
ちなみに明日は返答できないのであしからず。。。
> Forms("サブフォーム").RecordSource = strSQL
駄目でしたか。。。
もし私が記載した内容で埋め込みのサブフォームを
利用しているのであれば
自分を参照する為に「Me」を使って
Me.埋め込みフォーム.Form.RecordSource = StrSQL
Me.埋め込みフォーム.Requery
に変更すれば動くと強く思います。
# 念じてます(^^)
ちなみに、
Me.
と打ち込んだ時点でオートコンプリート(名称あってるかな~)
機能が働いて参照できるオブジェクトが表示される
はずです。
その中にKojiさんが書いた埋め込みオブジェクトが
きっとあるはず
もしかすると"FormA"とか名前を付けたつもりでも
Visual Basic Editor君が気を利かせて
Form_formA
とかになってる場合があります。
最近やってないんでうろ覚えなんですが、こんな処を注意すれば大丈夫!
追伸
このコードって検索とかで使えますから
覚えておくときっと役に立ちますよ♪
ありがとうございます。
>Me.埋め込みフォーム.Form.RecordSource = StrSQL
>Me.埋め込みフォーム.Requery
ばっちり正常に機能しました。
感激です!
>覚えておくときっと役に立ちますよ♪
とりあえず自作テンプレート集に収録しておきました。(^v^)
No.2
- 回答日時:
こんにちは(^^)
>> 選択クエリーを読み込んで何をするか? が重要なところだと思いますが
> 今回の場合は単に抽出条件を指定して表示したいだけなのです。
この場合単に表示するという記載ですが
「指定したフォームのレコードソースに指定した選択クエリーを入れてあげる」
という事だと思います。たぶん...
> この文字列を選択クエリを開くときの条件として指定したいのです。
実際にはVBAで処理をするという事なので
こんなフォームが欲しいのではないでしょうか?
親フォームにテキストボックス2ヶとコマンドボタンを配置する。
たとえば名称は下記と仮定する。
Text1
Text2
Commnd1
サブフォームに選択クエリーを表示する表を配置する。
サブフォームのレコードソースは適当な物にしておく。
(たとえば日付で選択していない物など)
コマンドボタンクリックイベントにコードを書き込む
Dim StrSQL as String 'SQL文を代入する
dim Dtm1 , Dtm2 as Date '日付を入れる
dim Str1 , Str2 as String
Date型で入力されているかのエラーチェックをしておく。
IsNull 関数あたりで IF 文あたりで行う。
dtm1 = Txet1
dtm2 = Txet2
「Text1 < Text2」 の条件になるかどうかのエラーチェック
SQLは文字列しか使えないので、日付型からFormat関数あたりで
文字列に変更し各 Str1 , Str2 に代入する。
この辺りはヘルプを参照してください。
StrSQL = "選択クエリーをカットアンドペーストで入れる"
StrSQL = StrSQL & "長いようだったらわけて見やすく"
StrSQL = StrSQL & "日付の前まで入れてあげる"
StrSQL = StrSQL & Str1 'ここで"2002/4/1"みたいな物を代入する事に
StrSQL = StrSQL & "# and < #"
StrSQL = StrSQL & Str2 'ここの説明は同様
StrSQL = StrSQL & "最後の文章"
これでSQL文が完成するので
サブフォーム名.レコードソース = StrSQL
( ↑日曜日なのでスペルは思い出せない...)
あたりで代入すればOKのはずですが...
あ、最後にサブフォームをリクエリーすれば完成じゃないでしょうか?
どうでしょう!
要するに文字列に無理やり入れてやる作業をすれば宜しいという事で
回答になってはおりませんでしょうか?
これでだめなら、選択クエリーをSQLビューでカット&ペーストしてUPして
ください。
それではうまく行くといいですね♪
脳内活動が日曜日モードに入っているので、この程度しか回答できないのですが
テキストエディターで書いたので、間違いがあったら適当に直してください。
この回答への補足
詳説ありがとうごっざいます。
テストファイルを作り実行してみましたが、
サブフォーム名.レコードソース = StrSQL
のところが問題です。
「VBAコードで参照されている“サブフォーム”フォームが見つかりません」
とエラーが出て止まってしまいます。
実際には
Forms("サブフォーム").RecordSource = strSQL
と記述しました。
何がいけないのでしょうか・・・
No.1
- 回答日時:
思わずできますよ!と書いてしまいましたが
よく読んでみると駄目ですね(^_^)
実際なにをしたいんですか?
抽出するだけじゃ意味ないですよね~
抽出してなにかするという記述が無いと意味が。。。
抽出した物をカウントするとか
テーブルを作成するとか追加するとか
(Count だったらヘルプをみればきっと解決しますよ)
選択クエリーを読み込んで何をするか?
が重要なところだと思いますが
改めて検討してみてください。
ではでは
この回答への補足
>実際なにをしたいんですか?
「0203」など年号2桁+月2桁の文字列から
"> #2002/3/1# and < #2002/4/1#"といった抽出条件を算出し
この文字列を選択クエリを開くときの条件として指定したいのです。
デザインビューの抽出欄だけでこの処理をするのは難しいと思ったので、
VBAを利用しようと考えた次第です。
>選択クエリーを読み込んで何をするか? が重要なところだと思いますが
今回の場合は単に抽出条件を指定して表示したいだけなのです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCESS クエリの抽出条件を動的に変更したい。
その他(コンピューター・テクノロジー)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
VBAからクエリのパラメータを設定したいです。
その他(データベース)
-
-
4
VBAをつかってクエリの情報を抽出するには??
Visual Basic(VBA)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
9
アクセスVBAのMe!と[ ]
Access(アクセス)
-
10
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
11
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
12
ACCESS2003 でクエリの抽出条件に変数を代入したい。
その他(データベース)
-
13
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
14
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
15
ACCESS2010のVBAでフォーム内クエリのフィールド値を取得したい
Visual Basic(VBA)
-
16
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
17
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
18
AccessのWHERE句において、変数は使用できますか?
Access(アクセス)
-
19
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
20
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クエリ実行結果0件の場合のフ...
-
ACCESSでVBAから選択クエリの抽...
-
ACCESSで、EXCELのような、sumi...
-
AccessでIDを入力したら他の項...
-
ACCESS2003のグループ化のエラ...
-
Accessクエリの抽出条件にフォ...
-
ACCESS2007 マクロ クエリのパ...
-
access クエリでIIF文で抽出条...
-
ACCESS フォームで抽出したデー...
-
【Access2000】月末の日付を条...
-
フォームからクエリの抽出期間...
-
Access 抽出したフォームをフ...
-
アクセスのフォームに連番を表...
-
Accessのテキストボックスとコ...
-
Accessでフィルタの実行アクシ...
-
Access2016埋め込みマクロでの...
-
エクセルで、抽出したデータだ...
-
Access サブフォームでの選択行...
-
アクセエスのレコードの更新をV...
-
Accessのコンボボックスの値が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでVBAから選択クエリの抽...
-
AccessでIDを入力したら他の項...
-
ACCESSで、EXCELのような、sumi...
-
ACCESS2003のグループ化のエラ...
-
クエリ実行結果0件の場合のフ...
-
ACCESS2007 マクロ クエリのパ...
-
ACCESS クエリのデザインビュ...
-
ACCESS フォームで抽出したデー...
-
アクセスのフォームに連番を表...
-
クエリーの結果をフォームに表...
-
サブフォームを利用したクエリ...
-
access クエリでIIF文で抽出条...
-
ACCESSで、フォームで抽出した...
-
Accessクエリの抽出条件にフォ...
-
Access 抽出したフォームをフ...
-
VarChar型をINT型に変換するには
-
フォームからクエリの抽出期間...
-
アクセス2007 フォームでフィ...
-
Accessのテキストボックスとコ...
-
access2003 レポートの表示に...
おすすめ情報