![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
こんにちは。Access 2010のフォームについてお教え頂けないでしょうか。
下記URLのようにForm1があります。
http://kie.nu/yHO
Form1には下記のオブジェクトがあります。
・テキストボックス tb1
・ボタン b1
・サブフォーム sf1
またテーブルが1つあります。
・テーブル T1
やりたいこと:
テキストボックスにキーワードを入力して検索ボタンを押すと、検索結果がサブフォームに表示されるようにしたい。
条件:
VBAでやりたい。
そこで下記のコードを書いてみました。
Private Sub cmd_exe_Click()
Dim objADOCON As ADODB.Connection
Dim objADORS As ADODB.Recordset
Dim SQL As String
Set objADOCON = Application.CurrentProject.Connection
Set objADORS = New ADODB.Recordset
SQL = "select * from T1 where keyword = '" & tb1 & "'"
objADORS.Open SQL, objADOCON, adOpenKeyset, adLockOptimistic
ここまではできて、無事にレコードセットも取得することができました。
しかし、ここでつまってしまって、どのように結果をサブフォームに出力していいのかわかりません。
こちらお教え頂けないでしょうか。宜しくお願いします。
No.1ベストアンサー
- 回答日時:
>SQL = "select * from T1 where keyword = '" & tb1 & "'"
でエラーになるかと思ったら出来るんですね・・・??
Accessが気を利かしてくれているらしいのですが、少し気味が悪いので
Private Sub cmd_exe_Click()
Dim SQL As String
If isnull(me!tb1) then
SQL = "select * from T1 "
else
SQL = "select * from T1 where keyword = '" & ME!tb1 & "'"
end if
me!sf1.form.recordsource = sql
・・・
では?
>me!sf1.form.recordsource = sql
VBAでrecordsourceというプロパティを使えるのを知りませんでした。お教え頂いたとおりにやりましたら無事に成功しました!ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたが好きな本屋さんを教えてください
どのくらいの規模間で、どのような本が並んでいるか、どのような雰囲気なのかなどなど...
-
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
7
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
8
どこにもフォーカスを当てたくない
Access(アクセス)
-
9
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
10
Accessでグローバル変数を宣言して定数を定義したい
その他(データベース)
-
11
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
12
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
13
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
14
サブフォームのイベント取得
Visual Basic(VBA)
-
15
access サブフォームにリストを表示させたいが一件しかレコードが表示されない
Access(アクセス)
-
16
新規レコード行を非表示にしたい
Access(アクセス)
-
17
アクセスVBAのMe!と[ ]
Access(アクセス)
-
18
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
19
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
20
非連結サブフォームのレコードソース
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2000、これはいったい・...
-
Access サブフォームでの選択行...
-
Access 複数フォームを...
-
ACCSESS2013VBA フォームのレコ...
-
Access ウィンドウサイズの変更
-
access サブフォームにリストを...
-
サブフォームが見えなくなる。
-
別MDBのフォームを起動
-
アクセスでサブフォームのレコ...
-
Access VBA acCmdSelectRec...
-
サブフォームの金額合計をメイ...
-
AccessのDoCmd.ApplyFilterの使...
-
ACCESSでサブフォームの...
-
保存されない理由は?accessvba
-
(ACCESS)条件に応じて、テキ...
-
Accessのサブフォームから値を...
-
ACCESS サブフォーム MAX関数...
-
googleフォームでインストール...
-
ACCESSでのデータ削除について
-
レコードセットで得た結果をサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
Access 複数フォームを...
-
Access2000、これはいったい・...
-
Accessのサブフォームから値を...
-
access サブフォームにリストを...
-
サブフォームでのダブルクリッ...
-
Access2000 サブフォームのReco...
-
(ACCESS)条件に応じて、テキ...
-
サブフォームが見えなくなる。
-
2回目に画面のレコードセットの...
-
サブフォームのデータを保存す...
-
Accessで、一覧からクリックし...
-
Accessでのフォーム表示がうま...
-
AccessのFormのみをスクリーン...
-
ACCESSでfilterとorderbyについて
-
サブフォームでフィルタしたデ...
-
レコードセットで得た結果をサ...
-
アクセスでサブフォームのレコ...
-
初心者です。accessで請求書を...
おすすめ情報