Run Time Error 2103

Hi, not knowing how you are using the password, I would suspect your are referencing the report incorrectly.

Here is a relatively simple way to use a passord.

Create a button and use the Form Close choice. This is an easy way to build in error checking. Name the button cmdPassword.

Create a textbox and name it txtPassword. Set it to invisible. Change the label caption to "Enter Password"

Go to form Design View and double-click on the event for cmdPassord button. Delete the DoCmd.CLose statement and insert:

me.txtPassword.visible = true
me.txtpassword.set focus.

In the texbox After Update event add the following:

Select case me.txtpassword
case is = "yourPassword"
docmd.openreport "YourReport", acviewpreview
case else:
me.txtPassword.defaultvalue = empty
me.txtPassword.setfocus

msgbox "Incorrect Password. Please ReEnter Password",vbokonly

end select

In the Report's OnClose event you can reset the selections.

forms!yourForm.txtPassword.defaultvalue = empty
forms!yourForm.txtPassword.visible = false

So, when you press the command button a textbox appears and asks for the password. If it is correct, the report prints. On close is sets the text box back to invisible and clears the password.

If the password is incorrect, a messagebox tells you so, the previous password is cleared, focus is returned to the text box for a retry.

Hope that helps.

On the form I created the rest of the forms work. Except the one with the password. When I click on that it gives me the above error and highlights "DoCmd.OpenReport x, acViewPreview" of my code listed below.

Private Sub ReportsBox_DblClick(Cancel As Integer)
Dim x As String
x = Me.ReportsBox.Column(0)
DoCmd.OpenReport x, acViewPreview

End Sub