フォームのビューの設定をｖｂａでするには

質問

今はフォームビューで表示させていて、
フォーム上のコントロールをクリックすると、
Me.Controls("").Form.SetFocus
は、
1が返ります。

Private Sub cmd_表示切替_Click()

Debug.Print Me.CurrentView

DoCmd.RunCommand acCmdDatasheetView
End Sub

みたいなことをしたいのですが、
これだとエラーになります。

上記コードはテストコードですが、
実はデータシートビューではなく、
単票フォームと帳票フォームをボタン一つで切り替えたいです。

Debug.Print Me.CurrentView
で、現在のフォームの状態が取得できるから、
DoCmd.RunCommand acCmdDatasheetView
このような方法で設定できれば、
ｉｆステートメントで切り替えられると思うのですが、
設定の仕方がわからないので教えてください。

回答No.1

hatena1989 · ベストアンサー

単票フォームと帳票フォームの切り替えは「既定のビュー」プロパティで変更しますが、これはデザインビューでしか変更で既定ので、いったんデザインビューにしてから変更します。

　　DoCmd.RunCommand acCmdDesignView
　　If Forms!フォーム名.DefaultView = 0 Then
　　　　Forms!フォーム名.DefaultView = 1
　　Else
　　　　Forms!フォーム名.DefaultView = 0
　　End If
　　DoCmd.RunCommand acCmdFormView

なお、デザインビューでは Me は使えないので、Forms!フォーム名 で参照する必要があります。

ただ、同じレイアウトで、帳票フォームと単票フォームを切り替えてもあまり意味がないように思いますが。
それぞれに適したレイアウトがあると思いますので。

お礼

なるほど、一度デザインをいじらないとダメなのですね。
参考になりました。
せっかくコードを書いていただいたのですが、他の方法を検討するかもしれません。
ありがとうございました。