List Box - On dbl Click - Opens record - Asks for paramater?

[Parker]

Hello,




I have a list box that is tied to a Query "SearchDBQ" and when a user types in a field and clicks search the items populate in the list box. I want it so the user can double click on the item in the listbox and go to that record. Only problem is when I double click on it a box appears that says "
Please enter a paramter" and the message is "ReportList" which is the name of my list box.


Any help?

[pbaldy]

Hard to say without seeing the code, but generally the parameter prompt means Access can't find something.

[Parker]

Private Sub Search_Fields_Click()
RequeryReportList
End Sub
Private Sub RequeryReportList()
Dim Wh As String
Dim SQL As String
Wh = ""
If First_Name <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "First_Name LIKE '*" & First_Name & "*'"
End If
If Last_Name <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Last_Name LIKE '*" & Last_Name & "*'"
End If
If Date_Report_Submitted <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Date_Report_Submitted LIKE '*" & Date_Report_Submitted & "*'"
End If
If Report_Title <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Report_Title LIKE '*" & Report_Title & "*'"
End If
If Report_History_Type <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Report_History_Type LIKE '*" & Report_History_Type & "*'"
End If
If Approved <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Approved LIKE '*" & Approved & "*'"
End If
If Department_Number <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Department_Number LIKE '*" & Department_Number & "*'"
End If
If Abstract <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Abstract LIKE '*" & Abstract & "*'"
End If
Me.RecordSource = SQL
SQL = "SELECT [SearchDBQ].[Department_Number], [SearchDBQ].[First_Name], [SearchDBQ].[Last_Name], [SearchDBQ].[Date_Report_Submitted], [SearchDBQ].[Report_Title], [SearchDBQ].[Report_History_Type], [SearchDBQ].[Approved] FROM SearchDBQ WHERE " & Wh
ReportList.RowSource = SQL
ReportList.RowSource = SQL
End Sub
Private Sub Clear_Fields_Click()
First_Name = ""
Last_Name = ""
Date_Report_Submitted = ""
Report_Title = ""
Report_History_Type = ""
Approved = ""
Department_Number = ""
Abstract = ""
ReportList.RowSource = ""
End Sub
Private Sub ReportList_DblClick(Cancel As Integer)
If IsNull(ReportList) Then Exit Sub
DoCmd.OpenForm "NewLabReportF", , , "Report_ID= ReportList"
End Sub

[ranman256]

It's looking for REPORTLIST either in the query, or somewhere, and it doesnt exist.

The query is looking in a table, but there is no field called this,
or no text box on the form.
To get form values, you must have the entire path to the form: forms!frmMain!REPORTLIST.


Its missing somewhere.

[Parker]

Reportlist is the list box name... how should I enter in the changes and where should I make them

[Parker]

When I hit cancle on the screen it shows this error:



Private Sub ReportList_DblClick(Cancel As Integer)
If IsNull(ReportList) Then Exit Sub
DoCmd.OpenForm "NewLabReportF", , , "Report_ID= ReportList"
End Sub

[ItsMe]

Private Sub ReportList_DblClick(Cancel As Integer)

That is very different than the code you posted earlier. Perhaps you can concatenate the Where criteria with the variable that is the list box control.

[ranman256]

wait....your code is wrong...

 "Report_ID=" &  ReportList

[pbaldy]

regarding:

DoCmd.OpenForm "NewLabReportF", , , "Report_ID= ReportList"

see the syntax here:

BaldyWeb wherecondition