[Access] Listbox <--> editbox

[Jig]

*sigh* Alle frustratie even ter zijde.

Hoe in godsnaam koppel ik mijn mooie listbox die ik gemaakt heb met de wizard aan mijn andere mooie 2 editboxjes? Idee is dat je in de listbox iets aanklikt en dan in de 2 editboxes de waardes komen te staan die bij het geselecteerde item horen. Dus kolom1 van de listbox in editbox A en kolom2 in editbox B.

Edit: Hmm verkeerde hok Kan iemand ff moven?

[ Voor 7% gewijzigd door Jig op 16-05-2004 17:10 . Reden: hok ]

[Verwijderd]

Private Sub lstPlannen_Click()
Me.txtSelPlan = Me.lstPlannen.Column(0) & " " & Me.lstPlannen.Column(1) & _
" " & Me.lstPlannen.Column(2) & " " & Me.lstPlannen.Column(3)
End Sub

[Jig]

Yup dat is em, khad em al gevonden via iemand anders.

code:

Private Sub lstDiagnoses_AfterUpdate()
  txtDiagcode.Value = lstDiagnoses.Column(0)
  txtOmschrijving.Value = lstDiagnoses.Column(1)
End Sub

Thanks anyway.