Asterisk in Inputbox "Dave" <dave[ at ]accessdatapros> 11/25/2008 1:26:45 AM I am using this code to password protect (such as it is) the opening of a form [code] Private Sub cndAdminArea_Click() Dim password As String Dim Answer As String password = "admin" Answer = InputBox("Enter Admin Password: ", "Admin Confirmation", "Enter Password") If Answer = password Then DoCmd.OpenForm "frmUpdate" Else MsgBox "You have not entered the correct password" & vbLf & _ "Please check the password and try again OR contact the real Administrator" Exit Sub End If End Sub [/code] I would like the password as it is being typed in to show Asterisk's I tried this with no luck. InputBox.PasswordChar [=*] Any suggestions on how to do this OR - Alternatively How to use a password table where the datatype of the password field has an input mask for password Any help here will be appreciated. Thanks in advance dave

Re: Asterisk in Inputbox "Mike Painter" <mddotpainter[ at ]sbcglobal.net> 11/25/2008 2:02:07 AM There is a format wizard which allows you to present the info as a series of astericks. Dave wrote: [Quoted Text] > I am using this code to password protect (such as it is) the opening > of a form > > [code] > Private Sub cndAdminArea_Click() > > Dim password As String > Dim Answer As String > > password = "admin" > Answer = InputBox("Enter Admin Password: ", "Admin Confirmation", > "Enter Password") > If Answer = password Then > DoCmd.OpenForm "frmUpdate" > Else > MsgBox "You have not entered the correct password" & vbLf & _ > "Please check the password and try again OR contact the real > Administrator" > Exit Sub > End If > End Sub > > [/code] > > I would like the password as it is being typed in to show Asterisk's > > I tried this with no luck. > InputBox.PasswordChar [=*] > > Any suggestions on how to do this > > > OR - Alternatively > > How to use a password table where the datatype of the password field > has an input mask for password > > > Any help here will be appreciated. > > Thanks in advance > dave

Re: Asterisk in Inputbox "Dave" <dave[ at ]accessdatapros> 11/25/2008 2:37:10 AM How do I apply that to an Inputbox? "Mike Painter" <mddotpainter[ at ]sbcglobal.net> wrote in message news:A_IWk.8266$Ei5.2835[ at ]flpi143.ffdc.sbc.com... [Quoted Text] > There is a format wizard which allows you to present the info as a series > of astericks. > Dave wrote: >> I am using this code to password protect (such as it is) the opening >> of a form >> >> [code] >> Private Sub cndAdminArea_Click() >> >> Dim password As String >> Dim Answer As String >> >> password = "admin" >> Answer = InputBox("Enter Admin Password: ", "Admin Confirmation", >> "Enter Password") >> If Answer = password Then >> DoCmd.OpenForm "frmUpdate" >> Else >> MsgBox "You have not entered the correct password" & vbLf & _ >> "Please check the password and try again OR contact the real >> Administrator" >> Exit Sub >> End If >> End Sub >> >> [/code] >> >> I would like the password as it is being typed in to show Asterisk's >> >> I tried this with no luck. >> InputBox.PasswordChar [=*] >> >> Any suggestions on how to do this >> >> >> OR - Alternatively >> >> How to use a password table where the datatype of the password field >> has an input mask for password >> >> >> Any help here will be appreciated. >> >> Thanks in advance >> dave > >