If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Command button not working!
I created a command button in a form to open a report, and it was working
fine, but now it doesn't work. I get the following "Microsoft Visual Basic" window message: Module not found Why? How can I make it work again? -- Thank you, Cesar Urquidi |
#2
|
|||
|
|||
Command button not working!
Where do you have your code and what is the code?
-- Accessguru -------------- HTH "Cesar Urquidi" wrote: I created a command button in a form to open a report, and it was working fine, but now it doesn't work. I get the following "Microsoft Visual Basic" window message: Module not found Why? How can I make it work again? -- Thank you, Cesar Urquidi |
#3
|
|||
|
|||
Command button not working!
I have multiple commands, here's the code for all commands:
Private Sub Equipment__Active___By_Device_ID__Click() On Error GoTo Err_Equipment__Active___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Active) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Active___By_Device_ID__C: Exit Sub Err_Equipment__Active___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Active___By_Device_ID__C End Sub Private Sub Equipment__Inactive___By_Device_ID__Click() On Error GoTo Err_Equipment__Inactive___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Inactive) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Inactive___By_Device_ID_: Exit Sub Err_Equipment__Inactive___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Inactive___By_Device_ID_ End Sub Private Sub Equipment__Missing_Lost___By_Device_ID__Click() On Error GoTo Err_Equipment__Missing_Lost___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Missing/Lost) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Missing_Lost___By_Device: Exit Sub Err_Equipment__Missing_Lost___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Missing_Lost___By_Device End Sub Private Sub Equipment_Calibration_Due_Soon__By_Device_ID__Clic k() On Error GoTo Err_Equipment_Calibration_Due_Soon__By_Device_ID__ Click Dim stDocName As String stDocName = "Equipment Calibration Due Soon (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Due_Soon__By_: Exit Sub Err_Equipment_Calibration_Due_Soon__By_Device_ID__ Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Due_Soon__By_ End Sub Private Sub Equipment_Calibration_Due_Soon__By_Next_Scheduled_ Calibration__Click() On Error GoTo Err_Equipment_Calibration_Due_Soon__By_Next_Schedu led_Calibration__Click Dim stDocName As String stDocName = "Equipment Calibration Due Soon (By Next Scheduled Calibration)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Due_Soon__By_: Exit Sub Err_Equipment_Calibration_Due_Soon__By_Next_Schedu led_Calibration__Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Due_Soon__By_ End Sub Private Sub Equipment_Calibration_Past_Due__By_Device_ID__Clic k() On Error GoTo Err_Equipment_Calibration_Past_Due__By_Device_ID__ Click Dim stDocName As String stDocName = "Equipment Calibration Past Due (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Past_Due__By_: Exit Sub Err_Equipment_Calibration_Past_Due__By_Device_ID__ Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Past_Due__By_ End Sub Private Sub Equipment_Calibration_Past_Due__By_Next_Scheduled_ Calibration__Click() On Error GoTo Err_Equipment_Calibration_Past_Due__By_Next_Schedu led_Calibration__Click Dim stDocName As String stDocName = "Equipment Calibration Past Due (By Next Scheduled Calibration)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Past_Due__By_: Exit Sub Err_Equipment_Calibration_Past_Due__By_Next_Schedu led_Calibration__Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Past_Due__By_ End Sub Private Sub Equipment_Issued___Not_Returned__By_Device_ID__Cli ck() On Error GoTo Err_Equipment_Issued___Not_Returned__By_Device_ID_ _Click Dim stDocName As String stDocName = "Equipment Issued & Not Returned (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Issued___Not_Returned__By: Exit Sub Err_Equipment_Issued___Not_Returned__By_Device_ID_ _Click: MsgBox Err.Description Resume Exit_Equipment_Issued___Not_Returned__By End Sub Private Sub Equipment_Issued___Not_Returned__By_Issue_Date__Cl ick() On Error GoTo Err_Equipment_Issued___Not_Returned__By_Issue_Date __Click Dim stDocName As String stDocName = "Equipment Issued & Not Returned (By Issue Date)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Issued___Not_Returned__By: Exit Sub Err_Equipment_Issued___Not_Returned__By_Issue_Date __Click: MsgBox Err.Description Resume Exit_Equipment_Issued___Not_Returned__By End Sub Private Sub Close_Reports_Form_Click() On Error GoTo Err_Close_Reports_Form_Click DoCmd.Close Exit_Close_Reports_Form_Click: Exit Sub Err_Close_Reports_Form_Click: MsgBox Err.Description Resume Exit_Close_Reports_Form_Click End Sub Private Sub Equipment_To_Calibration__Filter_Calibration_Date_ __Supplier__Click() On Error GoTo Err_Equipment_To_Calibration__Filter_Calibration_D ate___Supplier__Click Dim stDocName As String stDocName = "Equipment To Calibration (Filter Calibration Date & Supplier)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_To_Calibration__Filter_Ca: Exit Sub Err_Equipment_To_Calibration__Filter_Calibration_D ate___Supplier__Click: MsgBox Err.Description Resume Exit_Equipment_To_Calibration__Filter_Ca End Sub -- Thank you, Cesar Urquidi "Accessguru" wrote: Where do you have your code and what is the code? -- Accessguru -------------- HTH "Cesar Urquidi" wrote: I created a command button in a form to open a report, and it was working fine, but now it doesn't work. I get the following "Microsoft Visual Basic" window message: Module not found Why? How can I make it work again? -- Thank you, Cesar Urquidi |
#4
|
|||
|
|||
Command button not working!
Did you rename anything? It sounds like you might have tried to rename
something and now it can't find it (if it was working at one point). -- Bob Larson Free Tutorials and Samples at http://www.btabdevelopment.com __________________________________ "Cesar Urquidi" wrote: I have multiple commands, here's the code for all commands: Private Sub Equipment__Active___By_Device_ID__Click() On Error GoTo Err_Equipment__Active___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Active) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Active___By_Device_ID__C: Exit Sub Err_Equipment__Active___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Active___By_Device_ID__C End Sub Private Sub Equipment__Inactive___By_Device_ID__Click() On Error GoTo Err_Equipment__Inactive___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Inactive) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Inactive___By_Device_ID_: Exit Sub Err_Equipment__Inactive___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Inactive___By_Device_ID_ End Sub Private Sub Equipment__Missing_Lost___By_Device_ID__Click() On Error GoTo Err_Equipment__Missing_Lost___By_Device_ID__Click Dim stDocName As String stDocName = "Equipment (Missing/Lost) (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment__Missing_Lost___By_Device: Exit Sub Err_Equipment__Missing_Lost___By_Device_ID__Click: MsgBox Err.Description Resume Exit_Equipment__Missing_Lost___By_Device End Sub Private Sub Equipment_Calibration_Due_Soon__By_Device_ID__Clic k() On Error GoTo Err_Equipment_Calibration_Due_Soon__By_Device_ID__ Click Dim stDocName As String stDocName = "Equipment Calibration Due Soon (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Due_Soon__By_: Exit Sub Err_Equipment_Calibration_Due_Soon__By_Device_ID__ Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Due_Soon__By_ End Sub Private Sub Equipment_Calibration_Due_Soon__By_Next_Scheduled_ Calibration__Click() On Error GoTo Err_Equipment_Calibration_Due_Soon__By_Next_Schedu led_Calibration__Click Dim stDocName As String stDocName = "Equipment Calibration Due Soon (By Next Scheduled Calibration)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Due_Soon__By_: Exit Sub Err_Equipment_Calibration_Due_Soon__By_Next_Schedu led_Calibration__Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Due_Soon__By_ End Sub Private Sub Equipment_Calibration_Past_Due__By_Device_ID__Clic k() On Error GoTo Err_Equipment_Calibration_Past_Due__By_Device_ID__ Click Dim stDocName As String stDocName = "Equipment Calibration Past Due (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Past_Due__By_: Exit Sub Err_Equipment_Calibration_Past_Due__By_Device_ID__ Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Past_Due__By_ End Sub Private Sub Equipment_Calibration_Past_Due__By_Next_Scheduled_ Calibration__Click() On Error GoTo Err_Equipment_Calibration_Past_Due__By_Next_Schedu led_Calibration__Click Dim stDocName As String stDocName = "Equipment Calibration Past Due (By Next Scheduled Calibration)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Calibration_Past_Due__By_: Exit Sub Err_Equipment_Calibration_Past_Due__By_Next_Schedu led_Calibration__Click: MsgBox Err.Description Resume Exit_Equipment_Calibration_Past_Due__By_ End Sub Private Sub Equipment_Issued___Not_Returned__By_Device_ID__Cli ck() On Error GoTo Err_Equipment_Issued___Not_Returned__By_Device_ID_ _Click Dim stDocName As String stDocName = "Equipment Issued & Not Returned (By Device ID)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Issued___Not_Returned__By: Exit Sub Err_Equipment_Issued___Not_Returned__By_Device_ID_ _Click: MsgBox Err.Description Resume Exit_Equipment_Issued___Not_Returned__By End Sub Private Sub Equipment_Issued___Not_Returned__By_Issue_Date__Cl ick() On Error GoTo Err_Equipment_Issued___Not_Returned__By_Issue_Date __Click Dim stDocName As String stDocName = "Equipment Issued & Not Returned (By Issue Date)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_Issued___Not_Returned__By: Exit Sub Err_Equipment_Issued___Not_Returned__By_Issue_Date __Click: MsgBox Err.Description Resume Exit_Equipment_Issued___Not_Returned__By End Sub Private Sub Close_Reports_Form_Click() On Error GoTo Err_Close_Reports_Form_Click DoCmd.Close Exit_Close_Reports_Form_Click: Exit Sub Err_Close_Reports_Form_Click: MsgBox Err.Description Resume Exit_Close_Reports_Form_Click End Sub Private Sub Equipment_To_Calibration__Filter_Calibration_Date_ __Supplier__Click() On Error GoTo Err_Equipment_To_Calibration__Filter_Calibration_D ate___Supplier__Click Dim stDocName As String stDocName = "Equipment To Calibration (Filter Calibration Date & Supplier)" DoCmd.OpenReport stDocName, acPreview Exit_Equipment_To_Calibration__Filter_Ca: Exit Sub Err_Equipment_To_Calibration__Filter_Calibration_D ate___Supplier__Click: MsgBox Err.Description Resume Exit_Equipment_To_Calibration__Filter_Ca End Sub -- Thank you, Cesar Urquidi "Accessguru" wrote: Where do you have your code and what is the code? -- Accessguru -------------- HTH "Cesar Urquidi" wrote: I created a command button in a form to open a report, and it was working fine, but now it doesn't work. I get the following "Microsoft Visual Basic" window message: Module not found Why? How can I make it work again? -- Thank you, Cesar Urquidi |
Thread Tools | |
Display Modes | |
|
|