Valores devueltos función ActiveObject

Valor	Significado
Form	El objeto activo es un formulario
Report	El objeto activo es un informe
DataSheet	El objeto activo es una tabla o consulta
DataAccessPage	El objeto activo es una página de acceso a datos

'---------------------------------------------------------
' ActiveObject
'
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web,
' por favor, contactar con el autor en
'
'     accessvba@ya.com
'
' Este código se brinda por cortesía de
' Juan M. Afán de Ribera
'
Function ActiveObject() As String
Dim obj As Object

    On Error Resume Next
    Set obj = Screen.ActiveForm
    If Err.Number = 0 Then
        Set obj = Nothing
        ActiveObject = "Form"
        Exit Function
    End If

    Err.Clear
    Set obj = Screen.ActiveReport
    If Err.Number = 0 Then
        Set obj = Nothing
        ActiveObject = "Report"
        Exit Function
    End If

    Err.Clear
    Set obj = Screen.ActiveDatasheet
    If Err.Number = 0 Then
        Set obj = Nothing
        ActiveObject = "DataSheet"
        Exit Function
    End If

    Err.Clear
    Set obj = Screen.ActiveDataAccessPage
    If Err.Number = 0 Then
        Set obj = Nothing
        ActiveObject = "DataAccessPage"
    End If

End Function
'--------------------------------------------------------

Ejemplos:

Temas relacionados: