Hi,
I have a list box that will show (list of reports) items based on a query. My current list box is not a multiple selection. I have a button, so that a user can select an item from the list and view that particular report. Here is the current code:
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim CRType
CRType = Me!List1
If IsNull(CRType) Or CRType = "" Then
MsgBox "You have not selected a Report from the list."
Else
DoCmd.OpenReport "MrptEULiquidStorage", acViewPreview, , "EmissionUnitId = '" & List1 & "'"
End If
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
Is there a way, I can implement this with multiple select? I would appreciate a detailed response.
Thanks and have a Happy Thanksgiving
I have a list box that will show (list of reports) items based on a query. My current list box is not a multiple selection. I have a button, so that a user can select an item from the list and view that particular report. Here is the current code:
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim CRType
CRType = Me!List1
If IsNull(CRType) Or CRType = "" Then
MsgBox "You have not selected a Report from the list."
Else
DoCmd.OpenReport "MrptEULiquidStorage", acViewPreview, , "EmissionUnitId = '" & List1 & "'"
End If
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
Is there a way, I can implement this with multiple select? I would appreciate a detailed response.
Thanks and have a Happy Thanksgiving