Im not an expert on creating Macros but does anyone no why this wont run and extract the information anymore?
Macro Name: mcrCalculate&Pr intReport
Action Name: OpenQuery
Argument = qtyCreatePrinti ngTable, Datasheet, Edit
Code:
Private Sub cmdExecuteProgram_Click()
Select Case [frmSelectOptions]
Case 1
DoCmd.RunMacro "mcrImportData"
Case 2
DoCmd.RunMacro "mcrCleanData"
Case 3
DoCmd.OpenTable "tblData"
Case 4
DoCmd.RunMacro "mcrExtHospital"
Case 5
DoCmd.RunMacro "mcrCalculate&PrintReport"
Case 6
DoCmd.RunMacro "mcrDeleteAll"
Case 7
DoCmd.RunMacro "mcrExeptions"
End Select
End Sub
Action Name: OpenQuery
Argument = qtyCreatePrinti ngTable, Datasheet, Edit
Comment