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
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.
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