Input box question

[Dave K.]

I am using an inputbox to input a password. How do I set the input to show
as ***** instead of actual text? my statement is as follows:

Private Sub Command7_Click()
Dim stPassword As String

stPassword = "Report"

If stPassword = InputBox("Please enter password", "Reports Interface
Box") Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FrmReports"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_open_Reports_Form_Click:
Exit Sub

Err_open_Reports_Form_Click:
MsgBox Err.Description
Resume Exit_open_Reports_Form_Click

Else
MsgBox ("Wrong Password")


End If


End Sub

 

[Douglas J. Steele]

You can't. Input boxes don't have the ability to use input masks, which is
what the asterisks in a text box are.

I showed one possible work-around in my March, 2005 "Access Answers" column
in Pinnacle Publication's "Smart Access". You can download the column (and
sample database) for free at
http://www.accessmvp.com/DJSteele/SmartAccess.html

 

[Keith Wilby]

I am using an inputbox to input a password. How do I set the input to show
as ***** instead of actual text?

You can't. You'd have to use a form with an unbound text box with the input
mask set to "password".

Keith.
www.keithwilby.co.uk