サブフォームのビューを切り替えたい
親フォーム（フォーム１）にサブフォームとして、
テーブルをソースとするサブフォーム（テーブル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
“オブジェクト テーブル１が開いていません、”
になります。
サブフォームに埋め込んでいて親フォームを開いていても
開いてない事になるのですね。
フォームビューの時に、切り替える事は不可能なのでしょうか？
帳票ビュー表示用フォーム、
単票ビュー表示用フォーム
を作るしかないのでしょうか？
お礼
回答頂きありがとうございました。