if A <> "ADRK" Or A <> usw. = falsches Ergebnis
21.04.2006 11:04:59
Peter
Auf einer Userform fülle ich per ComboBox-Auswahl diverse TextBoxen; nun habe ich nachstehenden Code eingebaut, um bei Nichterfüllung der Bedingung eine TextBox rot zu färben und einen Frame anzeigen zu lassen. Der Fehler ist, dass unabhängig vom Inhalt der TextBox (txtEdit11) der Hintergrund rot wird und der Frame angezeigt wird.
Kann mir jemand helfen, was ich falsch gemacht habe?
Sub Dissidenz()
Dim A as Variant
A = frmTeilnehmer.txtEdit11.Text
If A <> "ADRK" Or A <> "BK" Or A <> "DBC v.1977" Then
frmTeilnehmer.Frame8.Visible = True
frmTeilnehmer.txtEdit11.BackColor = RGB(255, 0, 0)
frmTeilnehmer.txtEdit11.ForeColor = RGB(255, 255, 255)
End If
End Sub
Schon jetzt vielen Dank für Hilfe
PeterS.
Anzeige