Inventarislijst oproepen lukt niet

Status
Niet open voor verdere reacties.
D

DimiMustang51

Nieuwe gebruiker
Lid geworden
19 jun 2022
Berichten
1
Hallo iedereen,

Ik heb een inventarislijst samengesteld voor onze vzw,
Ik heb bijna alles tot een goed einde gebracht, maar er is een Private Sub dat maar niet wilt lukken.

IK heb meerdere Textbox en Combobox,
ik wil uit mijn inventarislijst gegevens terug oproepen,
dit doe ik met het volhende

Private Sub ListBox1_DblClik(ByVal Cancel As MSForms.ReturnBoolean)IK heb meerdere Textbox en Combobox,
ik wil uit mijn inventarislijst gegevens terug oproepen,
dit doe ik met het volhende

Private Sub ListBox1_DblClik(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox4.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Me.ComboBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.ComboBox2.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.ComboBox3.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.ComboBox4.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.VBA_DATEVALUE_Function.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
Me.TextBox2.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 6)
Me.TextBox3.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
Me.TextBox5.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 8)
Me.TextBox8.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 9)
Me.TextBox9.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 10)
End Sub

Maar soms gebeurt er niets, en soms komen de gegevens wel tevoorschijn, maar helaas door elkaar. niet in het juiste textbox of combobox,
iemand tips?

Thanks.

Dimitri
 
Dubbelklik is niet handig.
Hernoem de Textboxen, zodat de lus goed werkt

Code: 
Private Sub ListBox1_Change()
  for j =1 to 4
      Me("ComboBox" & j) = ListBox1.column(j)
      Me("TextBox" & j) = ListBox1.column(5+j)
  next
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan