title image


Smiley Re: Aktuellen Formularnamen als Parameter weitergeben
Hallo Helmut,



so wie Du das machst, übergibst Du Deiner Prozedur in dem Modul nur den Name der Form (Me.Name) und nicht die Form selbst als Objekt.



Du musst also entweder die Form als Objekt übergeben:



Call Modulname(Me)



und die im Modul so übernehmen:



Public Sub Modulname(frm As Form)





Oder aber du "bastelst" Dir im Modul das Objekt für die Form neu:



Public Sub Modulname(strForm as String)

Dim frm as Form

Dim ctl as Control



Set frm = Forms(strForm)



For each ctl in frm.Controls

If ... ???

Ctl.Backcolor =

End If

Next ctl





Gruß

EW

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: