Error message when retrieve report-here are the VB codes

P

PA

Dear All,
Dear All,

I create a Command Button to retrieve a report , it work at my PC.

But when I sent it to other state in SA (through our share drive), it does
not work.
When staff in SA press the button, it show the error message such as:

Microsoft Office Access
Click to expand...
==================
Then here are all code at main form (to open the Report via Command
Button).is there any mistake in these codes???
appreciate if any one may help

Thanks alot

PA
==================================


Option Compare Database
Option Explicit

Sub Enter_New_Process_Click()
On Error GoTo Err_Enter_New_Process_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Processes"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Enter_New_Process_Click:
Exit Sub

Err_Enter_New_Process_Click:
MsgBox Err.Description
Resume Exit_Enter_New_Process_Click

End Sub
Sub Open_Enter_Categories_Click()
On Error GoTo Err_Open_Enter_Categories_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Categories"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_Categories_Click:
Exit Sub

Err_Open_Enter_Categories_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_Categories_Click

End Sub
Sub Command11_Click()
On Error GoTo Err_Command11_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Cases"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

Private Sub AMTKSelectOperator_AfterUpdate()
AMTKStartDate.Enabled = False
AMTKEndDate.Enabled = False
AMTKStartDate.RowSource = "SELECT [HN Amount Keying].Date FROM [HN Operator
Names] LEFT JOIN [HN Amount Keying] ON [HN Operator Names].[Operator Number]
= [HN Amount Keying].[Operator Number]GROUP BY [HN Amount Keying].Date, [HN
Operator Names].[Operator Number]HAVING ((([HN Operator Names].[Operator
Number]) = " & AMTKSelectOperator & "))ORDER BY [HN Amount Keying].Date;"
AMTKStartDate.Enabled = True
AMTKStartDate.Value = Null
AMTKEndDate.Value = Null
End Sub

Private Sub AMTKStartDate_AfterUpdate()
Dim SQLStr As String
SQLStr = "SELECT [HN Amount Keying].Date FROM [HN Operator Names] LEFT JOIN
[HN Amount Keying] ON [HN Operator Names].[Operator Number] = [HN Amount
Keying].[Operator Number]GROUP BY [HN Amount Keying].Date, [HN Operator
Names].[Operator Number] HAVING ([HN Amount Keying].Date >= #" &
AMTKStartDate & "# And [HN Operator Names].[Operator Number] = " &
AMTKSelectOperator & ") ORDER BY [HN Amount Keying].Date;"
'MsgBox SQLStr <<< use for debugging
AMTKEndDate.RowSource = SQLStr
AMTKEndDate.Enabled = True
AMTKEndDate.Value = Null
End Sub



Private Sub Bal_End_date_()
Dim SQLStr As String
SQLStr = BALEndDate
'MsgBox SQLStr '<<< use for debugging
End Sub
End Sub

Private Sub Bal_End_date_AfterUpdate()
Dim SQLStr As String
SQLStr = "SELECT [HN balancing rates].Date FROM [HN Operator Names] LEFT
JOIN [HN balancing rates] ON [HN Operator Names].[Operator Number] = [HN
balancing completion].[Operator Number]GROUP BY [HN balancing
completion].Date, [HN Operator Names].[Operator Number] HAVING ([HN balancing
completion].Date >= #" & CLC_Start_Date & "# And [HN Operator
Names].[Operator Number] = " & CLC_Select_Operator & ") ORDER BY [HN
balancing completion].Date;"
'MsgBox SQLStr '<<< use for debugging
CLCEndDate.RowSource = SQLStr
CLCEndDate.Enabled = True
CLCEndDate.Value = Null
End Sub


End Sub

Private Sub Combo177_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub PreviewBalSummaryRpt_Click()

End Sub

Private Sub Form_Activate()
DoCmd.Maximize

End Sub

Sub Quit_Click()
On Error GoTo Err_Quit_Click


DoCmd.Quit

Exit_Quit_Click:
Exit Sub

Err_Quit_Click:
MsgBox Err.Description
Resume Exit_Quit_Click

