List Box Double Click Event

[jeremy0028]

Is there any why i can double click the Insurance Name in the List box and insert that Name into the Primary Or secondary Insurance Text Fields on the form called frmPatients

I do not want to use combo Boxs


I have a main form call frmpatients which is the loaded form

on that form i have 2 text boxes

one called Primary Insurance
2nd called Secondary Insurance

above those text boxs i have a hyper link which opens
a form call frmInsuranceSearch which is the list box


For the list box i have the following in a text box
called txtSearchString in the on change event which searches for insurance Name or ID in the database

Private Sub txtSearchString_Change()
Dim vSearchString As String

vSearchString = txtSearchString.Text
Search.Value = vSearchString
Me.List0.Requery

End Sub

the List Box itself gets its information for a qry
Code for list box
SELECT [qryInsurance].[InsuranceID], [qryInsurance].[InsuranceName], [qryInsurance].[Address], [qryInsurance].[Address2], [qryInsurance].[City], [qryInsurance].[State], [qryInsurance].[Zip], [qryInsurance].[Phone] FROM [qryInsurance];

 

[Remou]

How about something like:

Private Sub List0_DblClick(Cancel As Integer)
Forms!frmpatients.[Primary Insurance] = Me.List0.Column(1)
End Sub