締切済み

delphi 変数

2006/03/04 03:36

サブフォームでメインフォームが使用している変数を使いたい時、なんと記述するんでしょうか？

situmonnsya
お礼率70% (374/532)

その他（プログラミング・開発）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

みんなの回答

osamuy
ベストアンサー率42% (1231/2878)

2006/03/04 12:05 回答No.1

メインフォームにアクセサメソッドを追加しては。

質問者

お礼 2006/03/06 01:31

ご回答ありがとうございました。変数をパブリックにして、サブフォームで変数の頭にメインフォームの名前を付けるだけでよかったです。

関連するQ&A

delphi6 サブフォームの最前面

delphi6ですメインフォームとサブフォームがある時、メインフォームがアクティブになっても、サブフォームが常に最前面になるようにするには、どうしたらよろしいでしょうか？
サブフォームに変数を代入し、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の値を取得できるのでしょうか？よろしくお願いします。
サブフォームからメインフォームのフィールドにエンターキーで移動したい

ACCESS2000です。フォームの中にサブフォームを作っています。入力される都合で、フォームの中途にサブフォームがあります。このサブフォームのレコードの数は固定しています。（今は１９です）サブフォームは帳票形式です。サブフォームの最後のレコードでエンターキーやTABキーが押された時、メインフォームの指定するフィールドに移動するには、どうすれば良いでしょう。使用者に特殊なキー操作を強要したくないので、VBAで記述したいのですが。
Accessのナビゲーションフォームについて質問で

Accessのナビゲーションフォームについて質問です。ナビゲーションフォーム→ナビゲーションフォーム→メインフォーム→サブフォームこの最後のサブフォームをモジュールから呼びたく、どのように記述すれば良いでしょうか？
ACCESS2000のサブフォームのデータをイベントプロージャで格納する方法

前にも同様のご質問をさせていただきましたが、解決しませんでしたので、もう一度質問させていただきます。データ入力をACCESSで入力をしたいと考えております。今回の場合にはサブフォームを使用するのですが、メインのフォーム側のボタンをクリックしただけで、メインのフォームに書かれたデータはメインのテーブルへ、サブフォームに書かれたデータはサブのテーブルへそれぞれデータを格納するには、[イベントプロシージャ]ではどのように記述すればよろしいのでしょうか。よろしくお願いいたします。
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は非サポートのようです。
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 この記述の仕方がまずいと思うのですが、どのようにすればよいか分りません。よろしくお願いします。
サブフォームが見えなくなる。

サブフォームが見えなくなる。Ａccess初心者です。メインフォームにサブフォームを入れ込んだのですが、メインフォームを新しいレコードに移動すると、サブフォーム自体が出てこなくなります。データがあるレコードではきちんとサブフォームが出ていることが確認出来ています。どうしていいのか判らないので教えて下さい。マクロで入力ボタンを押すとメインのフォームを開き、新しいレコードに移動することをやっていますが、関係あるでしょうか？やりたいことはメインを新しいレコードに移動した時に、サブフォームが表示されて入力できるようにしたいということです。
【ACCESS2003】サブフォーム名を変数に入れたい

