Jindon
Thanks for the reply and offered solution. However, I am not quite sure how to apply this (I am new to VBA). Am I not already declaring this under "Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)"
*
*
Me.txtSurname.Value = Me.ListBox1.Value
Me.txtFirstName.Value = Me.ListBox1.Column(1)
Me.txtGrade.Value = Me.ListBox1.Column(2)
Me.txtFlight.Value = Me.ListBox1.Column(3)
Me.txtElement.Value = Me.ListBox1.Column(4)
Me.txtAddress.Value = Me.ListBox1.Column(5)
Me.txtPhone.Value = Me.ListBox1.Column(6)
Me.txtMobile.Value = Me.ListBox1.Column(7)
Me.txtEmail.Value = Me.ListBox1.Column(8)
Me.txtID.Value = Me.ListBox1.Column(9)
*
*
or should that be changed to
*
*
Me.txtSurname.Value = Me.ListBox1.Value
Me.txtFirstName.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Me.txtGrade.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
Me.txtFlight.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 3)
Me.txtElement.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.txtAddress.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
Me.txtPhone.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 6)
Me.txtMobile.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
Me.txtEmail.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 8)
Me.txtID.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 9)
*
*
Thanks
Jaycee66
Bookmarks