サブフォームのコントロールの値を取得する方法（VBA）
- サブフォーム（フォーム2）の中にあるテキスト1の値をVBAで取得する方法がわかりません。
- フォーム2を開いた状態でフォーム2のコントロールを参照することはできますが、フォーム2を閉じた状態でフォーム1からフォーム2のコントロールを参照する方法がわかりません。
- 変数にフォーム2のテキスト1の値を代入したいのですが、正しい書き方がわかりません。
- ベストアンサー
サブフォームのコントロールの値を取得したい（ＶＢＡ）
連続投稿失礼します。 ファーム１のなかにサブフォーム（フォーム２）を設置しました。 フォーム２の中にはテキスト１があります。 ＶＢＡでテキスト１の値を取得したいのですがうまくいきません。 フォーム２を開いた状態で、 Sub test1() MsgBox Forms("フォーム2").Controls("テキスト1") End Sub を行なうと、 「あああ」 が返ってくるのですが、 フォーム2を閉じて、 フォーム１を開き、上のコードを実行すると、 「マクロの式、またはVisual Basicのコードで参照されている 'フォーム２'フォームが見つかりません。」 となってしまいます。 普段はフォーム２は閉じ、フォーム1を開いて使うため、 この状態でのＶＢＡコードが知りたいです。 ちなみに変数を代入したいので 「Form_フォーム2.テキスト1」の書き方よりカッコでくくる書き方でご回答いただければ助かります。 よろしくお願いします。
- 1wer56
- お礼率100% (538/538)
- オフィス系ソフト
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- サブフォームに変数を代入し、RecordSourceの値を取得したい
サブフォームに変数を代入し、RecordSourceの値を取得したいのですがうまくいきません。 Sub test1() Dim サブフォーム As String Dim フォーム As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource End Sub ******************************************************************* Sub test2() Dim サブフォーム As String Dim フォーム As String フォーム= "土台" サブフォーム = "フォーム1" MsgBox Form_フォーム1.RecordSource MsgBox Forms(フォーム).Controls(サブフォーム).RecordSource End Sub オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) ******************************************************************* Sub test3() Dim サブフォーム As String Dim フォーム As String フォーム = "土台" サブフォーム = "フォーム1" MsgBox Forms(サブフォーム).RecordSource End Sub 実行時エラー'2450' マクロの式またはVisual Basic コート゛で参照されている 'フォーム名'フォームが見つかりません。 ******************************************************************* test1～3のうち test1のみはうまくいくのですが 変数を代入したいです。 ヘルフ゜のには Forms![受注]![受注サブフォーム].Formとなってますが これじゃ変数を代入できないですよね。 どうすればサブフォームに変数を代入しつつ、RecordSourceの値を取得できるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 「サブフォーム」の名前を取得したい
アクセスのフォームの中にサブフォームが２つあります。 このうちの一つのサブフォームをクリックした時に 自身のフォーム名をVBAで取得したいのですが、 サブフォームのモジュールで Debug.Print Screen.ActiveForm.Name をすると、 親フォームが取得されます。 Forms("親フォーム").Controls("サブフォーム").Form.Controls("担当者").Value の部分の、「親フォーム」が取得されます。 「サブフォーム」の部分を取得するコードはありますか？
- 締切済み
- オフィス系ソフト
- Access サブフォームのレコードソースを変更するには
Accessのプロシージャについて教えてください。 フォーム FM0020 上に、2つのサブフォーム FS002001 と、FS002002 があります。 メインフォームにある値を使って、サブフォームのレコードソースを変更したい のですが、どうもうまくできません。 FS002001のレコードソースは下記の1行目のコードで変数strSQLに代入出来るのですが、 FS002002のレコードソースは下記の2行目のようにしても 「オブジェクトまたはクラスがこのイベントセットをサポートしていません」 となり、代入出来ないのです。 2つ目のサブフォーム上にあるテキストボックス HMCD が下記3行目のように すると代入できるので、サブフォームの名前を間違えているわけではないと思うのですが...。 他に原因としては何が考えられますか？ 下記の3行を同じモジュール内に続けて書いても2行目だけがひっかかるのでもうお手上げ 状態です..。 なんとか助けてください。 お願いします。 strSQL = Forms!FM0020.FS002001.Form.RecordSource strSQL = Forms!FM0020.FS002002.Form.RecordSource strSQL = Forms!FM0020.FS002002!HMCD
- ベストアンサー
- オフィス系ソフト
- ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法
いつもお世話になっております。 ACCESS VBAでメインフォームに貼りついているサブフォームの値をとりたいのですが、うまくいっていません。 現状は module1でaをPublicで宣言 サブフォーム中のFORM_CURRENT()中で me.field1.setfocus a = me.field1.value として取得しています。 (実装ではメインのほうのボタンAを押したときに サブフォーム、FORM_CURRENT()で取得しておいた値を 別の変数に入れようとしています。) サブフォームのみで実行するとうまくいくようですが、 メインフォームに貼り付けるとうまくいかないようです。 (メインフォームに貼り付けて、サブフォームのFORM_CURRENTにブレイクを 貼って止めようとするが止まらない) そこでメインフォームボタンAクリックイベントで dim a1 as integer Forms![mainform]![subform].form.[field1].setfocus a1 = Forms![mainform]![subform].form.[field1].value として値をとろうと思ったのですが メインフォームからサブフォームにフォーカスをうつせない？ らしく、サポートされていませんの旨のメッセージがでてしまいます。 やりたいこととしては、メインフォームに貼りついたサブフォームの 選択レコードのフィールド値を、メインフォームのボタンを押したときに 取得する。ということなのですが、うまくいっていません。 別の方法でもいいので、実現方法をご存知の方、よろしくお願いします。 ちなみにACCESSは2000を使用、ADOはサポートされていますがDAOは 非サポートのようです。
- 締切済み
- Visual Basic
- 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
- サブフォームの左からの値を取得するには？
アクセス２００７です。 MsgBox Form_Fサブフォーム.InsideHeight で、高さは取得できるのですが、 MsgBox Form_Fサブフォーム.InsideLeft にすると、.InsideLeftがコンパイルエラーとなってしまうようです。 デザインビューでサブフォームのプロパティシートで左位置にカーソルをあててＦ１を押しても ヘルプは出てきませんでした。 ＶＢＡでのサブフォームの左位置の取得方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- Access VBA フィルター
Microsoft Access のVBAで、メインフォームで条件を設定するとサブフォームがフィルターされて開くというVBAを作っています。 SQL文を「SQLCode」という文字列型変数に入れました。 具体的には以下の内容がSQLCodeに入っています。 [担当者]=[Forms]![検索]![担当者] この変数をフォームにフィルターをかけて開くコードに入れたいのですが、以下の？の部分を教えてください。 Me!Fサブフォーム.Form.Filter. = ? Me!Fサブフォーム.Form.FilterOn = True
- 締切済み
- Access（アクセス）
- エクセルＶＢＡ コントロールに変数を入れたい
エクセルvbaです。 UserForm1.テキスト1.Valueを UserForms("UserForm1").Controls("テキスト1").Value のような形式でコードを書くことは可能でしょうか？ UserForms("UserForm1").Controls("テキスト1").Value だとエラーになってしまいます。 accessでは Forms("Form1").Controls(“テキスト1”).Value と言う形式が可能ですが、エクセルでは不可能なのでしょうか？ エクセルでは Forms("Form1").Controls(“テキスト1”).Value UserForm ("Form1").Controls(“テキスト1”).Value でもエラーになってしまいます。 UserForm1.Controls("テキスト1").Valueは コードが通りましたが、フォームの部分に変数を入れる事ができません。 ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセスVBA 一個前や一個後の値を取得するには
フォームの中にあるサブフォームの現在選択中のレコードの値を取得は出来たのですが 一個前や一個後の値を取得するにはどうすればいいですか？ Sub test() Debug.Print Forms("F_Main").Controls("F_SubMain").Form.Filter Debug.Print Forms("F_Main").Controls("F_SubMain").Form.Controls("日付") End Sub で、現在のレコードの情報は取得できましたが 上のレコード、下のレコードを取得するコードを教えてください。
- ベストアンサー
- オフィス系ソフト
- サブフォームのサブフォームの値を参照
Access2007で親フォームAの中にサブフォームBが入っていて、そのサブフォームBの中にサブフォームCが入っているとします。 この場合、親フォームAからサブフォームCの中のテキストボックスの内容等は参照できないのでしょうか？ 一応試しに、親フォームから Me!サブフォームB.Form!サブフォームC.From!テキスト.SetFocus と、ソースに書いたのですが「実行エラー：438」が出てしまいます。 どうにかして参照できないでしょうか？ ご存じの方がいらっしゃったらご教授お願いします。
- ベストアンサー
- Visual Basic
お礼
MsgBox Forms("フォーム1").Controls("フォーム2").Controls("テキスト1") これで解決しました。 ありがとうございます。