Module not Found

[rpm]

Hello,
I'm having a problem with my Access application suddenly giving me a "Module not found" message. When I click on OK, the system brings me to VBA and I then receive a message that report name 'report' entered in either the property sheet or macro is misspelled or doesn't exist. How can I tell where the error is and what module it is looking for? Any advice is appreciated!
Thanks,
Peter

 

[Norie]

Can you post the code causing the error and indicate which line causes the problem?

Have there been any changes to the database? eg a module removed/name changed

 

[rpm]

Hello Norie,
Thanks for the reply. Unfortunately, I cannot tell what code is causing the problem. The error comes up when I click on a command button that opens another form. The code that comes up in VBA is not the code attached to the form that is being opened! So it is puzzling to me where to begin looking... Do you want to see the code that is related to the command button clicked on? The form that it should be opening? The code that is opened up in VBA?

Sorry for not knowing how to debug this, but I am a novice...
Thanks,
Peter

 

[Norie]

Do you want to see the code that is related to the command button clicked on? The form that it should be opening?

If the error occurs when you click it it might be an idea to post the buttons code.

 

[rpm]

Hi again Norie,
Here is the code behind the command button to open the form:

Private Sub CB_CHANGE_GLOBAL_Click()
DoCmd.OpenForm "EDIT_PART_MENU_GLOBAL", , , , , , Me.User_ID
End Sub

And here is the code behind "edit_part_menu_global"

Option Compare Database

Private Sub CB_EDIT_CUSTOM_GLOBAL_Click()
DoCmd.OpenForm "Price_edit_string_global", , , , , , Me.User_ID

End Sub

Private Sub CB_EDIT_GROUP_GLOBAL_Click()
DoCmd.OpenForm "Price_edit_group_global", , , , , , Me.User_ID

End Sub

Private Sub CB_Exit_Click()
Dim v_user_id As String
v_user_id = User_ID.Value

DoCmd.SetWarnings False
DoCmd.Close
DoCmd.OpenForm "EDIT_PART_MENU", , , , , , v_user_id


End Sub



Private Sub Form_Load()

DoCmd.Maximize
Me.User_ID = Me.OpenArgs
DoCmd.Close acForm, "EDIT_PART_MENU"

End Sub

Thanks,
Peter