OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

ACCESSのサブフォームをVBAで・・・

  • すぐに回答を!
  • 質問No.243452
  • 閲覧数177
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 78% (193/245)

よろしくお願い致します。

ACCESSのサブフォームをVBAでテーブルに入力するにはどのようにしたら良いのでしょうか?
イメージ的にはボタンをクリックするとメインのフォームとサブフォームの両方のデータが、別々のテーブルに入力されるようにしたいのですが・・・

ご回答ください。お願い致します。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル7

ベストアンサー率 46% (7/15)

もう少し詳しく説明が欲しいのですが・・・ >メインフォームとサブフォームが存在してA・Bのテーブル両方に同じ内容が Upされればよいのでしょうか? >それともA・Bの片方にメインの内容反対側にサブの内容がUpされれば良いの でしょうか? どちらにせよDAOを使用します。2000以上だったらADOでも可能ですけど・・・ 一応簡単なDAO例を書いておきます。 >メインフォー ...続きを読む
もう少し詳しく説明が欲しいのですが・・・

>メインフォームとサブフォームが存在してA・Bのテーブル両方に同じ内容が
Upされればよいのでしょうか?
>それともA・Bの片方にメインの内容反対側にサブの内容がUpされれば良いの
でしょうか?
どちらにせよDAOを使用します。2000以上だったらADOでも可能ですけど・・・
一応簡単なDAO例を書いておきます。
>メインフォームのテキストボックスAの内容をA_TBLのテキストAレコードにUp
するには↓

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim sStrSql As String
Set dbs = CurrentDb
sStrSql = "SELECT A_TBL.テキストA, FROM A_TBL"
Set rst = dbs.OpenRecordset(sStrSql)
With rst
Do Until .EOF
.Edit
.Fields("テキストA") = Me.テキストA.Value
'フィールド"テキストA"にテキストボックスAの値をUp
.Update
.MoveNext
Loop
.Close
End With
dbs.Close
'詳細が分かればもう少し説明できます。
補足コメント
Fujjy

お礼率 78% (193/245)

説明不足で申しわけありませんでした。
A・Bの片方にメインの内容反対側にサブの内容がUpしたいと思っております。
あと、A・B両方の関連性を持たすためのキーは、同じ物を両方にUpさせたいと考えております。
よろしく、お願い致します。
投稿日時 - 2002-04-01 09:40:43

このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