Solved InputBox with Asterix

[mike60smart]

Hi Everyone
I am trying to use the Code shown in the following previous thread

When I run the Code I get the error shown Below.

Private Sub cmdAdmin_Click()

On Error Resume Next
    Dim pWord As String
    pWord = InputBoxDK("Enter Administrative Password", "Password Required!")
    If pWord = "" Then
        MsgBox "Nothing Entered" & vbCrLf & vbLf & "Please Contact Your Local Administrator", vbCritical, "Security Logging"
        GoTo ExitInput:
    End If
    If pWord = SCtb0825 Then 'password is correct (password of your choice)
        DoCmd.OpenForm "Administration"
    Else
       MsgBox "Incorrect Password!" & vbCrLf & vbLf & "Please Contact Your Local Administrator", vbCritical, "Security Logging"
       Exit Sub
    End If
ExitInput:
End Sub

Can anyone tell me where I am going wrong with this?
Any help appreciated.

 

[XPS35]

If pWord = "SCtb0825" ?

 

[isladogs]

See my article:

Masked Input Box

This article contains an updated version of the masked input box code and works in 32-bit and 64-bit Access

www.isladogs.co.uk

 

[Gasman]

Hi Everyone
I am trying to use the Code shown in the following previous thread

When I run the Code I get the error shown Below.

Private Sub cmdAdmin_Click()

On Error Resume Next
    Dim pWord As String
    pWord = InputBoxDK("Enter Administrative Password", "Password Required!")
    If pWord = "" Then
        MsgBox "Nothing Entered" & vbCrLf & vbLf & "Please Contact Your Local Administrator", vbCritical, "Security Logging"
        GoTo ExitInput:
    End If
    If pWord = SCtb0825 Then 'password is correct (password of your choice)
        DoCmd.OpenForm "Administration"
    Else
       MsgBox "Incorrect Password!" & vbCrLf & vbLf & "Please Contact Your Local Administrator", vbCritical, "Security Logging"
       Exit Sub
    End If
ExitInput:
End Sub

Can anyone tell me where I am going wrong with this?
Any help appreciated.

Pretty simple really, password does not match sc whatever as you have not have declared it or made available to that function/sub.

Whose db is this you are working on?

 

[Gasman]

Never mind, the actual owner of the db has replied elsewhere.

Solved - Mask a PW field on form button

I have created a Main Menu, on the Main menu I have a button for the Admin section, I have PW protected the button. When I put in the PW it displays the PW for all to see. How do I mask or hide this PW so no one can see what I am inputting into the field?

www.access-programmers.co.uk

 

[mike60smart]

Solved - Mask a PW field on form button

I have created a Main Menu, on the Main menu I have a button for the Admin section, I have PW protected the button. When I put in the PW it displays the PW for all to see. How do I mask or hide this PW so no one can see what I am inputting into the field?

www.access-programmers.co.uk

Hi Gasman

Yes that example provided by Isladogs works fine

 

[Cotswold]

I had a customer who moaned on and on about having to enter a password to open the program and how he couldn't see the characters he typed in. He was such a pain every time I went, or when we spoke on the phone and wouldn't pay to have our updated password entry with switch added to see what he'd typed. Because of his attitude and on general principles I wouldn't update him for free. In the end I told him to change his password to eight asterisks. He could still be using that same password.


(P.S. Asterix is a fat little cartoon character in stripy trousers)

 

[D_Walla]

(P.S. Asterix is a fat little cartoon character in stripy trousers)

Asterix was indeed a little cartoon character, but it was Obelix who was the fat one with the stripy trousers. #justsaying