End Sub
Sub Preview_Summary_Click()
On Error GoTo Err_Preview_Summary_Click

Dim stDocName As String

stDocName = "Test Case Summary"
DoCmd.OpenReport stDocName, acPreview

Exit_Preview_Summary_Click:
Exit Sub

Err_Preview_Summary_Click:
MsgBox Err.Description
Resume Exit_Preview_Summary_Click

End Sub
Sub Print_Summary_Click()
On Error GoTo Err_Print_Summary_Click

Dim stDocName As String

stDocName = "Summary"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Summary_Click:
Exit Sub

Err_Print_Summary_Click:
MsgBox Err.Description
Resume Exit_Print_Summary_Click

End Sub
Sub Preview_Summary_Report_Click()
On Error GoTo Err_Preview_Summary_Report_Click

Dim stDocName As String

stDocName = "Test Case Summary"
DoCmd.OpenReport stDocName, acPreview

Exit_Preview_Summary_Report_Click:
Exit Sub

Err_Preview_Summary_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_Summary_Report_Click

End Sub
Sub Print_Summary_Report_Click()
On Error GoTo Err_Print_Summary_Report_Click

Dim stDocName As String

stDocName = "Test Case Summary"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Summary_Report_Click:
Exit Sub

Err_Print_Summary_Report_Click:
MsgBox Err.Description
Resume Exit_Print_Summary_Report_Click

End Sub
Sub Preview_Test_Case_Summary_Click()
On Error GoTo Err_Preview_Test_Case_Summary_Click

Dim stDocName As String

stDocName = "Test Case Summary"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Test_Case_Summary_Click:
Exit Sub

Err_Preview_Test_Case_Summary_Click:
MsgBox Err.Description
Resume Exit_Preview_Test_Case_Summary_Click

End Sub
Sub Print_Test_case_Summary_Click()
On Error GoTo Err_Print_Test_case_Summary_Click

Dim stDocName As String

stDocName = "Test Case Summary"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Test_case_Summary_Click:
Exit Sub

Err_Print_Test_case_Summary_Click:
MsgBox Err.Description
Resume Exit_Print_Test_case_Summary_Click

End Sub
Sub Open_Enter_Faults_Click()
On Error GoTo Err_Open_Enter_Faults_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Faults"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_Faults_Click:
Exit Sub

Err_Open_Enter_Faults_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_Faults_Click

End Sub
Sub Preview_Faults_Summary_Click()
On Error GoTo Err_Preview_Faults_Summary_Click

Dim stDocName As String

stDocName = "Faults Query"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Faults_Summary_Click:
Exit Sub

Err_Preview_Faults_Summary_Click:
MsgBox Err.Description
Resume Exit_Preview_Faults_Summary_Click

End Sub
Sub Print_Faults_Report_Click()
On Error GoTo Err_Print_Faults_Report_Click

Dim stDocName As String

stDocName = "Faults Query"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Faults_Report_Click:
Exit Sub

Err_Print_Faults_Report_Click:
MsgBox Err.Description
Resume Exit_Print_Faults_Report_Click

End Sub
Sub Open_View_Test_Case_Click()
On Error GoTo Err_Open_View_Test_Case_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "View Test Case"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_View_Test_Case_Click:
Exit Sub

Err_Open_View_Test_Case_Click:
MsgBox Err.Description
Resume Exit_Open_View_Test_Case_Click

End Sub
Sub Preview_Failed_Test_Cases_Click()
On Error GoTo Err_Preview_Failed_Test_Cases_Click

Dim stDocName As String

stDocName = "Failed Test Cases"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Failed_Test_Cases_Click:
Exit Sub

Err_Preview_Failed_Test_Cases_Click:
MsgBox Err.Description
Resume Exit_Preview_Failed_Test_Cases_Click

End Sub
Sub Preview_Passed_Test_Cases_Click()
On Error GoTo Err_Preview_Passed_Test_Cases_Click

Dim stDocName As String

stDocName = "Passed Test Cases"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Passed_Test_Cases_Click:
Exit Sub

