List Box Help

[aingram]

Private Sub LstBox_DblClick(Cancel As Integer)
    
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "SelectionForm"
    
    stLinkCriteria = "[IDNUM]=" & Me![LstBox]
    [B][U]DoCmd.OpenForm stDocName, , , stLinkCriteria[/U][/B]
    
End Sub

ive got a list box that when you double click it runs this code,
which basically should open the form "SelectionForm" at the correct id number
But i get
Run-time errror `2501`
The openform action was canceled

WHAT AM I DOING WRONG AAAARrrrrh

 

[MStCyr]

Private Sub LstBox_DblClick(Cancel As Integer)
    
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "SelectionForm"
    
    stLinkCriteria = "[IDNUM]=" & Me![LstBox]
    [B][U]DoCmd.OpenForm stDocName, , , stLinkCriteria[/U][/B]
    
End Sub

ive got a list box that when you double click it runs this code,
which basically should open the form "SelectionForm" at the correct id number
But i get
Run-time errror `2501`
The openform action was canceled

WHAT AM I DOING WRONG AAAARrrrrh

We have no idea as to what your tables are, however the following code should do it for you.


Private Sub RecordID_Click()

DoCmd.OpenForm "frmDetails", _
WhereCondition:="RecordID=" & Me.RecordID

End Sub

 

[aingram]

Thanks for your help
But, i have tryed your code and it gives me the same error
My list box is populated from the table "routes" through a query "Qry_Look" and double clicking on the list box should take you to a form which is based on "routes"
Any other data u guys need to know