Accessフォームの操作で

質問

2つの別々なフォームがあります。
それぞれのフォームの基になっているテーブルが別々にあります。
ひとつはデータが入力されているテーブルで
もうひとつはフォームから入力していく空のテーブルです。
データが入力されているフォームでは、データ抽出するサブフォームを持っていて、
そこにあるレコードセレクタをダブルクリックすると
もうひとつの空のテーブルから作成したフォームにデータを入力していくようにしたいんですけど、うまくいきません。

乱文でわかりにくいとは思います。
ご迷惑をおかけしますが教えてください。
よろしくお願いします。

回答No.3

O_cyan · ベストアンサー

ＢフォームのText1フィールドのデータをＢテーブルのNameに保存したい。
ＢフォームのレコードソースがＢテーブルになっていれば、レコードの保存ボタン（Cmd1)を作ったとして下記の記述でＢテーブルに保存できます。

Private Sub Cmd1_Click()
On Error GoTo Err_Cmd1_Click

　　Me![Name] = Me![Text1]　 'NameにTxet1を書き込む
DoCmd.GoToRecord , , acNewRec

Exit_Cmd1_Click:
Exit Sub

Err_Cmd1_Click:
MsgBox Err.Description
Resume Exit_Cmd1_Click

End Sub

こんな感じで試してみてください。

回答No.2

O_cyan

>ＡテーブルからのデータをどのようにしたらＢフォームへ持っていけるか
レコードセレクタをなしにして替りにＢフォームを開くボタンを創り特定のレコードを開くようにしてＢフォームを開くようにする。
ＢフォームにＡテーブルの必要なデータを表示できる非連結のフィールドを創る。
Ｂフォームに入力したデータをＢテーブルに保存する際にＢフォームの非連結フィールドに読み込んだＡテーブルのデータも一緒にＢテーブルへ保存する。
保存するときのＶＢに非連結フィールドのデータを保存する記述を付け加えれば出来ます。

補足

必要なデータを表示させる非連結フィールドはどうしたら作れますか？
わかる知識内で、フォームを開くときにWhere条件式を入力して、Ａフォームのサブフォームの主キーを基にして、選択したレコードのみをＢフォームへ表示させることはできましたが、そこからＢテーブルに保存するにはどのようなＶＢの記述になりますか？
また、Ｂフォームに入力した段階でＢテーブルに同時に保存してもかまわないのですが、それは可能ですか？

回答No.1

O_cyan

例えば
Ａテーブルのレコードを抽出してＡフォームに表示しボタン等をクリックすると空のＢテーブル用のＢフォームが開きＡテーブルから必要なデータはＡテーブルから持ってきてその他は入力されたデータをＢテーブルに一緒に保存するということですか？
どの辺がうまくいかないのですか？

補足

回答ありがとうございます。
理想的には、Ａフォームのレコードセレクタを使って、別のＢフォーム（表形式）にＡフォームでクリックしたデータを次々に入力していきたかったんです。
根本的にＡテーブルからのデータをどのようにしたらＢフォームへ持っていけるかがわからなくて、
クエリを使っていいのか、それともＶＢＡなのか、都合のいい方法が思いつきませんでした。
まだAccessを使い始めて間もないもので
初歩的なことかもしれませんが教えて下さい。