次の方法で共有

Form.CurrentView プロパティ (Access)

  • [アーティクル]

CurrentView プロパティを使用して、フォームの現在の表示方法を決定します。 値の取得および設定が可能です。整数型 (Integer) の値を使用します。

構文

式。CurrentView

expressionForm オブジェクトを表す変数です。

注釈

CurrentView プロパティの設定値は次のとおりです。

Setting に表示されるフォーム:
0 デザイン ビュー
1 フォーム ビュー
2 データシート ビュー
7 レイアウト ビュー

CurrentView プロパティを使うと、表示されているビューによって異なる処理を実行できます。 たとえば、イベント プロシージャは、フォームが表示されているのはどのビューかを判断して、フォームがフォーム ビューに表示されているときに実行するタスクと、データシート ビューに表示されているときに実行するタスクを別にすることができます。

例

次の使用例では、GetCurrentView サブルーチンを使って、フォームがフォーム ビューにあるのか、またはデータシート ビューにあるのかを判断します。 フォーム ビューにある場合は、フォームのテキスト ボックスにユーザーへのメッセージが表示され、データシート ビューにある場合は、同じメッセージがメッセージ ボックスに表示されます。

GetCurrentView Me, "Please contact system administrator." 
 
Sub GetCurrentView(frm As Form, strDisplayMsg As String) 
 Const conFormView = 1 
 Const conDataSheet = 2 
 Dim intView As Integer 
 intView = frm.CurrentView 
 Select Case intView 
 Case conFormView 
 frm!MessageTextBox.SetFocus 
 ' Display message in text box. 
 frm!MessageTextBox = strDisplayMsg 
 Case conDataSheet 
 ' Display message in message box. 
 MsgBox strDisplayMsg 
 End Select 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。