Populate textbox's from Listbox.

[Derek McGill]

Hi all I am looking for help on populating my textbox's from the listbox.

 

[Chihiro]

You need to give a bit more detail.

What action should move over names to textbox? And what should control to which box the names are moved to? etc.

 

[Derek McGill]

Hi Chihiro
Cmdbutton3 should move name to Textbox1 then Textbox2 Etc, Single selection of name and a check to ensure all 10 Textbox's are full.

 

[Chihiro]

Something like below. Remember to set MultiSelect property for ListBox to "0 - fmMultiSelectSingle".

Private Sub CommandButton3_Click()
Dim iPlist As Integer
Dim nCont As Control

With Me.ListBox1
    For iPlist = 0 To .ListCount - 1
        If .Selected(iPlist) = True Then
            For Each nCont In Me.Controls
                If TypeName(nCont) = "TextBox" Then
                    If Len(nCont.Value) = 0 Then
                        nCont.Value = .List(iPlist)
                        Exit Sub
                    End If
                End If
            Next nCont
        End If
    Next iPlist
End With
End Sub

 

[Derek McGill]

Hi Chihiro
Thanks for the reply, Code works well.