![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Filterで抽出した複数のデーターの詳細をそのデーターの順で連続して表示したいのでご指導ください。
F_物件検索 (メインフォーム)
F_検索結果 (サブフォーム用)
sub検索結果 (サブフォーム)
F_店頭用 (詳細表示用)
抽出された最初のデーターの詳細を表示する場合は下記の通りで問題なく動作します。
Private Sub cmd物件詳細_Click()
DoCmd.OpenForm "F_店頭用", acNormal, , "物件番号 = " & Me!sub検索結果.Form!物件番号, acFormReadOnly
End Sub
上記で表示されたF_店頭用の詳細画面に【次へ】のボタンをAccessのマクロで設定しても、表示されるデーターは抽出されたものではなく、テーブルのデーター順に表示されます。
そこで、OpenFormコマンド、他で何とかならないものでしょうか?
下記ではエラーがでます。
Private Sub cmd連続詳細_Click()
DoCmd.OpenForm "F_店頭用", , Me!sub検索結果, acFormReadOnly
End Sub
尚、全てのデーターは下記にあります。
www.ky-housing.jp/oshiete-goo/q-2.accdb
No.4ベストアンサー
- 回答日時:
>VBAのプログラムだけで抽出しているため、
>詳細表示のフォームにAccessのNEXTボタンを付けた場合、
>抽出したデーターではなく、
>テーブルのデーターをそのまま順次表示してしまいます。
やっぱり意味が判りません。
詳細表示のフォームに WHERE節をしてするのとVBAのプログラムだけで抽出は矛盾。
それに抽出もしていないレコードデータを参照するコマンドボタンの必要性も今一。
ID__fld_1__fld_2
_1__A____________2
_2__B____________1
_3__C____________3
例えば、
Private Sub コマンド0_Click()
DoCmd.OpenForm "tab1", acNormal, , "fld_2=2"
End Sub
質問文のみで判断すれば、このようにフォーム[tab1]を条件節を指定してオープン。
が、フォーム[tab1]のロードイベントでもレコードソースをセットしている。
ならば、条件節を指定する意味がないです。
どうしても、フォーム[tab1]のロードイベントでレコードソースを設定する必要があれば・・・。
Private Sub コマンド0_Click()
DoCmd.OpenForm "tab1", acNormal, , , , , _
"SELECT * FROM tab1 WHERE fld_2=2 ORDER BY fld_2"
End Sub
と、レコードソースそのものをフォーム[tab1]のオープン時に指定。
Private Sub Form_Load()
If Len(Me.OpenArgs & "") Then
Me.RecordSource = Me.OpenArgs
End If
End Sub
Private Sub コマンド8_Click()
DoCmd.GoToRecord , , acNext
End Sub
>尚、全てのデーターは下記にあります。
そんな、得体の知れないファイルをダウンロードする勇気はないです。
簡潔に、解決したい問題点を整理して提示されたし。
「出来ない」という事情説明よりも、解決すべき問題点の提示が肝心。
と、思います。
この回答への補足
ご指導ありがとうございます。詳細フォームに検索結果のレーコードソースを設定すべく悪戦苦闘中です。(エラー続発)改めてご指導を戴くことになると思いますが、しばらくはいろいろ試してみます。ありがとうございました。
補足日時:2008/05/19 03:19サブフォームで抽出したデーターをレコードセットして再利用することには失敗しましたが、詳細フォームを開く際に同一条件で再度フィルターを掛けることで一応目的を達成することができました。ただ、新たな問題が発生しました。
Private Sub 次へ_Click()
DoCmd.GoToRecord , , acNext
End Sub
これで移動はできますが、次のレコードが無いのに「次へ」をクリックするとエラー表示と一緒にプログラムまで表示されてしまいます。そこで、次のレコードがない場合にクリックを無効にしたいのですが、方法はありますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Excel(エクセル) エクセルにデータを表示したいため、外付けデーターベースが必要です。どのようなものがありますか。 2 2023/03/12 20:41
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AccessでIDを入力したら他の項...
-
ACCESSでVBAから選択クエリの抽...
-
ACCESSで、EXCELのような、sumi...
-
ACCESS クエリのデザインビュ...
-
AccessでログインIDを抽出条件...
-
クエリーの結果をフォームに表...
-
ACCESSで、フォームで抽出した...
-
クエリ実行結果0件の場合のフ...
-
Access サブフォームでの選択行...
-
エクセルで、抽出したデータだ...
-
Accessフォームが入力できません。
-
前のレコードの値を自動で入れたい
-
帳票フォームでのあるコンボボ...
-
スクロールバーをVBAで操作したい
-
accessでオートナンバーを使わ...
-
ExcelのComboboxでマウスのスク...
-
DoCmd.SearchForRecord が動か...
-
Accessのレコード数をテキスト...
-
未審査請求包袋抽出表作成とは...
-
【AccessVBA】レコードセットOp...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでVBAから選択クエリの抽...
-
AccessでIDを入力したら他の項...
-
ACCESSで、EXCELのような、sumi...
-
Accessクエリの抽出条件にフォ...
-
ACCESSのレポートにフォームの...
-
クエリ実行結果0件の場合のフ...
-
ACCESS2003のグループ化のエラ...
-
ACCESS フォームで抽出したデー...
-
ACCESS2007 マクロ クエリのパ...
-
ACCESSで、フォームで抽出した...
-
アクセスのフォームに連番を表...
-
クエリーの結果をフォームに表...
-
サブフォームを利用したクエリ...
-
【Access2000】月末の日付を条...
-
AccessのフォームをExcelに出力
-
ACCESS クエリのデザインビュ...
-
VarChar型をINT型に変換するには
-
ADOレコードセットのコピー
-
アクセスで期間を指定しての抽...
-
Accessのパラメータクエリ作成...
おすすめ情報