Combox After Update - Problem
16.10.2006 17:42:18
Mathias
Ich habe folgendes Problem:
Wenn ich zu dem unten angeführten Code die Eingabe in der Combobox "cbxVermoegenPerson1" nochmals ändere, dann wird in der Combobox "cbxVermoegenPerson2" eine zusätzliche Eingabe vorgenommen und die vorhergehende Werte bleiben erhalten. Ich möchte jedoch, dass er denn die vorher gehenden Werte nicht erhalten bleiben und er sich sozusagen an der aktuellen Eingabe orientiert.
Wie muss ich dann den Code ändern?
Private Sub cbxVermoegenPerson1_AfterUpdate()
Dim obj As Object
If EbgVermoegen.cbxVermoegenPerson1 = "BV/EHB" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "PTR"
EbgVermoegen.cbxVermoegenPerson2.AddItem "MUK"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FrameEHB" Then
obj.Visible = True
End If
Next obj
End If
If EbgVermoegen.cbxVermoegenPerson1 = "PTR" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "BV/EHB"
EbgVermoegen.cbxVermoegenPerson2.AddItem "MUK"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FramePTR" Then
obj.Visible = True
End If
Next obj
End If
If EbgVermoegen.cbxVermoegenPerson1 = "MUK" Then
EbgVermoegen.frmVermoegenPerson2.Visible = True
EbgVermoegen.cbxVermoegenPerson2.AddItem "BV/EHB"
EbgVermoegen.cbxVermoegenPerson2.AddItem "PTR"
For Each obj In EbgVermoegen.Controls
If Left(TypeName(obj), 5) = "FrameMUK" Then
obj.Visible = True
End If
Next obj
End If
End Sub
Hi,
Cleare die Box zunächst.
Der Code kann um ca. 80% gekürzt werden.
mfg Heinz
Wie kann ich den denn clearen und wie kürze ich ihn sinnvoll ein?
Gruß Mathias
Anzeige