Setting the ***** password in a inputbox

[Prashant]

Hi,

I want the input box to display the password as "********", below is the code I am using :

Private Sub OLEUnbound42_Click()
    On Error GoTo Err_bDisableBypassKey_Click
Key
    Dim strInput As String
    Dim strMsg As String
    Beep
    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
        Beep
        MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
               "The Shift key will allow the users to bypass the startup" & vbCrLf & vbLf & _
               "options the next time the database is opened.", _
               vbInformation, "Set Startup Properties"
    Else
         Beep
        SetProperties "AllowBypassKey", dbBoolean, False
        MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
               "The Bypass Key was disabled." & vbCrLf & vbLf & _
               "The Shift key will NOT allow the users to bypass the" & vbCrLf & vbLf & _
               "startup options the next time the database is opened.", _
               vbCritical, "Invalid Password"
        Exit Sub
    End If
Exit_bDisableBypassKey_Click:
    Exit Sub
Err_bDisableBypassKey_Click:
    MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
    Resume Exit_bDisableBypassKey_Click
End Sub

Thanks in advance

 

[pr2-eugin]

I have exactly what you need in the Code Repository section. Password Box - A variant of Input Box.

Hope this helps !