jeremy0028
Technical User
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];
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];