title image


Smiley Für so etwas ist Screen.Activecontrol nicht sonderlich geeignet...
denn zu diesem Zeitpunkt ist das Formular noch nicht aktiv.



Wenn du deine Routinen formularunabhängig gestalten willst, solltest du das aktuelle Formular als Parameter übergeben:





Also - in einem Modul:



Public Function SetBackColor(F as Form, ByVal SecNo as Long, ByVal C as Long)

F.Section(SecNo).Backcolor = C

end function





und der Aufruf dann:



Private Sub Form_Load()

SetBackColor Me, 0, RGB(255,0,0)

end sub





... oder wie auch immer. Wobei sich für derartige Einzeiler der Aufwand natürlich überhaupt nicht lohnt bzw. besser in einen Einzeiler der Art:





Private Sub Form_Load()

Me.Section(0).Backcolor = GetParameter("Hintergrundfarbe")

end sub



verlagert wird. Schau dir vielleicht dazu mal das Beispiel "Parameter" im DBWiki an!


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: