ACCESS2000のフォームの表示について

質問

ACCESS2000の初心者です。AとBの２つのフォームがあり、それぞれテーブルが別ですが、ID名が同じにしてあります。
例えば、Aフォームを開いて、ID番号100を閲覧しているとき、Bフォームを開くと、BフォームのID番号100のデータを閲覧できる方法はどうすればよろしいのでしょうか。いろんな参考書をみてみたりしましたが、いまいちピンポイントな回答がありません。よろしくお願いいたします。

回答No.3

oka123 · ベストアンサー

ＮＯ１です
追加説明です
新規（選択クエリー）クエリーを作成します
元のテーブルはＢフォームに使用しているテーブルです
テーブルの全項目をフイールド横方向に展開（出力指示）
フイールドのところに当然、ID番号とあるはずなので
ここのところで、下部の「抽出条件」のところへ
[FORMS]![Ａフォーム名]![ＡフォームのなかでのID番号につけている名前]　を入力すると　そのときのＡフォームに表示されている
ID番号の値と同じレコードを選択しなさい
という意味になります
Ｂを開くマクロ命令の時にフイルター指定でこのクエリー名を入れます

お礼

丁寧な回答ありがとうございました。これでなんとか悩んでいたことが解決できそうです。助かりました。

回答No.2

O_cyan

>Aフォームを開いて、ID番号100を閲覧しているとき、Bフォームを開くと、BフォームのID番号100のデータを閲覧できる方法

一番簡単な方法はAにBを開くボタンを作りBを開く時にフィルタを指定する方法です。ボタンを配置するとウィザードが開くのでボタンの動作をフォームの操作でフォームを開くにします。次にBを選択し特定のレコードを表示するにします。AとBのIDを関連付けて結合します。後は順次進めて完了させればできます。

VBではBを開くボタンの名前をCmd1とすると下記になります。Bを開く時に開くコマンドに因数でIDの抽出を指定します。
Private Sub Cmd1_Click()
On Error GoTo Err_Cmd1_Click
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "B"
stLinkCriteria = "[ID]=" & "'" & Me![ID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Cmd1_Click:
Exit Sub
Err_Cmd1_Click:
MsgBox Err.Description
Resume Exit_Cmd1_Click
End Sub
これが簡単。

お礼

Access2000のVBAでまだ作製したことがなく、エクセルでしかVBAを使用したことがありませんでしたが、この方法でも試してみようと思います。非常に丁寧な回答ありがとうございました。わかりやすかったです。

回答No.1

oka123

いろんな方法があります
１．ＢをＡのサブフォームにする
　　Ａの中のどこかにＢを表示させるサブフォームエリアを作る
　　ＡとＢとのリンク用項目は　ID番号　を指定
２．Ａを見ていて必要なときにだけＢを表示させる方法
　　Ｂをポップアップフォームにする
　　Ｂの使用クエリーには選択クエリーを指定する
　　その選択クエリーにはＡで見ている（カーソルされている）
　　ID番号のデーターのみを得るために
　　クエリーの選択条件として
　　[forms]![Ａのフォーム名]![ID番号]
というようなかたちで指定をする
　　このポップ画面方式でする場合には　
　　Ｂフォームを開くためのマクロ用ボタンを
　　Ａフォームの中に作っておく必要があります

補足

早急な回答ありがとうございます。１．の方法はやってみて理解できましたが、２．の方法で、「クエリーの選択条件として[forms]![Ａのフォーム名]![ID番号]というようなかたちで指定をする」とはクエリーのデザインビューのどこに指定すればよいのでしょうか。もしかしてずれた質問かもしれませんが、やり方がよくわかりませんということです。お願いします。