Compartir a través de

Propiedad Screen.ActiveDatasheet (Access)

  • Artículo

Use la propiedad ActiveDatasheet junto con el objeto Screen para identificar o hacer referencia a la hoja de datos que tiene el foco. Objeto de formulario de sólo lectura.

Sintaxis

expresión. ActiveDatasheet

Expresión Variable que representa un objeto Screen .

Comentarios

El valor de la propiedad ActiveDatasheet contiene el objeto hoja de datos que tiene el enfoque en tiempo de ejecución.

Utilice esta propiedad para hacer referencia a una hoja de datos activa junto con una de sus propiedades o métodos. Por ejemplo, el siguiente código utiliza la propiedad ActiveDatasheet para hacer referencia a la fila superior de la selección de la hoja de datos activa.

TopRow = Screen.ActiveDatasheet.SelTop

Ejemplo:

El siguiente ejemplo utiliza la propiedad ActiveDatasheet para identificar la celda de la hoja de datos que tiene el enfoque y, si hay seleccionada más de una celda, la ubicación de la primera fila y columna en la selección.

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? 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.