Password Protect Access Form Control

I'm using the following code to password protect an access control on a form. The code works well, however when a new record is added it prompts the user to enter the password to change the control. I would like users to be able to add new records without the password box popping up and requiring the user to enter the password.

Private Sub SocialWorker_GotFocus()
If InputBox("Enter Password To Transfer Veteran", "Transfer Veteran") <> "password" Then
Fname.SetFocus
SocialWorker.Locked = False
End If
shieldscoAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
try this

Private Sub SocialWorker_GotFocus()

if me.newrecord=false then

If InputBox("Enter Password To Transfer Veteran", "Transfer Veteran") <> "password" Then
Fname.SetFocus
SocialWorker.Locked = False
End If

end if
0
All Courses

From novice to tech pro — start learning today.