Err_Preview_Passed_Test_Cases_Click:
MsgBox Err.Description
Resume Exit_Preview_Passed_Test_Cases_Click

End Sub
Sub Print_Failed_Test_Cases_Click()
On Error GoTo Err_Print_Failed_Test_Cases_Click

Dim stDocName As String

stDocName = "Failed Test Cases"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Failed_Test_Cases_Click:
Exit Sub

Err_Print_Failed_Test_Cases_Click:
MsgBox Err.Description
Resume Exit_Print_Failed_Test_Cases_Click

End Sub
Sub Print_Passed_Test_Cases_Click()
On Error GoTo Err_Print_Passed_Test_Cases_Click

Dim stDocName As String

stDocName = "Passed Test Cases"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Passed_Test_Cases_Click:
Exit Sub

Err_Print_Passed_Test_Cases_Click:
MsgBox Err.Description
Resume Exit_Print_Passed_Test_Cases_Click

End Sub
Sub Preview_Select_Fault_Query_Click()
On Error GoTo Err_Preview_Select_Fault_Query_Click

Dim stDocName As String

stDocName = "Select Fault Query"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Select_Fault_Query_Click:
Exit Sub

Err_Preview_Select_Fault_Query_Click:
MsgBox Err.Description
Resume Exit_Preview_Select_Fault_Query_Click

End Sub
Sub Print_Select_Fault_Query_Click()
On Error GoTo Err_Print_Select_Fault_Query_Click

Dim stDocName As String

stDocName = "Select Fault Query"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Select_Fault_Query_Click:
Exit Sub

Err_Print_Select_Fault_Query_Click:
MsgBox Err.Description
Resume Exit_Print_Select_Fault_Query_Click

End Sub
Sub Open_Enter_Change_Record_Click()
On Error GoTo Err_Open_Enter_Change_Record_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Change Record"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_Change_Record_Click:
Exit Sub

Err_Open_Enter_Change_Record_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_Change_Record_Click

End Sub
Sub Preview_Selected_Fault_Range_Click()
On Error GoTo Err_Preview_Selected_Fault_Range_Click

Dim stDocName As String

stDocName = "Select Fault Range Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Selected_Fault_Range_Click:
Exit Sub

Err_Preview_Selected_Fault_Range_Click:
MsgBox Err.Description
Resume Exit_Preview_Selected_Fault_Range_Click

End Sub
Sub Print_Selected_Fault_Range_Click()
On Error GoTo Err_Print_Selected_Fault_Range_Click

Dim stDocName As String

stDocName = "Select Fault Range Report"
DoCmd.OpenReport stDocName, acNormal

Exit_Print_Selected_Fault_Range_Click:
Exit Sub

Err_Print_Selected_Fault_Range_Click:
MsgBox Err.Description
Resume Exit_Print_Selected_Fault_Range_Click

End Sub
Sub Preview_Change_Summary_by_Site_Click()
On Error GoTo Err_Preview_Change_Summary_by_Site_Click

Dim stDocName As String

stDocName = "All Changes by Site Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Change_Summary_by_Site_Clic:
Exit Sub

Err_Preview_Change_Summary_by_Site_Click:
MsgBox Err.Description
Resume Exit_Preview_Change_Summary_by_Site_Clic

End Sub
Sub Preview_Change_Record_Report_Click()
On Error GoTo Err_Preview_Change_Record_Report_Click

Dim stDocName As String

stDocName = "Select Change Record Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Change_Record_Report_Click:
Exit Sub

Err_Preview_Change_Record_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_Change_Record_Report_Click

End Sub
Sub Open_View_Test_Cases_Click()
On Error GoTo Err_Open_View_Test_Cases_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "View Test Case"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_View_Test_Cases_Click:
Exit Sub

Err_Open_View_Test_Cases_Click:
MsgBox Err.Description
Resume Exit_Open_View_Test_Cases_Click

End Sub
Sub Open_Enter_Fault_Click()
On Error GoTo Err_Open_Enter_Fault_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Faults"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_Fault_Click:
Exit Sub

Err_Open_Enter_Fault_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_Fault_Click

