dblclick event code

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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
 
Back
Top