Combox After Update - Problem
15.10.2006 22:34:01
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
Grüße
Mathias