Problem with password on Report

[riaang]

Hi,
I use the following event to password protect my report but have a problem with the line in red.

Private Sub Report_Open(Cancel As Integer)
If InputBox("Enter Password", "Password Required") <> "4062" Then
MsgBox "Access denied"
DoCmd.Close acReport, Me.Name
End If
End Sub

Can anybody help me to fix the problem.

Regards

Riaan

PS. Is it possible to password protect a specific switchboard item and not the whole switchboard.

 

[IMO]

Private Sub Report_Open(Cancel As Integer)
If InputBox("Enter Password", "Password Required") <> "4062" Then
MsgBox "Access denied"
DoCmd.CancelEvent
End If
End Sub

IMO

 

[riaang]

Thanks IMO,

Do you perhaps know of a way to password protect a specific item on the switchboard. I want a button on the main switchboard like management reports that needs to be password protected.

Thanks for your assistance.

 

[IMO]

Here's a great example from Candace L. Tripp

IMO