[VBA] Check Form Actief

[Verwijderd]

Ik heb het volgende probleem:

Ik probeer in een subformulier op te vragen of het hoofdformulier actief is. Wanneer dit het geval is dan moet er bepaalde code uitgevoerd worden. Wanneer dit niet het geval is dan moet er niets uitgevoerd worden. Ik wil dus kijken of het hoofdformulier geopend is. Ik heb al een tijd gezocht maar kan geen eigenschap vinden van een formulier waarmee je gecontroleerd kan worden of iets actief is. wie weet hoe dit op te lossen is en hoe doe ik dit?

Kan op google en hier niets vinden. Het lijkt me heel simpel op te lossen.. maar ben er nu al een tijdje mee bezig en kom er (nog) niet uit.

[Masch]

Dit zit standaard in de nortwind.mdb voorbeeld database;

Visual Basic:

Function IsGeladen(ByVal strFormuliernaam As String) As Boolean
    Dim oAccessObject As AccessObject
    Set oAccessObject = CurrentProject.AllForms(strFormuliernaam)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsGeladen = True
        End If
    End If
    
End Function

[Verwijderd]

Dit werkt

Vreemd dat ik dat zelf niet ben tegen gekomen. Bedankt!