title image


Smiley bitte sehr:
Hallo, EMO,im Prinzip ist alles ok, ich sehe hier nur einige formale Fehler: die form_Current ruft eine Funktion wie eine Sub auf? Außerdem müßte statt eines Punktes ein Ausrufezeichen stehen. So läßt sich das Ganze vereinfachen (Du solltest den Standardwert von Lektor auf 0 setzen!):Private SUB FarbeAnpassen()if Me!Lektor = true then Me!Bezeichnungsfeld96.BackColor = 65535Else Me!Bezeichnungsfeld96.BackColor = 12632256End ifEnd FunctionPrivate Sub Form_current() call FarbeAnpassen End SubGute Nacht!Francesca

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: