dblclick event code

[Guest]

I have a list box on a form that looks up values in a query and would like to
double click a value in the list box and bring up that record on the active
form.

 

[Alex White MCDBA MCSE]

for another form

Private Sub List3_DblClick(Cancel As Integer)
if not isnull(me.list3.column(0)) then
DoCmd.OpenForm "FrmTest", , , "myID=" & Me.List3.Column(0)
else
msgbox "please double click an entry"
end if
End Sub

for this form

Private Sub List3_DblClick(Cancel As Integer)
if not isnull(me.list3.column(0)) then
me.recordsource = "Select * from TblTest Where myID=" &
me.list3.columm(0)
me.requery
else
msgbox "please double click an entry"
end if
End Sub