So I have a login system established with loginID, passwords, and different user types. I also have a User Change Password form. However, this form only allows the user to change their password to something new. Also, for some reason the form only allows the first user in the table (ID#1) to be changed regardless of who is logged in. I was using an embedded Macro. I need to be able to have the old password entered and verified before the password can be changed to something new.
Private Sub Command3_Click() If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then MsgBox "You must enter a User Name.", vbOKOnly, "Required Data" Me.cboEmployee.SetFocus Exit Sub End If
I have been trying to create a login form that allows the user to change his/her temporary password logging it to the proper table along with timestamp and who done it info.But, after spending the morning trying to find the proper syntax I am flummoxed.
I can get everything to work accept the update of the fields. I can get the command to work (writes to the location) but it does the pop-up what is the parameter thing when it works. I have all the information just need to get it in so the command recognizes it.
DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE lut_TeamList SET Pass = txt_Password.value WHERE TeamListID = Me.cbo_UserName.Value" DoCmd.RunSQL "UPDATE lut_TeamList SET UpdatedBy = Me.cbo_UserName.Value WHERE TeamListID = Me.cbo_UserName.Value" DoCmd.RunSQL "UPDATE lut_TeamList SET UpdatedWhen = Now() WHERE TeamListID = Me.cbo_UserName.Value DoCmd.SetWarnings True
code for the "Forgot Password?" button on a login screen? I want an email notification sent to me if someone has forgotten their password, and/or automatically reset their password to a default value based on their user name.
I am using an RC4 vba function to encrypt the password when a user account is setup in the front end of my split database. The password is stored in the backend encrypted. It is encrypted in the before update event of the form by calling a function against the bound password field. My problem is that when I want to maintain user accounts using this form, I want to be able to see the password as plain text.
I can decrypt it and display it in the form in plain text but cannot update it. This is because to display the password in plain text requires me to use a query as the record source for the form and this query requires an expression to call the decrypt function against the password field. The form will not allow any changes against a field that uses an expression as the control source.
I've got a form (frmEdit) that allows users to search tblMain for records using a bunch of unbound controls and a dynamically created SQL statement. Search results are displayed in a subform (subMain), and the current record in the subform is displayed in a set of bound controls on frmEdit.
Now the important bit: There is a set of unbound checkboxes on my form that allow the user to change which fields are visible in subMain. This is accomplished by the following:
Code: Private Sub chkName_AfterUpdate() If Me.chkName = 0 Then Me.subMain.Form.CorrespondingField.ColumnHidden = True Else Me.subMain.Form.CorrespondingField.ColumnHidden = False End If End Sub
Certain fields are visible by default, but the user may want to change which fields those are. Here's what I've done so far to accomplish this:
Created a button (btnChangeDefaults) that opens a form (frmChangeDefaults)
Put checkboxes for each table field on frmChangeDefaults
Put a "Cancel" button (btnCancel)* and "Done" button (btnDone)** on frmChangeDefaults.
*btnCancel just closes frmChangeDefaults without making any changes to frmChangeDefaults or frmEdit
**btnDone changes Forms.frmEdit.Form.chkName.DefaultValue to Me.CorrespondingCheckBox.Value and then closes frmChangeDefaults
This all seems to work quite well, actually. Debugging confirms that the default values of the checkboxes on frmEdit are indeed changed when I click btnDone. But when I close frmEdit and re-open it, the default values return to what they were prior. This happens even when:
I close frmEdit using DoCmd.Close acForm, "frmEdit", acSaveYes
I close frmEdit after using DoCmd.Save acForm, "FrmEdit"
I save frmEdit manually by right-clicking and pressing save
I am using the sample security db that has been posted on previous threads does anyone know how to add a change password button to it, any help would be appreciated.
I have successfully created a user id & password prompt which works excellently.
The database i have created has three forms inwhich two departments access. I have an issue where one department is only allowed to view a search screen and the other department is allowed to enter in information and search. I also have a section for managers to login and run reports.
In my userid & password table i have created and field called Level which includes: Administrator, Manager, Bookings,User
Admin - Full Access Managers - Full Access - But not able to edit queries and tables Bookings - Order Form, Search Form User - Search Form
Here is the code i have used:
Login OK Button:-
Private Sub login_Click()
If txtPassword.Value = DLookup("Password", "tblAccess", "[UserId] = txtUser.Value") Then CheckFlag DoCmd.Close acForm, "frmUserLogon" Else MsgBox "INCORRECT PASSWORD! Please try again" End If
End Sub
Module1: Option Compare Database Public Flag As Integer '1: Reports Opener 2:Log 3:OpenUKSupplier
Function CheckFlag() Select Case Flag Case 1 DoCmd.OpenForm "frmReports Menu"
Case 2 DoCmd.OpenForm "frmbooking" Case 3 DoCmd.OpenForm "Frmsearch" Case Else 'Should never be here
End Select End Function
Where would i add the code to the module or to the event?
Hi i followed the link below http://support.microsoft.com/kb/179371 and was successful to put the password on my form. my question is how do i change the default password to my own. i have tried but failed. Any help will highly aprreciated
I want my text box to display a social security number like this: "*****6789". 5 asterisks and last four numerals displayed. I am familiar with the "Password" Input mask but I think it only allows the entire field to be masked. Can I make a custom mask like this?
Previously posted in General but got no response so decided to move to forms area.
I want to hide as many toolbar options/menus as I can on startup, so the user is very limited as to what they can do with the database. I am using the multiuser logon option so each user has their own user name and password. By hiding the menu, it also locks out the option to change their password.
I want to give users the ability to load the User and Group accounts/change logon screen only.
What I was thinking was calling this option from a command button on a form. ie, Once clicked, it takes you to the generic Change Logon screen with the need for the menus to be enabled.
Can this be done? If not, is there an alternative.
:Hi, At the moment I'm writing a production database for work, which include parts in/out, production planning, kitting lists and other forms. What I'm after is a way that when the database opens it asks for a password and depending what it is, is what you can do. Administrator can do all, Stores can only enter parts and scheduler can only enter planning and so on.
I have created a login form, with a user name and password. It works great. However I need to use the login form for three different command buttons, on my main access form. The same login form will be used but It will need to open three different forms depending on what command button was selected on the main page.
I open main page, PID- click on buildings the login form pops up and I enter the correct username and password the building doc opens. Got it?? The same process for each, I would like to know how is this possible? How do I change the differnt documet that opends according to the command button that has been pushed? :confused: Thanks in advance
I use a database that someone else set up and is no longer here. To get access to the database you need to enter a user id and password. I have a new user who has been getting into the database using an established user's id and password.
I went into the file and found the table with the users, their id's and passwords listed, and added the new person to the table, but I still get an invalid user message when trying to access the database with the new user's information.
I went through the Access Help and tried a couple things it said for adding users to a password protected database, but either I didn't do it right, or the way to add a user is different from what I am getting from Access Help.
Lastly, this database is different in that if I would add a report, it only shows up on my computer when I access the database, the report doesn't show up on anyone else's. That is odd to me, but it is how it works.
Into the form named: Administratorsfrm, I added a textbox defined as usertxt and also a textbox named passwordtxt as well as a button named logincmd.
The user defined is the Network user and this is added automatically to the usertxt field everytime when I open the Administratorsfrm form. To do this I use the next code:
Private Sub Form_Open(Cancel As Integer) Dim wshNetwork As Object 'New wshNetwork Set wshNetwork = CreateObject("WScript.Network") Me.Usertxt = wshNetwork.UserName Set wshNetwork = Nothing End Sub
I would like that the user types his/her password (Network password or Unlocking computer) and after this could Login to the database application. I mean, the user will type his password and then the event should compare the password typed with the network password or unlocking password and if this is correct should open the database application (Main Menu Form: Mainfrm)
I have a form in which I collect approvals from two different departments. To approve an item the user selects their name from a combobox, and then tick an option box to indicate approval. The combobox is from table 'Users' and has a query as a source with the following fields, 'UserNum, First, Last, Password'. The 'approval' fields are on table 'Approvals' and are yes/no fields.
What I'd like to have happen is that the user chooses their name from the combobox and then ticks the option box for approval; when ticked I would like a messagebox to appear asking for the users password based on the name chosen in the combobox.
I am looking at the public function routine, that validates the password entry. I want to know how i can make a message pop up with the specific error the user has made on entry.
Public Function ValidatePwd(varPassword As Variant) As Boolean Dim blnValid As Boolean Dim blnValidCriteria As Boolean Dim intChar As Integer
Hi! This is Kishore, working on VB Project which is using MS-Access95 as backend. Now, i want to change the Database login Password. Could anyone guide me in this context.