サブフォームのビューを切り替えたい
親フォーム(フォーム1)にサブフォームとして、
テーブルをソースとするサブフォーム(テーブル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
“オブジェクト テーブル1が開いていません、”
になります。
サブフォームに埋め込んでいて親フォームを開いていても
開いてない事になるのですね。
フォームビューの時に、切り替える事は不可能なのでしょうか?
帳票ビュー表示用フォーム、
単票ビュー表示用フォーム
を作るしかないのでしょうか?
お礼
プロパティシートのレコードソースに"A"が入っていたので、それを削除して動かしてみたら、無事思い通りに動かせました! 今回の質問で、リンクフィールドの事をまだ理解できていなかった自分に気づくことができました!ありがとうございます!
補足
回答ありがとうございます。 親も子も何も入力していませんでした^^; 設定をして再度、試してみましたが、やはり駄目でした。