I would like to create a password on a form, but I cannot get the form
to close when the wrong password is entered. I have also tried
docmd.close.
Appreciate some help.
Private Sub Form_Current()
Dim Password, Pword
Password = "Swordfish"
Pword = InputBox("Type in your password")
If Pword <> Password Then
MsgBox "Sorry, incorrect password"
exit
End If
I have recently split my database and added a password to the back end. I am now trying to re-link the tables as I have seen in other threads, but when I do this I am not prompted for the password I just get the message 'Not a valid password'
I must obviously be doing something wrong, can anyone help?
Firstly thank you for your help, this should be a simple one I hope, but is cracking my head on the wall. Have searched and searched and can't find an answer.
I have an Access Db that is not password protected, but is asking for a password. It opens on any other machine fine?
I think my version of Access is playing funny buggers with me, any suggestions?
I was trying to implement some security on this Db, which is why it happened I'm sure. I ran the security wizard, set-up two users and admin with passwords, I have the output file to "recreate" something too.
Issue is, I then copied this Db to another computer for use on there, it worked without a Password, so didn't need to worry about it, now I can't open any Db on my machine??
i have found a code that brings up a box when tab or clicking in to a box for editing as below:-
Dim strPassword As String If InputBox("Please enter the password:") <> strPassword Then SomeOtherControl.SetFocus TextBox1.Locked = True End If
its just that need to add a password as well, i have tried to put this in between the <> but this does not work. i would like a message to say incorrect password as well if possable.
Im trying to make a form that allows a 2 passwords. If the first password is put into the textbox then form1 is shown and if password 2 is used instead, then form2 is shown. Can someone point me in the right direction? I can only make a form that shows 1 form and exit the database
I've got a button on a form that opens another form - nothing unusual, but it would be preferable if this second form was password protected i.e. the user clicks the button to open the form and is immediately prompted to enter a password. I've looked at user-level security wizards but that confused me even more.
The database is networked and is used by 25+ people by the way.
i am wondering if it is possible to password protect a form?
I am building a DB which will hold personal information, all this info will be held in a table and displayed on a form, but I would like it so that the user has to enter their user name and password and only the form which relates to their details opens ( so like an open form and display specific field but passworded)
I have a Access 2000 db, been working fine for 6 months+ and suddenly today, two out of three forms give "not a valid password" error on trying to open them.
There has never been a password set on the db, nor on the forms - and the same user who used it successfully yesterday now gets this error, along with any other users.
What has happened and how do i fix it? All ideas welcome!!
how do I make a form closure password protected? basically a customer will be using a a form to browse products and the only way to have access to the rest of the DB is to enter the correct password to close that form when a close command button is clicked (more security features protecting rest of DB) how do I go about this? or is there a better way? explanation of any code will be very much appreciated! thanks :)
I have found the following code to password protect my form, it works but I have one problem, the input txt box does not have the input mask set so the password can be seen on screen, here is the code I have:
Private Sub Maintenance_Button_Click() Dim strPasswd
'Check to see if there is any entry made to input box, or if 'cancel button is pressed. If no entry made then exit sub.
If strPasswd = "" Or strPasswd = Empty Then MsgBox "No Input Provided", vbInformation, "Required Data" Exit Sub End If
'If correct password is entered open Employees form 'If incorrect password entered give message and exit sub
If strPasswd = "ssd" Then DoCmd.OpenForm "Maintenance", acNormal DoCmd.Close acForm, "Menu", acSaveNo Else MsgBox "Sorry, you do not have access to this form", _ vbOKOnly, "Important Information" Exit Sub End If
End Sub
Can anyone advise on what vba cmd to use in the password string to enable the password input mask?
Hello... Does anybody have any Visual Basic code on creating a password to open a form and a report. The form name is called "frmSurvey" and survey is called "rptSurvey"
I am not sure how to do this. I am trying to do up a password form where there is a user name and a password. There will only be 5 user names, one being an admin. I seen it in the Running Microsoft Access 2000 book (it's just a reference manual) but could not figure it out.
I have a login button in which if the username has an empty password or the user is his/her first time to login, another form will appear which is the Set New Password. How can I change the password of that current user, my Set New Password Form has two fields which is 'txtSetPassword1' and 'txtSetPassword2' and an OK button.
The user must enter a new password and a verification password, if the 2 fields matched, the new password entered will change the password in the table. The table name is 'tbl_UsernamesQry'.
I have done it but the main problem is, it changes the other's users password not the current user.
Here is my code for the OK button of that form Set New Password:
Private Sub btnSetOk_Click() If Me.txtSetPassword1.Value = Me.txtSetPassword2.Value Then Me.txtSetPassword1.SetFocus
I have a mdb file that does not have database or user level security, but it does have a VBA password.I want to transfer (overwrite) a new form to this database from another Access database. The form I'm exporting has VBA code. When I try using docmd.TransferDatabase I get an error. The error is:
"The TransferDatabase action was canceled."The line is:
where txtCheckInFile is the location and mdb file name I'm trying to send the export.It might be because the form already exists. So, if I go into the database and delete form, and repeat the export I get the message:
"Microsoft protect this Visual Basic for Applications Project with a password. You must supply the password in the Visual Basic Editor before you can perform this operation."My question is it possible to transfer a form to a MDB that has a passworded VBA? I know the VBA password.If not, perhaps it is possible to remove the VBA password in the database (using VBA), make my export, and then add the password back in?
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)
After viewing all the threads i got some useful information but just wanted some help as i am not a programmer but can understand logics. There are 2 issues i want to resolve
1. First query is i have a login form and in a table there is username password. Now issue is based on the username person should be able to view things. There would be 6 differrent departments. So i would have six users and 1 id only for viewing. These six users should be able to see there own records either assigned to them or create new query and assign to any other 5 users. Now option is either I create six replicated forms and based on the user login i open user form or switch board. Can there be any option where in a table i store the activities they can do and whereever these guys go the code check in table and enable or disable the view of items for other guys. Users would be accessing forms, reports and they would have option of entering cusotmer information and querying and changing information. The user which has option of viewing reports will only have option of seeing some customized reports.
2. Second query is that these six users would be addressing issues to each other regarding cusotmer issue. In this every response of the case should be stored in a table. i.e. like for customer x user1 said abc on 10th then user2 said cbf on 11th. so this would have history of case what was happeining in the matter.
I dont know how to go about this and if there is a easy solution. I dont want to use access security cause then all the six users would have security file.
Would apreciate your help and till now whatever responses i have seen in other forms they were quite helpful and did help me lot in understanding access.
Thanks to all who would be visiting this thread and taking pain in answering the query.
I'm new in access world. please help. I have many forms that control by On click command from the main form. One of the form (which is Calendar form), I like to have password protect in away that only the right ID or password would have access to edit this Calendar, If not users can only view it. Is this possible?, if it is can you please provide some code for me...Thanks in advance..
I have a password protected form that works fine. However, when you type in the password it can be seen on the screen. Is there a way I can change that so that when the password is typed in it can't be read (perhaps showing asterisks)?
This is what I'm using:
In ON CLICK event Dim PassWord As String PassWord = InputBox("Enter Password") If PassWord = "MYPassword" Then ' Open Form DoCmd.OpenForm "MYFormName" DoCmd.GoToRecord , , acNewRec Else MsgBox ("You're not authorized") End If