Hi Guys,
I want to open different Access reports by a combobox using DoCmd OpenReport, Opening single report is OK.
But I want for multiple report at the same time. Pls help How can I code for it .
My codes are as follows:
Private Sub cmdOpenReport_Click()
On Error GoTo Err_Process
If (Not IsNull(Me.cboTownship_Name_Eng)) Then
DoCmd.OpenReport "Entry_cost", acViewPreview, , "Township_Code=" & Me.txtTsp_Pcode
Else
MsgBox "You must select a Township." & vbCrLf & vbCrLf & "Please try again.", vbExclamation, "No Township Selected"
End If
Exit_Process:
Exit Sub
Err_Process:
MsgBox "Procedure: cmdOpenReport" & vbCrLf & vbCrLf & Err.Number & " " & Err.Description, vbExclamation, "Error"
Resume Exit_Process
End Sub
I want to open different Access reports by a combobox using DoCmd OpenReport, Opening single report is OK.
But I want for multiple report at the same time. Pls help How can I code for it .
My codes are as follows:
Private Sub cmdOpenReport_Click()
On Error GoTo Err_Process
If (Not IsNull(Me.cboTownship_Name_Eng)) Then
DoCmd.OpenReport "Entry_cost", acViewPreview, , "Township_Code=" & Me.txtTsp_Pcode
Else
MsgBox "You must select a Township." & vbCrLf & vbCrLf & "Please try again.", vbExclamation, "No Township Selected"
End If
Exit_Process:
Exit Sub
Err_Process:
MsgBox "Procedure: cmdOpenReport" & vbCrLf & vbCrLf & Err.Number & " " & Err.Description, vbExclamation, "Error"
Resume Exit_Process
End Sub