Select listbox and open form

[Onlylonely]

Hi Guys,

Need help on this. I have a listbox and i want it to open a form with all the data when i select particular item in the listbox.

P/S: I'm able to open a form but is without the information. I wish to pull all the information from the table and fill into the form.

Advice and help is appreciated. Please refer to attachment.

 

[Ranman256]

the info form is not connected.
set the recordsource of the form to tGuests.

on the VendorList form:
the LIST box must be bound to col 1, the GuestId

in the button click event,
filter the form to show that 1 guest...

Private Sub openbtn_Click()
  DoCmd.OpenForm "Info",,,"[GuestID]=" & me.List0
end sub

 

[arnelgp]

as ranman said you need to bound the Info
form.

if the intention is just to display the
info and not to update it, and still
you want it unbound, set the column count
of your listbox to 8. the width to 5,
the column widths to 1;1;0;0;0;0;0;0.

on the click event of the button:

Private Sub openbtn_Click()

Dim RowNumber As Integer
RowNumber = Me.List0.ListIndex + 1

On Error Resume Next
DoCmd.Close acForm, "Info"

DoCmd.OpenForm "Info"
If Me.List0.ListIndex > -1 Then
    With Forms!info
        !txtfn = Me.List0.Column(1)
        !txtln = Me.List0.Column(2)
        !txtem = Me.List0.Column(3)
        !txtct = Me.List0.Column(4)
        !txtph = Me.List0.Column(7)
        !txtadd = Me.List0.Column(5)
    End With
End If

End Sub

 

[arnelgp]

as ranman said you need to bound the Info
form.

if the intention is just to display the
info and not to update it, and still
you want it unbound, set the column count
of your listbox to 8. the width to 5,
the column widths to 1;1;0;0;0;0;0;0.

on the click event of the button:

Private Sub openbtn_Click()

Dim RowNumber As Integer
RowNumber = Me.List0.ListIndex + 1

On Error Resume Next
DoCmd.Close acForm, "Info"

DoCmd.OpenForm "Info"
If Me.List0.ListIndex > -1 Then
    With Forms!info
        !txtfn = Me.List0.Column(1)
        !txtln = Me.List0.Column(2)
        !txtem = Me.List0.Column(3)
        !txtct = Me.List0.Column(4)
        !txtph = Me.List0.Column(7)
        !txtadd = Me.List0.Column(5)
    End With
End If

End Sub

 

[Onlylonely]

Thanks Ranman256 and arnelgp !!!
Appreciate your help on this