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
==================
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