Double Click Problem Please Help

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

Guest

I have been working on being able to double click a listbox that returns
records from a search and have the double click open a form with that record
on it.. i have 4 different search options using checkboxes which only one can
be selected at a time here is the code i am using but nothing happens on
double click no errors or anything, anyone tell me what is wrong with it?

Private Sub lbxResults_DblClick(Cancel As Integer)
Dim strFormName As String, strCriteria As String
Select Case inCTL.Name
Case "chkTbl1" 'Customer1
strFormName = "Cust1_Search_Results"
strCriteria = "[CustName]='" & Me!lbxResults.Column(0) & "'"
Case "chkTbl2" 'Customer2
strFormName = "Cust2_Search_Results"
strCriteria = "[Cust2Name]='" & Me!lbxResults.Column(0) & "'"
Case "chkTbl3" 'Cust3
strFormName = "Cust3_Search_Results"
strCriteria = "[Cust3Name]='" & Me!lbxResults.Column(0) & "'"
Case "chkTbl4" 'Cust4
strFormName = "Cust4_Search_Results"
strCriteria = "[Cust4Name]='" & Me!lbxResults.Column(0) & "'"
Case Else
Exit Sub
End Select

DoCmd.OpenForm strFormName, , , strCriteria
End Sub
 
Please do not post duplicate messages in multiple groups. It wastes
people's time when they are working on an issue that may be resolved in
another group.
 
Back
Top