title image


Smiley Frage noch zu Formularname?!?
Die aus dem hohen Norden gepostete Antwort funktioniert eigentlich ganz gut. Nur beim Öffnen von Formularen gibt es leider ein Problem.



mit:

Sub SET_FORM_COL()

Dim F As Form

Set F = Screen.ActiveForm

F.Section(0).BackColor = FORM_COL

End Sub

lässt sich die Hintergrundfarbe bei geöffneten Formularen ändern.



Nur wenn ich beim Öffnen eines Formulars den eben angegebenen Code aufrufe mit:



Private Sub Form_Open(Cancel As Integer)

Call SET_FORM_COL

Me.Caption = TITEL

End Sub



bekomme ich folgende Fehlermeldung (siehe beigefügtes jpg)



Wie bekomme ich das auf die reihe, dass der Code auch beim Öffnen eines Formulares funktioniert?



Danke im Voraus,

Hermann
zu den Modellflugseiten...
...und nie tiefer als Ameisenkniehöhe fliegen...

geschrieben von

Anhang
Bild 9855 zu Artikel 479493

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: