Security layer to signing off with initials

[sheckay]

So that one box is there to accept the secret code and then display the initials after the code is entered? If so that would be great. I just didn't see that in what you sent over. I just double checked. When I open that form and enter a code, when I press enter nothing happens. I just see asterisks.

[sheckay]

Sorry. I thought that was a separate forum

[Welshgasman]

Sorry. I thought that was a separate forum

I assume that was a reply to my crosspost message?
If so, yes they are separate forums, but etiquette on all forums is to mention you have posted elsewhere with a link to where. That way you do not waste people's time giving the same info in different forums.
Continued crossposting will generally mean a lot of members will ignore your posts.
Up to you.

[davegri]

I just see asterisks.

That's probably because the downloaded file is not in a trusted location on your machine.



Another possible fix:

[isladogs]

@sheckay
All you appear to be describing is a login system using a password (secret key) only.
Much less secure than a username/password combination

Even though the workstations are shared and therefore users don't login to the network, there is no reason why they shouldn't login to your app with user name & password.
Whatever you do, make sure any stored password/secret ley is encrypted for security reasons

Have a look at my example app: Password Login (isladogs.co.uk)

[sheckay]

I assume that was a reply to my crosspost message?
If so, yes they are separate forums, but etiquette on all forums is to mention you have posted elsewhere with a link to where. That way you do not waste people's time giving the same info in different forums.
Continued crossposting will generally mean a lot of members will ignore your posts.
Up to you.

I apologize. I wasn't aware of that kind of an issue. I will modify that other post so that everyone is aware. Thank you

[sheckay]

OK, thanks I will try that right now

[sheckay]

Wow!!! I had to do what you recommended (enabling Macros), but though a different path. And once I did, I could see that you really put something together for me. Wow!!! Thank you. And after checking out how it works, I created a table that I connected the text box to. Then I duplicated the text boxes and created other fields in the new table. And then I created multiple records with multiple signatures. And everything is working like I need it to. Wow!!! Then I went to the user/signature file and I edited a user's password/code to see if that would mess up the existing signatures for that user. And it didn't. Wow!! Thank you!!! I can't thank you enough!!!

[isladogs]

@sheckay
Its not clear who your last two replies were directed at. Always best to include the username as I have here if your answer is directed at a particular person(s)

[sheckay]

I'm running into one problem. That problem is that after an entry is made in the box and it has initials in it. If anyone clicks on that box again, the initials disappear. And they don't come back. So, I modified the form's "on current " so that if the text box is null, it's not locked, but if it is not null it is locked. I also changed the backcolor to reflect whether the box is locked or not. And once that's in place (the field has initials in it, and is locked) if anyone clicks on that box the initials still disappear, and the field is locked. Is there a way to prevent the initials from disappearing?
I'm guessing that the OnEnter code is still executing, even though the box is locked?

Here's my OnCurrent code:
Private Sub Form_Current()
If IsNull(Text2) Then
Text2.Locked = False
Text2.BackColor = vbWhite
Else
Text2.Locked = True
Text2.BackColor = RGB(200, 200, 200)
End If
End Sub

[moke123]

I'll have to look at it.


in the mean time try

Private Sub Form_Current()


Me.Text2.Enabled = IsNull(Me.Text2)


End Sub

[sheckay]

OK, what I've tried so far is changing the on Enter to:

Private Sub Text2_Enter()
If IsNull(Text2) Then
Text2.Locked = False
Text2.BackColor = vbWhite
Else
End
End If
Me.Text2 = ""
Me.Text2.InputMask = "password"

End Sub

And that works. But when you click out of it, the onExit code kicks in and thinks the initials are the entry being made for the secret code

[sheckay]

Wow!! You're good!! That did the trick!!! Thank you!!!

[Welshgasman]

Might also want to give your controls meaningful names?
Whilst you might not have many controls on that form, getting into the habit of Textnn is a bad one to have.

[moke123]

try this one