ACCESS2003で開発しています。ひとつのフォーム（Form1）にサブフォームを10個（SubForm01からSubForm10まで）配置しており、そのフォーム内のボタンで1つのサブフォームを切り替え表示するようにしています。サブフォーム部分だけがページ遷移しているように見えるような感じのことしたいので、こんな面倒なことをやっています。各サブフォームの処理は全く一緒なのですが、サブフォームが10個もある為に同じ処理をForm1に10まとまり書かないといけないので、サブフォームの名前を変数にできないかなと考えていますがやり方がわかりません。下記ソースで色々試してみたのですが、だめでした。具体的にはサブフォーム（SubForm01～SubForm10まで）のテキストボックス(txtBox1～txtBox30）に順に値を入れたいということです。教えてください。 Dim strPageCnt As String 'サブフォームの番号 '（処理省略）ここでstrPageCntに01から10までのいずれかの値を放り込んでいます。 For i = 1 To rs.RecordCount 'レコードセット最大値までループ '↓ここでサブフォーム名を変数に入れる　　　strSubForm = frmLOT31010_SubForm & strPageCnt '↓この方法もだめ　　　Forms!Form1!strSubForm!txtBox(i).Value = rs("NO").Value 　　　'↓この方法もだめ　　　Forms!Form1!SubForm("strPageCnt")!txtBox(i).Value = rs("NO").Value '↓これもだめ　　　Forms!Form1!SubForm(strPageCnt)!txtBox(i).Enable = False 　　　'↓これもだめ Forms!Form1!SubForm(strPageCnt)!txtBox(i + 1).SetFocus next どのようにすればサブフォームの名前を変数に入れて、なおかつサブフォーム名を可変にし（ここで言うところのサブフォームの最後の数値を変えて）サブフォームが扱えるようになりますか？教えてください。よろしくお願いいたします。
ＡＣＣＥＳＳ　メインＦからサブＦの値を参照

サブフォームで集計した値をメインフォームで演算値として使用したいのですができません。サブフォームのフォームヘッダに集計値を入れるテキストボックスを配置し、メインフォームにサブフォームの集計値を参照するテキストボックスを配置しています。ほんとうはイベントの実行で直接サブフォームの集計値を使った演算を行いたいのですが出来ないのでメインフォームにテキストボックスを作成しました。サブフォームの集計値は表示しますが、その値を演算値として使用できないのです。試しにＭｓｇｂｏｘでメインフォームのテキストボックスの値を表示させると何も表示しません。なぜメインフォームのテキストボックスにサブフォームの値は表示できるのにその値を使用できないのでしょうか？具体的には次の通りです。＜サブフォームに配置したテキストボックス＞　名前　　　　　　　　：テキスト１６　コントロールソース：ＳＵＭ（［枚数〕）　書式　　　　　　　　：数値＜メインフォームに配置したテキストボックス＞　名前　　　　　　　　：テキスト１３０　コントロールソース：[Ｆｏｍｓ］！［メインフォーム名］！［サブフォーム名］．Ｆｏｒｍ！テキスト１６　書式　　　　　　　　：数値＜イベント＞　　ＭＳＧＢＯＸ　テキスト１３０　　　　　　　※何も表示されません！
メインフォームからサブフォームの背景色を変えたい。

メインフォームからサブフォームの背景色を変えたい。いつもお世話になっています、度々よろしくお願いします。メインフォームの開く時にレコード内容によりメインフォームの背景色を変えています、同時にサブフォームの背景色も同色に変更したく(メインフォームの開く時イベント)に下記コードでやってみたのですがプロパティー、メッソッドがサポートされないとエラーが出ます、 Me!サブフォーム名.詳細.BackColor = RGB(192, 192, 192) 親フォームからサブフォームの背景色変更は出来ないのでしょうか？アドバイス宜しくお願いいたします。
カーソルが次のレコードに移動する

ACCESS2010を使用しています。単票形式のメインフォームに、帳票形式のサブフォームが2つあるフォームを作成しています。メインフォームには項目が20個程、サブフォームは共に4つ程の入力項目があります。サブフォームとメインフォームのカーソルの移動にマウスを使用するのが面倒なので、PageUp/Donwキーを使用するようにしているのですが、PageDownキーを使用した時に何故なのか分からない現象が起きます。入力済みのレコードを画面上に呼び出しPageUpキーを押すと、2つ目のサブフォームの入力済みレコード1件目の1個目の項目にカーソルが移動し、更にPageUpキーを押すと1つ目のサブフォームの入力済みレコード1件目の1個目の項目にカーソルが移動します。ですが、PageDownキーをした時、1つ目のサブフォームへの移動はPageUpキーと同じ結果ですが、更にPageDownキーを押し2つ目のサブフォームに移動した時、入力済みのレコードではなく新しいレコードの1個目の項目にカーソルが移動してしまいます。フォーム自身にもVBAにもそのような制御やコードは書いていないのですが、何故動きが異なるのかが分かりません。ヒントになるような事でも結構です。
ＡｃｃｅｓｓのＥｘｃｅｌ出力について

お世話になります。教えてください。サブフォームを含んだフォームがあって、このフォームで絞り込んだデータ（メインフォームとサブフォームのデータ）をエクセルに出力する際、サブフォームのデータが出力されません。ちなみにメインフォームには工事のデータ、サブフォームにはその工事で使用した部品とその金額が入っています。メインフォームのデータは『DoCmd.OutputTo acOutputForm』ですんなりと出力できたのですがサブフォームのデータが出力されません。合計金額だけでも出力しようとメインフォームにテキストボックスを置き、そのコントロールソースに『=サブフォームの合計金額』として表示できるようにし、エクセルに出力しようとしましたがデータは出力できませんでした。文章がわかりにくくて申し訳ありませんが、どなたかよい方法をご存知でしたら紹介願えませんでしょうか。よろしくお願い致します。
ACCESS2000で、サブフォームのデータを並べ替えする方法は？

アクセス初心者＋αの者です。メインフォームを開いた時に、サブフォームにはメインとのリンク項目に該当するデータをクエリから抽出し、表示するようになっています（データによっては複数件あり）。データ抽出は出来てますが、データの表示順がうまく出来ません。サブフォームのレコードソースSQL文にOrderBy句で指定してもダメでした。メインフォームの並べ替えプロパティが怪しいと思ってるのですが、どのように記述すれば良いのでしょうか？（VBAでもOKです）並び替えしたい項目は、サブフォーム内に持ってます。情報の不足もあるかもしれませんが、よろしくお願いします。m(__)m
ACCESSのサブフォームについて

ACCESSにおいて、サブフォームにデータを表示させた状態で、あるレコードをダブルクリックで選択させ、そのデータ（対象レコード）をメインフォームに戻って使用させるにはどのようにしたらよろしいのでしょうか？サブフォームの該当箇所に、ダブルクリック時イベントを貼り付けて、制御をメインフォームへ移すのでしょうか。よろしくお願いします。
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい

日付／品番／出庫数のフィールドで構成された「明細テーブル」があります。「日付」フィールドからなるメインフォーム、「品番／出庫数」からなるサブフォームをつくり、メインフォームのサブフォームコントロールのレコードソースを「サブフォーム」に指定しました。日付を入れるとその日の出庫明細がサブフォーム上に表示されるのですが、このレコード件数をメインフォーム上のコントロールで表示したいのです。サブフォームのヘッダにテキストボックスコントロールを作り「=Count([品番])」としてやれば、「サブフォーム上での」件数表示は出来るのですが、同じ式をメインフォーム上のコントロールに記述すると、「全レコードの件数」が表示されてしまいます(当たり前ですが) そこで、「=Count([埋め込み].Form![品番])」とやってみました。ここで「埋め込み」とはメインフォーム上のサブフォームコントロールの名前です。結果は「#Error」となってしまいます。Count関数だけでなくSum関数などでも同様の結果となります。はっきりいって「サブフォームのヘッダに表示させればいいじゃないか」というところなのですが、「式ビルダ」ではサブフォームのコントロール名も容易に参照できるようになっており、なにか方法があるのではないか、初歩的なところでつまずいていないか、と思案している次第です。なにかアドバイスいただけたら幸いです。
Access VBA　フィルター

Microsoft Access のVBAで、メインフォームで条件を設定するとサブフォームがフィルターされて開くというVBAを作っています。 SQL文を「SQLCode」という文字列型変数に入れました。具体的には以下の内容がSQLCodeに入っています。 [担当者]=[Forms]![検索]![担当者] この変数をフォームにフィルターをかけて開くコードに入れたいのですが、以下の？の部分を教えてください。 Me!Fサブフォーム.Form.Filter. = ? Me!Fサブフォーム.Form.FilterOn = True
Accessのサブフォームについて

メインフォームとサブフォームのあるフォームを作成しました。メインフォームを入力してから、サブフォームを入力し、次のレコードへ移動するのにメインフォームの移動ボタンを押すと、次のレコードのカーソルがサブフォームのフィールドへ移動します。メインフォームに移動する方法はありませんか？
Accessでサブフォームのボタンクリックイベントをメインフォームで処理したい。

　表題の件ですが、サブフォームにボタンを配置しています。そのボタンをクリック後の処理をメインフォーム側に記述したいのですがどのようにすれば可能でしょうか。　よろしくお願いします。
フォームの値をレポートに反映させるには

お世話になります。 Access2002のフォームとレポートについてご教授ください。それは、サブフォームをデータシートにしてサブフォームの中の計算の合計をメインフォームのテキストボックスに反映させるために、=Form![サブフォーム名]![合計]として、サブフォームのヘッダーに一時値を待機させといて、その合計値(サブフォームの合計値)をメインフォームに反映させています。(サブフォームの合計値も計算式をコントロールソースに入力：[単価]*[数量]) そして、メインフォームの値をレポートに反映させて印刷をかけたいのですが、どの様にしたらいいのかわかりません。。。何かいい方法がございましたら、ひとつよろしくお願いいたします。

delphi 変数

みんなの回答

お礼 2006/03/06 01:31

関連するQ&A

delphi6 サブフォームの最前面

サブフォームに変数を代入し、RecordSourceの値を取得したい

サブフォームからメインフォームのフィールドにエンターキーで移動したい

Accessのナビゲーションフォームについて質問で

ACCESS2000のサブフォームのデータをイベントプロージャで格納する方法

ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

ACCESSで条件によってサブフォームを非表示に

サブフォームが見えなくなる。

【ACCESS2003】サブフォーム名を変数に入れたい

ＡＣＣＥＳＳ　メインＦからサブＦの値を参照

メインフォームからサブフォームの背景色を変えたい。

カーソルが次のレコードに移動する

ＡｃｃｅｓｓのＥｘｃｅｌ出力について

ACCESS2000で、サブフォームのデータを並べ替えする方法は？

ACCESSのサブフォームについて

ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい

Access VBA　フィルター

Accessのサブフォームについて

Accessでサブフォームのボタンクリックイベントをメインフォームで処理したい。

フォームの値をレポートに反映させるには

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

delphi 変数

みんなの回答

お礼 2006/03/06 01:31

関連するQ&A

delphi6 サブフォームの最前面

サブフォームに変数を代入し、RecordSourceの値を取得したい

サブフォームからメインフォームのフィールドにエンターキーで移動したい

Accessのナビゲーションフォームについて質問で

ACCESS2000のサブフォームのデータをイベントプロージャで格納する方法

ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

ACCESSで条件によってサブフォームを非表示に

サブフォームが見えなくなる。

【ACCESS2003】サブフォーム名を変数に入れたい

ＡＣＣＥＳＳ メインＦからサブＦの値を参照

メインフォームからサブフォームの背景色を変えたい。

カーソルが次のレコードに移動する

ＡｃｃｅｓｓのＥｘｃｅｌ出力について

ACCESS2000で、サブフォームのデータを並べ替えする方法は？

ACCESSのサブフォームについて

ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい

Access VBA フィルター

Accessのサブフォームについて

Accessでサブフォームのボタンクリックイベントをメインフォームで処理したい。

フォームの値をレポートに反映させるには

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

ＡＣＣＥＳＳ　メインＦからサブＦの値を参照

Access VBA　フィルター

カテゴリ
一覧

専門家に質問してみよう
専門家登録