Name vom Unterformular

[Jonny]

Hallo Leute,

ich habe ein Modul mit dem ich alle Controls anspreche. Soweit so gut aber jetzt das Problem.
Wie übergebe ich den Namen vom Unterformular.

    Sub Test(FormName, Schalter)
    Dim FormVar As Form
    Set FormVar = Forms(FormName)
    Dim AktCtrl As Control

Beim öffnen habe ich dann: Call Test("MeinForm",1)

Formulare ohne Unterformulare funktionieren aber halt nicht die Unterformulare.

Gruß

Johann

[lumbumba]

evtl indem du das Form an die Sub übergibst und nicht den Namen..

Sub Test( f as access.form, schalter as WasWeissIch )
   
     Dim AktCtrl As Control
     ......
End Sub

und der Aufruf wäre dann call Test(me.UFRM_CONTROLNAME.Form, 1) wenn das UFRM ein teil des Formulars ist das bein Öffnen diese Test-Sub aufruft.

[Jonny]

Hallo Lumbumba,

danke für deine Hilfe.

Beim Aufruf reicht call test(ME,Schalter)

Klar me ist ja das aktuelle Form. Manchmal denke ich zu kompliziert.

Gruß

Johann