get **** displayed in password module

[joe2kuk]

I've got this password code here but I need the text to be in ****** but cant get it to work, could someone let me know where to stick what?

Function callit()
Call password
End Function
Sub password()
Dim password, messages, titles
messages = "Please enter password"
titles = "Password"
password = InputBox(messages, titles)

If password = "nurse" Then DoCmd.OpenForm "nurses" Else If password = "doctor" Then DoCmd.OpenForm "docs" Else If password = "clerk" Then DoCmd.OpenForm "clearks" Else DoCmd.OpenForm "startup"
End Sub

 

[Junior1544]

you can't use an input mask in a prompt box like this...

I Would suggest making a small form that is loaded at the begining of the database. Have a textbox and set it to be a password box (it'll display all **'s)... then in a command button put your code... also, i would suggest a select case statment instead of a bunch of if thens...

select case txtbox
case "Doctor"
docmd.openform "docs"
case "nurse"
docmd.openform "nurses"
case "clerk"
docmd.openform "clerks"
end select

just my thoughts...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[joe2kuk]

The only prob is that the people who are above me dont want be to chage the code and for them to do it would take well bloody ages to be quite frank, I've been told that the module is to stay as it is and my problem is to get it working, all i need to know is how to get the *** in to the code I've allready got.


Joe

 

[Junior1544]

to use a msg prompt you can't... sorry.

I've had people above me try to put limitations like that on me befor... I made a solution, made it look the way they wanted it to look. And told them that I changed what they didn't want changed and that they have a choise. The way they want the code to look, or the way they want to application to run. It got me in a little bit of troble to begin with, but they also began to realize that I am a programer and that there is limitations to the program I am forced to use...

sorry I can't help more...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.