Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 290
  • Last Modified:

return records from double click in listbox

Hi,

I have form which has a list box on which lists all customers in the tbl_contacts table.  What i'm trying to do is allow a user to double click one of the customers in the lb and have all the data from tbl_contacts populate into the appropriate fields on the form or that customer.

The form has unbound text boxes on setup to accept data from tbl_contacts.

Hope someone can shed some light.

Regards,
Tom
0
d10u4v
Asked:
d10u4v
1 Solution
 
harfangCommented:
The easiest would be to use a bound form with bound controls and use the control wizard to create a combo box to "find a record on this form". The code will work the same way with a list box (change the combo to a list box after the wizard has run).

If you prefer, the snippet below shows one way to do it, provided that the list box returns the ID field of tbl_contacts.

(°v°)

Private Sub lstContacts _DblClick(Cancel As Integer)
    
    Dim strSQL As String
    
On Error Goto Problem
    
    strSQL = "Select * From tbl_contacts Where ID=" & lstContacts
    With CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
        Me.txtContactName = !ContactName
        Me.txtETC = !ETC
    End With
    Exit Sub
    
Problem:
    Me.txtContactName = Null
    Me.txtETC = Null
    MsgBox Err.Description
    
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now