End Sub
Sub Open_enter_Change_records_Click()
On Error GoTo Err_Open_enter_Change_records_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Change Record"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_enter_Change_records_Click:
Exit Sub

Err_Open_enter_Change_records_Click:
MsgBox Err.Description
Resume Exit_Open_enter_Change_records_Click

End Sub
Sub Open_enter_Test_cases_Click()
On Error GoTo Err_Open_enter_Test_cases_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Cases"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_enter_Test_cases_Click:
Exit Sub

Err_Open_enter_Test_cases_Click:
MsgBox Err.Description
Resume Exit_Open_enter_Test_cases_Click

End Sub
Sub Open_enter_Test_Categories_Click()
On Error GoTo Err_Open_enter_Test_Categories_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter Categories"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_enter_Test_Categories_Click:
Exit Sub

Err_Open_enter_Test_Categories_Click:
MsgBox Err.Description
Resume Exit_Open_enter_Test_Categories_Click

End Sub
Sub Preview_Test_Cases_by_Status_Click()
On Error GoTo Err_Preview_Test_Cases_by_Status_Click

Dim stDocName As String

stDocName = "Test Cases by Status Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Test_Cases_by_Status_Click:
Exit Sub

Err_Preview_Test_Cases_by_Status_Click:
MsgBox Err.Description
Resume Exit_Preview_Test_Cases_by_Status_Click

End Sub
Sub Open_Update_Fault_Click()
On Error GoTo Err_Open_Update_Fault_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Update Fault"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Update_Fault_Click:
Exit Sub

Err_Open_Update_Fault_Click:
MsgBox Err.Description
Resume Exit_Open_Update_Fault_Click

End Sub
Sub Open_Update_Faults_Form_Click()
On Error GoTo Err_Open_Update_Faults_Form_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Update Fault"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Update_Faults_Form_Click:
Exit Sub

Err_Open_Update_Faults_Form_Click:
MsgBox Err.Description
Resume Exit_Open_Update_Faults_Form_Click

End Sub
Sub Open_View_Test_Case_Form_Click()
On Error GoTo Err_Open_View_Test_Case_Form_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "View Test Case"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "main Menu"

Exit_Open_View_Test_Case_Form_Click:
Exit Sub

Err_Open_View_Test_Case_Form_Click:
MsgBox Err.Description
Resume Exit_Open_View_Test_Case_Form_Click

End Sub
Sub Open_Sub_Menu_Click()
On Error GoTo Err_Open_Sub_Menu_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Sub Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Sub_Menu_Click:
Exit Sub

Err_Open_Sub_Menu_Click:
MsgBox Err.Description
Resume Exit_Open_Sub_Menu_Click

End Sub
Private Sub Open_Enter_New_Operator_Details_Form_Click()
On Error GoTo Err_Open_Enter_New_Operator_Details_Form_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter New Operator Details"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_New_Operator_Details_For:
Exit Sub

Err_Open_Enter_New_Operator_Details_Form_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_New_Operator_Details_For

End Sub
Private Sub Open_Update_Operator_Details_Form_Click()
On Error GoTo Err_Open_Update_Operator_Details_Form_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Update Operator Details"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Update_Operator_Details_Form_C:
Exit Sub

Err_Open_Update_Operator_Details_Form_Click:
MsgBox Err.Description
Resume Exit_Open_Update_Operator_Details_Form_C

End Sub
Private Sub Preview_CLC_Indidivual_Report_Click()
On Error GoTo Err_Preview_CLC_Indidivual_Report_Click

Dim stDocName As String

stDocName = "CLC Summary Report"
DoCmd.OpenReport stDocName, acPreview

Exit_Preview_CLC_Indidivual_Report_Click:
Exit Sub

Err_Preview_CLC_Indidivual_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_CLC_Indidivual_Report_Click

End Sub
Private Sub Preview_Individual_CLC_Report_Click()
On Error GoTo Err_Preview_Individual_CLC_Report_Click

Dim stDocName As String

stDocName = "Individual CLC Report"
DoCmd.OpenReport stDocName, acPreview

