- 締切済み
Accessのサブフォームから値を参照する方法について
いつも拝見させて頂いております。 現在、Access97のフォームに以下のようなコントロールを配置しています。 1.フォームにサブフォームAを配置 1-1.サブフォームAにテキストボックスAを配置(入力用) 2.フォームにサブフォームBを配置 2-1.サブフォームBにテキストボックスBを配置(表示用) ※フォームは一つです。 ＜実現したい事＞ サブフォームA内のテキストボックスAの値をサブフォームB内の テキストボックスBに表示したいのですが、なかなかうまくいきません。 サブフォームA内のテキストボックスAの値を変更するとサブフォームB内の テキストボックスBも変更するようにしたいので、テキストボックスBの ControlSourceに[Form]![フォーム]![サブフォームA].[Form]![テキストボックスA] としましたが実現できませんでした。 どのような方法をとれば実現できるでしょうか？ 宜しくお願いします。
- emoemo
- お礼率78% (11/14)
- その他(データベース)
- 回答数2
- ありがとう数3
- みんなの回答 （2）
- 専門家の回答
みんなの回答
複雑になって、サブフォームだけで動作しなくなるんでいやなんですが、 サブフォームＡのフッターにあるテキストボックスなら１個しかないんで メインフォームにテキストボックスに ＝[Form]![フォーム]![サブフォームA].[Form]![テキストボックスA] サブフォームＢのテキストボックスに ＝[Form]![フォーム]![メインのテキストボックス] としたら、まわりまわってでてこないかしら。
サブフォームのレコードが特定されていないので、どのレコードを指しているかわからないのでしょうね。 １）レコードに保存できるのなら、 サブフォームＡとサブフォームＢのソースレコードを一緒にして、 サブフォームＡに入力後、レコードを保存すれば、サブフォームＢの同一項目に反映されると思います。 この方法は使えませんか？
お礼
回答ありがとうございます。 実は、サブフォームA内のテキストボックスAは、同フォームの レコードソースで指定したテーブルの1フィールドをSUM関数を 使用して合計値をフォームフッター内に非表示で表示しており ます(詳しく書いていなくてごめんなさい)。ですので、テキストボックスAは、 テーブルに保存しておりません。テキストボックスBも表示用ですので、 テーブルに表示しておりません。 簡単な方法でControlSourceに指定して・・・と考えておりましたが、 やはりコードを使用して合計値が変更したらテキストボックスBの値を 変更する方法しかないのでしょうか？
関連するQ&A
- ＡＣＣＥＳＳ メインＦからサブＦの値を参照
サブフォームで集計した値をメインフォームで演算値として使用したいのですができません。 サブフォームのフォームヘッダに集計値を入れるテキストボックスを配置し、メインフォームにサブフォームの集計値を参照するテキストボックスを配置しています。 ほんとうはイベントの実行で直接サブフォームの集計値を使った演算を行いたいのですが出来ないのでメインフォームにテキストボックスを作成しました。 サブフォームの集計値は表示しますが、その値を演算値として使用できないのです。試しにＭｓｇｂｏｘでメインフォームのテキストボックスの値を表示させると何も表示しません。 なぜメインフォームのテキストボックスにサブフォームの値は表示できるのにその値を使用できないのでしょうか？ 具体的には次の通りです。 ＜サブフォームに配置したテキストボックス＞ 名前 ：テキスト１６ コントロールソース：ＳＵＭ（［枚数〕） 書式 ：数値 ＜メインフォームに配置したテキストボックス＞ 名前 ：テキスト１３０ コントロールソース：[Ｆｏｍｓ］！［メインフォーム名］！［サブフォーム名］．Ｆｏｒｍ！テキスト１６ 書式 ：数値 ＜イベント＞ ＭＳＧＢＯＸ テキスト１３０ ※何も表示されません！
- 締切済み
- その他(データベース)
- サブフォームのサブフォームの値を参照
Access2007で親フォームAの中にサブフォームBが入っていて、そのサブフォームBの中にサブフォームCが入っているとします。 この場合、親フォームAからサブフォームCの中のテキストボックスの内容等は参照できないのでしょうか？ 一応試しに、親フォームから Me!サブフォームB.Form!サブフォームC.From!テキスト.SetFocus と、ソースに書いたのですが「実行エラー：438」が出てしまいます。 どうにかして参照できないでしょうか？ ご存じの方がいらっしゃったらご教授お願いします。
- ベストアンサー
- Visual Basic
- Accessのサブフォームについて
Accessのサブフォームのテキストボックスをクリックするとメインフォームのテキストボックスにサブフォームのテキストボックスの値を反映させるために以下のロジックを組み込んだ所エラーが発生してしまいました。 調べてみても分かりませんでしたので解決方法が分かる方は教えて下さい。 よろしくお願いします。 ロジック Form!メインフォーム!テキストボックス=サブフォームのテキストボックス エラー 「指定した式で参照されている’メインフォーム’フィールドが見つかりません」 「コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません」
- 締切済み
- その他（プログラミング・開発）
- アクセスのサブフォームの値のチェック
Accessのサブファームにある、コンボボックスの値をチェックしたいので、下記のようにしてみました。 Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acSubform Then msgbox Forms!メインフォーム名!サブフォームコントロール名.Form!コントロール名 End If Next すると、サブフォームの現在選択しているコンボボックスの値しか表示されません。 現在表示されているサブフォームのコンボボックスの値すべてを表示させるにはどうすればいいのでしょうか。よろしくお願います。
- 締切済み
- オフィス系ソフト
- Access2007でサブフォームを再クエリする
==環境== OS:Windows XP Professional Ver.2002 Service Pack 3 Access 2007 マクロを使って下記の操作をしようとしています。 以前Access2000を使っていて使用できたマクロが、Access2007では動かなくなってしまいました。 このマクロをどう修正したらいいのかわかりません。 [1]フォームAに作られた一覧表（テキストボックスを使って表示している） ----------------------------------- 品名------金額a-----金額b-----合計 製品1----5000-------6000@------11000 製品2----4000-------3000-------7000 ----------------------------------- [2]そのうち明細が見たい箇所のテキストボックスをクリック ※この場合、製品1の金額bの明細を表示させたいので `@マークが付いているテキストボックスをクリックしています。 [3]サブフォームを持つフォームBが開く [4]フォームBの検索条件 テキストボックスの『品名検索欄』に「製品1」を入力 オプショングループの『金額区分』の「b」がON [5]フォームBを再クエリ ※フォーム上には再クエリボタンが設置されています。 サブフォームは「sub_form」という名前で配置されています。 ==2000でのマクロ== [3]から[5]について、以下のように作成しています。 (1)フォームを開く ・フォーム名：フォームB (2)値の代入 ・アイテム：[Forms]![フォームB]![品名検索欄] ・式：[Forms]![フォームA]![品名] (3)値の代入 ・アイテム：[Forms]![フォームB]![金額区分] ・式：2 (4)キー送信 ・キー操作：+{F9} ・待機：いいえ ==2007での状況== 2000で作成したマクロをそのまま使うと(4)が動かないようです。 フォームB上では品名と金額区分が入力されており、 サブフォームに表示されるはずのデータは空です。 フォームB上の「再クエリ」ボタンを押すとデータが表示されました。 試しに(4)キー送信を再クエリ（コントロール名：sub_form）に変えたところ 「カレントレコードには'sub_form'という名前のフィールドはありません。」 と表示されてしまいました。 このマクロをどう直したらいいでしょうか。 皆さん、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- アクセス サブフォームのレコードの値が変更したら
フォームの中にテーブルに基づいたサブフォームを入れています。 サブフォームはデータシートビューで表示しています。 そのサブフォームのレコードの値が変わったら msgboxを表示させるにはどのイベントで行なえば良いですか？ サーブフォームのコントロールに Private Sub ページ名_AfterUpdate() MsgBox "" End Sub としたら確かにメッセージボックスは表示されるのですが 全てのコントロールにつけないとだめですか？ 「サブフォームのレコードの値が変更したら」 とするにはどうすればいいでしょうか？
- ベストアンサー
- その他MS Office製品
- ACCESSのフォームとサブフォームについて
いつもみなさんにはお世話になっております。 ACCESS2000を使用しています。 テーブルＡ，Ｂ，Ｃを用意しフォームにサブフォーム、リストボックス、ボタンを配置し、リストボックスの表示内容（Ａ，Ｂ，Ｃ）に合わせてボタンクリックでサブフォームの表示テーブル（Ａ，Ｂ，Ｃ）を変更したいのですがどうしたら良いのか解りません。 みなさんどうかよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- AccessVBAでサブフォームの値チェック
こんにちは。前々回http://okwave.jp/qa/q6556906.htmlにて 質問させて頂いたサブフォームの値チェックをする際のVBAの記述で 教えて頂きたい事ができましたので、質問させて頂きます。 Accessのバージョンは2003です。 以下のようなVBAを記述しているのですが、一度VBAでの処理を実行すると フォームを一度閉じてから再度フォームを開くと該当フィールドの色が 元に戻らず黄色又はマゼンダのままとなってしまっています… 別のAccessにて動作確認した際は、再度フォームを開いてもフィールドの 色は元のままだったのですが… どこが原因なのか教えていただければ幸いです。 長文で見辛いですが宜しくお願いします。 Dim stDocName As String Dim stLinkCriteria As String 'フォーム上のコントロールを格納する変数 Dim ctrl As Control Dim msg As String 'フォーム上のすべてのコントロールに対しての繰り返し処理 For Each ctrl In Me.Controls '取得したコントロールがテキストボックスかどうか If ctrl.ControlType = acTextBox Then 'Ａの値が15.5未満の場合 If Forms![F_親フォーム].[F_サブフォーム].Form.[Ａ] <= 15.5 Then '背景をピンクに Forms![F_親フォーム].[F_サブフォーム].Form.[Ａ].BackColor = vbMagenta Else '背景を黄色に Forms![F_親フォーム].[F_サブフォーム].Form.[Ａ].BackColor = vbYellow End If 'Ｂの値が45未満の場合 If Forms![F_親フォーム].[F_サブフォーム].Form.[Ｂ] <= 45 Then '背景をピンクに Forms![F_親フォーム].[F_サブフォーム].Form.[Ｂ].BackColor = vbMagenta Else '背景を黄色に Forms![F_親フォーム].[F_サブフォーム].Form.[Ｂ].BackColor = vbYellow End If End If Next ctrl Me.Undo 'フォーム上のすべてのコントロールに対しての繰り返し処理 For Each ctrl In Forms![F_親フォーム].[F_サブフォーム].Form.Controls 'テキストボックスのコントロールを取得 If TypeOf ctrl Is TextBox Then '取得したコントロールが黄色だった場合 If ctrl.BackColor = vbYellow Then 'msgにテキストボックスの名前を追加 msg = msg & ctrl.Name & vbCrLf 'メッセージボックスに名前を表示 End If End If Next ctrl 'msgが空白じゃない場合 If msg <> "" Then 'メッセージボックスを表示 MsgBox msg Else 'ctrl.BackColor = vbWhite stDocName = "F_フォーム１" DoCmd.Close acForm, Me.Name DoCmd.OpenForm stDocName End If Exit_閉じる_Click: Exit Sub Err_閉じる_Click: MsgBox Err.Description Resume Exit_閉じる_Click End Sub
- ベストアンサー
- Visual Basic
- サブフォームにあるテキストボックスの値を参照したい
ACCESS2010です。 サブフォーム(帳票フォーム)のフッターにある、コントロールソースが =nz(sum([金額]),0) と設定してあるテキストボックスがあります。([合計金額s]） この[合計金額s]の値を、メインフォームのコントロールソースがテーブルの項目に設定されているテキストボックス([金額])で参照したいのですが、金額入力直後の値が参照できません。 現在はメインフォームに中継用のテキストボックス([金額wk])を作成し、コントロールソースを[合計金額s]に設定、acNewRecする前に[金額wk]の値を[金額]へ渡しています。 何とか直接参照する方法はありませんでしょうか。
- ベストアンサー
- その他MS Office製品
- ACCESSで条件によってサブフォームを非表示に
Accessの初心者です。よろしくお願いします。 Accessで住所録を作っています。 メインフォームは主に本人のデータを表示し、サブフォームで家族の データを表示するようにしました。 その時、家族がいない人についてはサブフォーム自体を表示しないようにしたいと思います。 そこで下記のようにしましたがうまくいきませんでした。 (1)サブフォーム内で家族の人数をカウントする。 (2)このカウント結果をメインフォームに表示する。（メインフォーム にテキストボックスを配置し、コントロールソースをサブフォームの 人数カウントにする。） ここまではうまくいきました。 (3)ここでメインフォームのイベントの「開くとき」に以下のように記 述しました。（メインフォームのテキストボックスにカウントという 名前をつけました。） Private Sub Form_Open(Cancel As Integer) If Me!カウント = 0 Then サブフォーム.Visible = False Else サブフォーム.Visible = True End If End Sub この記述の仕方がまずいと思うのですが、どのようにすればよいか 分りません。よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
お礼
回答ありがとうございます。 matubokkuriさんの回答通り、メインフォームに合計値を表示させて サブフォームBのテキストボックスBのControlSourceに指定しましたが 出来ませんでした。 完成予定日まで日数がありませんので、コードを使用して表示する 方法で対処しようと思います。 どうも、お付き合いありがとうございました。