Propiedad Form. CurrentView (Access)Form.CurrentView property (Access)

Puede usar la propiedad CurrentView para determinar cómo se presenta realmente un formulario.You can use the CurrentView property to determine how a form is currently displayed. Valor Entero de lectura y escritura.Read/write Integer.

SintaxisSyntax

expresión. CurrentViewexpression.CurrentView

expresión Variable que representa un objeto Form.expression A variable that represents a Form object.

ObservacionesRemarks

La propiedad CurrentView puede tener los valores siguientes.The CurrentView property uses the following settings.

SettingSetting Formulario que se muestra en:Form displayed in:
comprendi0 Vista DiseñoDesign view
1 1 Vista FormularioForm view
2 2 Vista Hoja de datosDatasheet view
7 7 Vista DiseñoLayout view

Utilice esta propiedad para efectuar diferentes tareas en función de la vista actual.Use this property to perform different tasks depending on the current view. Por ejemplo, un procedimiento de evento podría determinar en qué vista se muestra el formulario y efectuar una tarea si el formulario se muestra en la vista Formulario o una tarea diferente si se muestra en la vista Hoja de datos.For example, an event procedure could determine which view the form is displayed in and perform one task if the form is displayed in Form view or another task if it's displayed in Datasheet view.

EjemploExample

En el siguiente ejemplo, se usa la subrutina GetCurrentView para determinar si un formulario está en la vista Formulario o en la vista Hoja de datos.The following example uses the GetCurrentView subroutine to determine whether a form is in Form or Datasheet view. Si está en la vista Formulario, se muestra un mensaje al usuario en un cuadro de texto del formulario; si está en la vista Hoja de datos, se muestra el mismo mensaje en un cuadro de mensaje.If it's in Form view, a message to the user is displayed in a text box on the form; if it's in Datasheet view, the same message is displayed in a message box.

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

Soporte técnico y comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.