Exit_Preview_Individual_CLC_Report_Click:
Exit Sub

Err_Preview_Individual_CLC_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_Individual_CLC_Report_Click

End Sub
Private Sub Preview_Individual_CLC_Sumary_Click()
On Error GoTo Err_Preview_Individual_CLC_Sumary_Click

Dim stDocName As String

stDocName = "Individual CLC Summary"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Individual_CLC_Sumary_Click:
Exit Sub

Err_Preview_Individual_CLC_Sumary_Click:
MsgBox Err.Description
Resume Exit_Preview_Individual_CLC_Sumary_Click

End Sub
Private Sub Preview_Individual_AMTK_Summary_Click()
On Error GoTo Err_Preview_Individual_AMTK_Summary_Click

Dim stDocName As String

stDocName = "Individual AMTK Summary"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_Individual_AMTK_Summary_Cli:
Exit Sub

Err_Preview_Individual_AMTK_Summary_Click:
MsgBox Err.Description
Resume Exit_Preview_Individual_AMTK_Summary_Cli

End Sub
Private Sub Preview_CLC_Summary_Report_Click()
On Error GoTo Err_Preview_CLC_Summary_Report_Click

Dim stDocName As String

stDocName = "CLC Summary Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_CLC_Summary_Report_Click:
Exit Sub

Err_Preview_CLC_Summary_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_CLC_Summary_Report_Click

End Sub


Private Sub Preview_AMTK_Summary_Report_Click()
On Error GoTo Err_Preview_AMTK_Summary_Report_Click

Dim stDocName As String

stDocName = "AMTK Summary Report"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_AMTK_Summary_Report_Click:
Exit Sub

Err_Preview_AMTK_Summary_Report_Click:
MsgBox Err.Description
Resume Exit_Preview_AMTK_Summary_Report_Click

End Sub
Private Sub Open_Enter_CLC_Operator_Results_Click()
On Error GoTo Err_Open_Enter_CLC_Operator_Results_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter CLC Operator Results"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_CLC_Operator_Results_Cli:
Exit Sub

Err_Open_Enter_CLC_Operator_Results_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_CLC_Operator_Results_Cli

End Sub
Private Sub Open_Enter_AMTK_Operator_Results_Click()
On Error GoTo Err_Open_Enter_AMTK_Operator_Results_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Enter AMTK Operator Results"
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.Close A_FORM, "Main Menu"

Exit_Open_Enter_AMTK_Operator_Results_Cl:
Exit Sub

Err_Open_Enter_AMTK_Operator_Results_Click:
MsgBox Err.Description
Resume Exit_Open_Enter_AMTK_Operator_Results_Cl

End Sub
Private Sub Preview_CLC_Summary_Report_All_Click()
On Error GoTo Err_Preview_CLC_Summary_Report_All_Click

Dim stDocName As String

stDocName = "CLC Summary Report (ALL)"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_CLC_Summary_Report_All_Clic:
Exit Sub

Err_Preview_CLC_Summary_Report_All_Click:
MsgBox Err.Description
Resume Exit_Preview_CLC_Summary_Report_All_Clic

End Sub
Private Sub Preview_AMTK_Summary_Report_All_Click()
On Error GoTo Err_Preview_AMTK_Summary_Report_All_Click

Dim stDocName As String

stDocName = "AMTK Summary Report (ALL)"
DoCmd.OpenReport stDocName, acPreview

DoCmd.Close A_FORM, "Main Menu"

Exit_Preview_AMTK_Summary_Report_All_Cli:
Exit Sub

Err_Preview_AMTK_Summary_Report_All_Click:
MsgBox Err.Description
Resume Exit_Preview_AMTK_Summary_Report_All_Cli

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Closing PDF file from Excel VBA (Adobe Reader, Adobe Acrobat, Browser) 0
Working outlook via vba code with xlsx - error 0
AddPicturesToShapes 0
drop down list: how to open on cursor 3
Criteria when opening form 1
Choose report does not work in 2007 0
Run time error 2494 1
If Statements 4

Top