Setting the ***** password in a inputbox

[Hutch]

How do i get the ****** to appear insted of text when it is an inputbox? and not a box inside a form. here is the code i am using

[code=vb]
Public Function bDisableBypassK ey_Click()

'This allows a programmer to set the password via a button while accessed in the program.

Dim strInput As String
Dim strMsg As String


strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
"Please key the programmer's password to enable the Bypass Key."

strInput = InputBox(Prompt :=strMsg, Title:="Disable Bypass Key Password")

If strInput = "Password" Then

SetProperties "AllowBypassKey ", dbBoolean, True

MsgBox "The Bypass Key has been enabled."


Else

SetProperties "AllowBypassKey ", dbBoolean, False

MsgBox "If you dont know the password you probably shouldnt be here!", vbExclamation, "!WRONG!"

End If
End Function
[/code]
Thanks in advance for any help.

[JConsulting]

How do i get the ****** to appear insted of text when it is an inputbox? and not a box inside a form. here is the code i am using

[code=vb]
Public Function bDisableBypassK ey_Click()

'This allows a programmer to set the password via a button while accessed in the program.

Dim strInput As String
Dim strMsg As String


strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
"Please key the programmer's password to enable the Bypass Key."

strInput = InputBox(Prompt :=strMsg, Title:="Disable Bypass Key Password")

If strInput = "Password" Then

SetProperties "AllowBypassKey ", dbBoolean, True

MsgBox "The Bypass Key has been enabled."


Else

SetProperties "AllowBypassKey ", dbBoolean, False

MsgBox "If you dont know the password you probably shouldnt be here!", vbExclamation, "!WRONG!"

End If
End Function
[/code]
Thanks in advance for any help.

No Can Do. You'll have to build a pop-up form and use the format option for a textbox "password".
J

[ADezii]

How do i get the ****** to appear insted of text when it is an inputbox? and not a box inside a form. here is the code i am using

[code=vb]
Public Function bDisableBypassK ey_Click()

'This allows a programmer to set the password via a button while accessed in the program.

Dim strInput As String
Dim strMsg As String


strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
"Please key the programmer's password to enable the Bypass Key."

strInput = InputBox(Prompt :=strMsg, Title:="Disable Bypass Key Password")

If strInput = "Password" Then

SetProperties "AllowBypassKey ", dbBoolean, True

MsgBox "The Bypass Key has been enabled."


Else

SetProperties "AllowBypassKey ", dbBoolean, False

MsgBox "If you dont know the password you probably shouldnt be here!", vbExclamation, "!WRONG!"

End If
End Function
[/code]
Thanks in advance for any help.

Short of accessing the API, I'm pretty sure that what you are requesting cannot be done - you cannot Mask characters within the context of an Input Box.

[Hutch]

Short of accessing the API, I'm pretty sure that what you are requesting cannot be done - you cannot Mask characters within the context of an Input Box.

Of the topic what is an API?

[ADezii]

Of the topic what is an API?

Application Programming Interface. I'm not trying to be funny, but if you have to ask what it is, it's not something that you should try.

[Hutch]

Application Programming Interface. I'm not trying to be funny, but if you have to ask what it is, it's not something that you should try.

No offense taken i'm still learning.