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
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.
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 created a small database with a user login form, along with a password reset form. Running it in my sandbox as an accdr file, the password value resets just fine, but on my test machine with the Access 2010 runtime installed, the password reset form doesn't reset the password. I will try to describe the state of things as of this point.
1. The LoginF presents with a combo box for the user to choose their name, and a text box to enter their password. The code below is on the After Update of the password text box.
Code: Private Sub txtPassword_AfterUpdate() 'Check if user has been chosen If IsNull(Me.cboUser) Then MsgBox "Please Select User Initials", vbInformation, "Warning"
[Code] ....
2. The password reset form has two text boxes for the new password and to re-enter the same, as well as a command button with this code.
Code: Private Sub cmdResetPassword_Click() If Me.Password = Me.PasswordTest And Len(Me.Password) & "" > 0 Then DoCmd.RunCommand acCmdSaveRecord DoCmd.Close DoCmd.OpenForm "LoginF"
[Code] ....
As I say, this works as an accdr file, but not in the actual runtime environment.
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
So I have decided that I want my ID's to be AutoNumbers, but at the moment they are currently set as Numbers. I have already inserted data, to test, which has been deleted, however I am now unable to change the ID field back to AutoNumber.
How can I duplicate the tables so that this field can be changed again?
I have like 10 tables with heaps of feild, so remaking them will take long, but I know there is a way using queries, I am just not sure how...
I have created a database and made the steps to the user-level security and VBA protected the project but i lost the passwords and the MDW file.
is there any way to reset the VBA pass then reset the security level?
this is very important for my business it's a school database with lots of info and it's critical for me to update or at least export some reports and forms to a new project
I have an unbound form with a combobox which needs to be validated before the control is updated.In the Before Update event I check that the value is valid and need to reset the value back to the previous value if not valid and then change focus to another control.I thought that the following code would work but the selected value remains in the control and I cannot move the focus to another control.
Code: Private Sub cboYears_BeforeUpdate(Cancel As Integer) Dim dteNewDate As Date dteNewDate = DateSerial(Val(Me.cboYears), Month(Me.txtCalendarHeading), 1)
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)