こんにちは。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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
-
4
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
5
AccessVBA RecordSourceのリセットについて
Access(アクセス)
-
6
帳票フォームに全レコードを表示できない
その他(データベース)
-
7
どこにもフォーカスを当てたくない
Access(アクセス)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
9
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
10
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
11
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
12
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
13
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
14
「RunSQL」と「Execute」の違い
Access(アクセス)
-
15
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
16
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
-
17
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
18
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
19
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
20
新規レコード行を非表示にしたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access サブフォームでの選択行...
-
サブフォームでのダブルクリッ...
-
Accessのサブフォームから値を...
-
初心者です。accessで請求書を...
-
AccessのFormのみをスクリーン...
-
Access2000、これはいったい・...
-
ACCSESS2013VBA フォームのレコ...
-
Accessで、一覧からクリックし...
-
サブフォームでフィルタしたデ...
-
サブフォームが見えなくなる。
-
access サブフォームにリストを...
-
Access 複数フォームを...
-
access 直前まで開いていたフォ...
-
Accessで、サブフォームのある...
-
Accessのサブフォーム内で連続...
-
Accessのコンボボックスに連動...
-
Access ウィンドウサイズの変更
-
Access2000 サブフォームのReco...
-
【ACCESS2000】 サブフォーム...
-
ACCESSでサブフォームの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
Access 複数フォームを...
-
(ACCESS)条件に応じて、テキ...
-
access サブフォームにリストを...
-
Accessのサブフォームから値を...
-
サブフォームが見えなくなる。
-
Access2000、これはいったい・...
-
サブフォームでのダブルクリッ...
-
サブフォームのデータを保存す...
-
googleフォームでインストール...
-
Accessで、一覧からクリックし...
-
ACCESSでfilterとorderbyについて
-
Access2000 サブフォームのReco...
-
レコードセットで得た結果をサ...
-
サブフォームの切り替え方を教...
-
アクセスでサブフォームのレコ...
-
AccessのFormのみをスクリーン...
-
別MDBのフォームを起動
-
Accessのコンボボックスに連動...
おすすめ情報