Working day date diff

That worked well thanks!

I've got the following code to work to open a restricted form called FrmInternalStaffPrivate which is linked to the original form where the command button is located. Problem is that it opens at the first record and not the related record like a sub form would.

What code do I need to add and where?

Cheers

Jason

-------------------------------------------------------

Private Sub cmdOpenFrmInternalStaffPrivate_Click()

'Attached to On Click event of cmdFrmInternalStaffPrivate

Dim strPasswd

strPasswd = InputBox("Enter Password", "Restricted Information")

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

'If correct password is entered open InternalStaffPrivate form
'If incorrect password entered give message and exit sub

If strPasswd = "Password" Then
DoCmd.OpenForm "FrmInternalStaffPrivate", acNormal
Else
MsgBox "Sorry, you do not have permission to access this information", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub