title image


Smiley VBA-Code hört mitten im Formular auf zu funktionieren...
Hallo Forum,



bei mir passiert folgendes:



Ich habe ein Formular mit mehreren Optionsgruppen darauf.

Ich hab für jede Optionsgruppe einen VBA-Code hinterlegt, so dass die entsprechend angeklickte Option farbig hinterlegt wird. Das klappt bei den ersten paar Gruppen auch wunderbar und dann hört es mittendrin einfach auf und der Code funktioniert bei den nachfolgenden Optionsgruppen nicht mehr, obwohl die Feldnamen richtig im Code angepasst sind.



Ich benutze folgenden Code:



Private Sub RahmenSOUNDSO_AfterUpdate()



If Me.RahmenSOUNDSO.Value = 1 Then Me.BezeichnungsfeldSOUNDSO1.BackColor = 255: Me.BezeichnungsfeldSOUNDSO2.BackColor = 12898811: Me.BezeichnungsfeldSOUNDSO3.BackColor = 12898811



If Me.RahmenSOUNDSO.Value = 2 Then Me.BezeichnungsfeldSOUNDSO1.BackColor = 12898811: Me.BezeichnungsfeldSOUNDSO2.BackColor = 255: Me.BezeichnungsfeldSOUNDSO3.BackColor = 12898811



If Me.RahmenSOUNDSO.Value = 3 Then Me.BezeichnungsfeldSOUNDSO1.BackColor = 12898811: Me.BezeichnungsfeldSOUNDSO2.BackColor = 12898811: Me.BezeichnungsfeldSOUNDSO3.BackColor = 255



End Sub



Die einzelnen If-Sätze stehen jeweils in einer Zeile.

Also, obwohl der Code bei allen Optionsgruppen den gleichen Aufbau hat (mit angepassten Feldern), funktioniert er nur bei den ersten paar Gruppen und dann nicht mehr.



Ich versteh die Welt nicht mehr!!!



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: