- ベストアンサー
Accessでチェックしたらサブフォームもチェック
tatezooの回答
- tatezoo
- ベストアンサー率43% (7/16)
提示されたソースですと、マスターテーブルのチェックに完全連動させるように伺えますがそれでよろしいのでしょうか？ であれば、サブテーブルにチェックを入れる必要性が無いのではないでしょうか。 サブフォームにマスターフォームのチェックを貼り付ければ良いのではないでしょうか？ サブフォームのチェックのコントロールソースに=[Forms]![F_マスタフォーム]![チェック]とすればよいのではないでしょうか？ 違っていたら、スイマセン。
関連するQ&A
- サブフォームで自動採番
お世話になります。ACCESS2000で制作しています 主テーブル（マスタ）に顧客コード（主キー）、 サブテーブル（トラン）に顧客コードと枝番 というフィールドがあります。 顧客コードでリレーションシップを結んでいます。 それぞれのテーブルからクエリを経てフォームをつくり （Q_マスタ→F_マスタ、Q_トラン→F_トラン） また、検索フォームも別に作っています。 F_トランはF_マスタに埋め込んでいます。 検索フォームで検索して該当するデータが無い場合 DoCmd.OpenForm "F_マスタ", , , , acFormAdd で新規フォームを呼び出します。 このときサブフォームの枝番に自動的に「1」を入れたいのですが （開く時でも読み込み時でもいつでもいいのですが） どうしたら良いのでしょうか？ ちなみに今は サブフォームのプロシージャで Private Sub Form_Open(Cancel As Integer) If Me.NewRecord Then Me![枝番] = 1 Else Me![枝番] = DMax("枝番", "Q_トラン") + 1 End If End Sub としています。 こうするとQ_マスタの一番上のデータが 例えばQ_トランレコードを２つ持っていると 「3」と出てしまいます。 どのようにすればいいのでしょうか。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- 【Access】サブフォーム間のカーソル移動がわからなくて困っています。
2つのサブフォームがあり、サブフォーム間のカーソル移動を実現したいのですが、 意図した動作にならず、困っております。 その為、下記の条件を満たす動作をご教示いただける方がいらっしゃいましたら、 ご教示の程、よろしくお願いします。 【条件】 1. Form1_SUBのfield2でEnterキー押下時、同じ行のForm2_SUBのIDに移動したいです (Form1_SUBの1行目のfield2でEnterキー押下時、 Form2_SUBの1行目のIDにカーソルを移動したいです。 下記のソースでは Form2_SUBの最後のカーソル位置があった行のIDに遷移してしまいます)。 2. Form2_SUBのfield2でEnterキー押下時、次の行のForm1_SUBのIDに移動したいです (Form2_SUBの1行目のfield2でEnterキー押下時、 Form1_SUBの2行目のIDにカーソルを移動したいです。 下記のソースでは Form1_SUBの最後のカーソル位置があった行のIDに遷移してしまいます)。 【フォーム名】 親：OYAFORM サブ：Form1_SUB(T1テーブルを連結した帳票フォームです。) サブ：Form2_SUB(T2テーブルを連結した帳票フォームです。) 【テーブル名】 T1(ID, field1, field2) T2(ID, field1, field2) 【F1_SUBのソース】 Private Sub field2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Forms!OYAFORM!Form2_SUB.SetFocus Forms!OYAFORM!Form2_SUB.Form!ID.SetFocus End If End Sub 【F2_SUBのソース】 Private Sub field2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Forms!OYAFORM!Form1_SUB.SetFocus Forms!OYAFORM!Form1_SUB.Form!ID.SetFocus End If End Sub 以上、よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- サブフォームのビューを切り替えたい
親フォーム（フォーム１）にサブフォームとして、 テーブルをソースとするサブフォーム（テーブル1のサブフォーム）を配置しました。 親フォームからサブフォームのビューを変更したいのですが どうすればいいか教えてください。 親フォームのコマンドボタンにはそれぞれ Private Sub 単票フォームへ切り替え_Click() Me.Controls("テーブル1のサブフォーム").Form.DefaultView = 1 '帳票フォーム End Sub Private Sub 帳票フォームへ切り替え_Click() Me.Controls("テーブル1のサブフォーム").Form.DefaultView = 0 '単票フォーム End Sub としたのですが、 実行すると 実行時エラー 2136 "このプロパティを設定するには、フォームまたはレポートをデザインビューで開きます"。 となってしまいます。 Private Sub 帳票フォームへ切り替え_Click() DoCmd.SelectObject acForm, "テーブル1のサブフォーム" DoCmd.RunCommand acCmdFormView End Sub にしたところ、 実行時エラー 2489 “オブジェクト テーブル１が開いていません、” になります。 サブフォームに埋め込んでいて親フォームを開いていても 開いてない事になるのですね。 フォームビューの時に、切り替える事は不可能なのでしょうか？ 帳票ビュー表示用フォーム、 単票ビュー表示用フォーム を作るしかないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 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
- アクセスのサブフォーム
よろしく、お願いします。 アクセスのサブフォームをVBAでテーブルに登録する方法を教えてください。 フォームからメインテーブルとサブテーブルへ、ボタン一つで同時に登録したいのです。 よろしく、お願いします。
- 締切済み
- オフィス系ソフト
- サブフォームにフィルタをかけたい
サブフォームにフィルタをかけたいのですが エラーになってしまいます。 下記がエラー内容です。 ---------------------------------------------------------- 実行時エラー 438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 ---------------------------------------------------------- 細かい概要は テーブル１にフィールドがあり、 レコードには「あああ」と入力されています。 テーブル１がレコードソースとされている「フォーム（２）」をサブフォームとして 親フォーム（フォーム名：フォーム（１））に乗せました。 フォーム（１）を開いた時にフォーム（２）にフィルタをかけたいのですが うまくいきません。 オブジェクト名にカッコを付けているため、 Form_フォーム・・・・ というコードは書けないので ---------------------------------------------------------- Private Sub Form_Open(Cancel As Integer) Forms("フォーム（１）").Controls("フォーム（２）").Form.Filter = "フィールド = '" & "*あ*" & "'" Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True End Sub ---------------------------------------------------------- としています。 Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True でエラーになりますが、 この行をなくしたら、フィルタがかかりません。 どうすればサブフォームにフィルタをかける事が出来るのでしょうか？ ご教示よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 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 この記述の仕方がまずいと思うのですが、どのようにすればよいか 分りません。よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- サブフォームをリクエリしたい
メインフォームのコマンドボタンを押下するとvbaを使ってテーブルのデータを更新します。 メインフォームの中にはサブフォームがあり、 そのサブフォームとテーブルがリンクしています。 サブフォームにはテーブルのデータが表示されており、 メインフォームのコマンドボタン押下→テーブルデータ更新 がされると、全て#Deletedという文字が表示されます。 なので、 Private Sub cmd_データ更新_Click() Call データ更新 Me.Controls("Fサブ").Form.Requery End Sub としたのですが、 「実行時エラー’２４６５’：指定した式で参照されている’Fサブ’フィールドが見つかりません。」 が発生します。 Me.Controls("Fサブ").Requery これにしても同じでした。
- ベストアンサー
- オフィス系ソフト
- 【Access】サブフォームの項目選択時、対応するコントロールの有効無効を制御する方法
サブフォーム内にテーブル名tblのデータを帳票フォームで連結し、 サブフォーム内のチェックボックスをクリックすると、 対応するコンボボックスの有効無効を制御したい (ID=1のチェックボックスクリック時、ID=1のコンボボックスの有効無効を制御)と思いましたが、 どのチェックボックスをクリックしても、 ID=0～ID=2のすべてのコンボボックスが有効になったり、無効になったりしてしまいました。 【テーブル名：tbl】 ID, checkbox, combobox 0, false, A 1, true, B 2, false, C 【サブフォーム名のチェックボックスのクリックイベント】 Private Sub checkbox_Click() If Me.checkbox = True Then Me.combobox.Enabled = True Else Me.combobox.Enabled = False End If End Sub 何かしら添え字を渡す事ができれば、対応できるのではと思いましたが、 どのように記述すればよいか分かりませんでした。 その為、上記のような場合、個別で制御する方法をご存知の方がいらっしゃいましたら、 ご教示いただければと思います。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 親フォームからサブフォームのレコードソースを設定
親フォームからサブフォームのレコードソースを設定するには？ フォーム１にテーブル１をドロップアンドドラッグして、「テーブル1のサブフォーム」を作成しました。 フォーム１にあるコマンドボタンから「テーブル1のサブフォーム」のRecordSourceを設定する方法を教えてください。 「テーブル1のサブフォーム」からなら Private Sub Form_Load() Me.RecordSource = "" End Sub とできるのですが、 やりたいことはフォーム１からのイベントなので 「テーブル1のサブフォーム」からのイベントは使えません。 だからってフォーム１の Private Sub コマンド2_Click() Me.テーブル1のサブフォーム.RecordSource = "テーブル1のサブフォーム" End Sub とするとコンパイルエラーになります。 良い方法があれば教えてください。アドバイスよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
もうひとつ追加です。 T_マスタテーブル、T_サブテーブルともに、チェックが入ったものを クエリを利用してT_削除マスタテーブル、T_削除サブテーブルに追加し、 それから削除したいのです。 ですので、リレーションシップを使っての、連鎖削除だと、 T_マスタテーブルの方は追加・削除ともに成功しますが、 T_サブテーブルの方が追加しないまま削除してしまうので、 この方法も的確ではないようなのです。 よいお知恵ありましたらよろしくお願いします。
補足
回答ありがとうございます。 ＞サブフォームのチェックのコントロールソースに=[Forms]![F_マスタフォーム]![チェック]とすればよいのではないでしょうか？ これ、私もやってみたりしたのですが、これですと、フォーム上はチェックが入るんですが、テーブルの実際のデータはかわってないんです。 このチェックをもとにいろいろ操作をしたいので、テーブルの方にチェックが 入らないと。。。 #クエリ使えばたぶんできますよね。 #最終手段はクエリを使おうと思ってるんですけど、 #できればテーブルとフォームで済ませたいと思ったりしてます。 #でないとクエリがたくさんになってややこしくなってしまうので。。。