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

Public Function bDisableBypassKey_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
 

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

Public Function bDisableBypassKey_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
 

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

Public Function bDisableBypassKey_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
 

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.