Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル帳票形式フォームにボタンをつけたい
記事No171644
投稿日: 2016/11/11(Fri) 10:02
投稿者もちょお
解決済: ON
OS:windows8
Access Version:Access2013

こんにちは、以前もお世話になったばかりですが再びお聞きしたいことがあり参りました。

帳票形式のフォームに表示されたデータ一覧それぞれに、選んだレコードの詳細を開けるようなボタンをつけたいのですが
コードを組んでみてもその指定したレコードだけではなく、フォームに表示されているレコードすべてが表示されてしまいます。

作成しているプログラムは検索機能のある単語帳のようなプログラムで、単語名、意味等が設定されています。

組んでみたコードは以下の通りです。


Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)

If IsNull(Me.OpenArgs) = False Then
Me.Filter = "番号 = " & Me.OpenArgs
Me.FilterOn = True
End If

End Sub

タイトルRe: 帳票形式フォームにボタンをつけたい
記事No171646
投稿日: 2016/11/11(Fri) 21:29
投稿者hatena
解決済: ON
帳票フォームの詳細セクションに配置したコマンドボタンをクリック時のイベントプロシージャを
下記のように記述すればいいでしょう。
詳細フォームの名前は、「フォーム1」とします。

Private Sub コマンドボタン1_Click()

    DoCmd.OpenForm "フォーム1", acNormal, ,  "番号 = " & Me.番号

End Sub


番号はレコードソースのテーブルの主キーフィールド名にしてください。
データ型は、数値型の場合のコード例です。

詳細フォーム側にはコードは不要です。

タイトルRe^2: 帳票形式フォームにボタンをつけたい
記事No171648
投稿日: 2016/11/15(Tue) 13:34
投稿者もちょお
解決済: ON
無事詳細データを表示させることが出来ました。
本当に助かりました、ありがとうございました!

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る