Inhalt zweier Comboboxen vergleichen
04.09.2007 15:36:00
Peter
ich möchte den Inhalt zweier Combobox kontrollieren lassen.
Dazu lasse ich die 1. zwei Zeichen von links kontollieren, wenn diese "as" oder "aw" sind, dann soll ein Textfeld Enabled=False ein.
Mein Code funktioniert aber nicht.
Was ist da nicht richtig?
Private Sub cboGesellschaft_Konto_Change()
If cboGesellschaft_Konto.Tag = "1" Then Exit Sub
cboGesellschaft_Konto_intern.Tag = "1"
cboGesellschaft_Konto.Tag = "1"
If LCase(Left(cboGesellschaft_Konto.Text, 2)) = "as" And LCase(Left( _
cboGesellschaft_Konto_intern.Text, 4)) = "aw" _
Or LCase(Left(cboGesellschaft_Konto_intern.Text, 2)) = "as" And LCase(Left( _
cboGesellschaft_Konto.Text, 4)) = "aw" Then
txtBetrag_MwSt.Text = ""
txtBetrag_MwSt.Enabled = False
txtBetrag_MwSt.BackColor = 14737632
Else
txtBetrag_MwSt.Enabled = True
txtBetrag_MwSt.BackColor = &H80000005
End If
End If
cboGesellschaft_Konto_intern.Tag = ""
cboGesellschaft_Konto.Tag = ""
End Sub
Grüße aus Berlin
Anzeige