サブフォームのビューを切り替えたい
親フォーム(フォーム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が開いていません、”
になります。
サブフォームに埋め込んでいて親フォームを開いていても
開いてない事になるのですね。
フォームビューの時に、切り替える事は不可能なのでしょうか?
帳票ビュー表示用フォーム、
単票ビュー表示用フォーム
を作るしかないのでしょうか?
お礼
ありがとうございました。