Modules & VBA :: Adding Maximum Amount Of Login Attempts
Feb 26, 2015
I have built a login form that works fine currently with the exception of login attempts. The current features are
1) Checks login is in users table.
2) Ensures the user status is not blocked in the table.
3) Sends the user to the correct page based on their authorisation in the user table.
What i need to do now is
1) Allow the user to enter the incorrect password 3 times and on the 4th time it will say "Too many login attempts. Your user access has been blocked."
2) Update their status as blocked in the users table.
My Current code is below.
Private Sub LoginButton_Click()
Dim Useraccess As String
Dim Userstatus As String
If IsNull(Me.LoginUsernameText) Then
MsgBox "Please Enter Username", vbInformation, "Username Required"
Me.LoginUsernameText.SetFocus
[Code] ....
I have tried 6 different codes to try and add this and i cant get any of them to work.
I have One table(and designed form from it) in which i have recording the daily transactions(it is like a daily book). Daily transactions took place like Purchase of items of Amount 45, sale=70, sold on account=100 etc.
What problem i am facing is: I would like to Add Cash In Hand amount and would like to show it on my form. When day end I would like to move remaining cash In Hand on separate column of that date. The next day i would like to take the previous Remaining Cash in Hand as Cash In Hand at Start for next date and so on.
How many users can an access database support? I'm setting up an app accross 3 workstations but each has multiple users. There may be as many as 1000 records a day entered. Can an access database handle this or do I need to switch to sql server?
I have made a basic form and use it a log on screen. This requires the user to in put a user name and a password before gaining access to the main database.
The background to the form is a table where the users details are entered including the i enter the user name and password.
Is there any way to add a counter that is only visible in the table, so I can report on the different users.
I have a table of hours that have been worked by employees for each day of the week
[moh] (Monday's hours),[tuh],[weh],[thh],[frh],[sah],[suh] data eg (this is how I would like it to be inputted into the table) 7:24:00,7:24:00,7:24:00,7:24:00,7:22:00,0:00:00,0: 00:00
This equates to 36:58:00
I have tried
Total Hours: [moh]+[tuh]+[weh]+[thh]+[frh]+[sah]+[suh]
but I am struggling to get what I want in the right format.
How to record the initial data or a formula to format the end result.
I have 250 separate worksheets with a lot of data to put into Access. Problem is the data is 120,000 rows in each worksheet and a lot of duplicate date eg..DATE, NAME, TIME,are some of the column headings and there are multiple rows with same DATE or NAME. That is just how I received the data. I would like to transfer all records into Access as quickly and efficiently as possible.
I have a subform in columns that has a list of invoices bound together by the site number on the form there is a Expense code that runs 51 to 95.
On another tab I want to add all the invoices for a expense code together and display the total amount
Below is an example of invoices
IDSite CodeInvoice DatePOInvoiceContractorInvoice AmountExpense Code 10289S20/09/2013 346603410Dj Commercial Cleaning Ltd 25.2362A 20289S28/09/2013 346061141Platinum Landscapes 240.0055A 30289S03/09/2013 353112021Clean And Green 167.0063A 40289S02/08/2013 353112015Clean And Green 174.0063A 50289S19/08/2013 111115271Southern Electric 189.5679A 60289S19/08/2013 346061121Platinum Landscapes 240.0055A 70289S02/06/2013 353112009Clean And Green 160.0063A 80289S02/05/2013 353112003Clean And Green 181.0063A
Hi Everyone!, appreciate if I could get some expert help. A little background: I have an Employee form/table that links to a JobHistory subform/table. The subform shows relevant details for the Emps current Position/Job by way of the EndDate of the JobHistory not being complete (Null). This is acheived by way of a CurrentJob query. One of the details of the current job is the Division and accompanying DivisionID. I want to store the DivisionID into a field on the Employee Table.I have spent most of today researching Post's, in lots of forums, for the use of DLookup. while It took we hours to get my head around, and I had success on simple models. ...And here's the rub, I'd like to know if I can do the following and test for the Null EndDate to get the DivisionID?my code goes like this and returns an invalid result:=DLookUp("[DivisionID]","tblJobHistory","[EmployeeID] = ' " & [EmployeeID] & " And " & [EndDate] & "Is Null" & " ' ")I'm sure the end bit's not right, but I'm losing focus. It's loaded in the control source property of an unbound text box (at the moment):(
I'm using VBA and XML to send emails from my db to a legitimate mail server (Mandrill).
The mail server will accept any number of receipients in one go.
I'm using an SQL string to build up my recipients into one large string (phil@test.com; fred@test.com etc). This works well as it builds them list at about 50 per second.
The issue I have is that I get an error saying 'Too many recipents'.
I am trying to make a report in which I can see the amount of money that I have to pay weekly to an employee. To explain myself clearer, I have different rates for each employee. For example:
NameNormalPayRateVacationPayRateSickPayRateOvertimePayRateStandbyPayRate John Smith$15$10$15$30$8 Ken Jonson$10$8$10$20$8
I am doing this in a query. So what I want to be able to do is, for example, take 4 hours that the employee worked at NormalPayRate and multiply it. But if tomorrow the employee worked at a different rate, for example 3 hours overtime, I want those 3 hours multiplied by OvertimePayRate.
The way I saw it on my Google researches, is that they have only one rate and the amount will be [SumOfHours]*[Rate]. But how can I tell my query to skip, for example, one rate because the employee didn't work at that rate that day. So I can have different amount for the different rates.
By the way, entering the information I can divide at what rate the employee worked x day. So if the employee work 6 hours at regular, and later on 4 hours at standby, I have those information separated in my table.
Results that I am getting: I can easily get the amount in money multiplying the whole hours by a rate, so my result in my report will be multiplied by the same rate.
I would like to create a custom pop-up Message when one attempts to add a duplicate record.
Currently, I have a default pop-up message when you try to add a duplicate record. I set the field as Indexed= yes(No Duplicates) which generates a default pop-up message but it is technical and wordy. I would like to be able to simplify the wording to just let the user know not to add a duplicate record.
I have two numbers, i need to calculate how much percentage of one is the other. E.g
num_1 = 100 num_2 = 10 percent = 10%
Users enter a dollar amount (retainer) and my code should calculate the percent of the total proposal amount.
Actual Code
Private Sub cmdSubmit_Click() Dim intProposalTotal As Double 'if i use interger i get "overflow" error intProposalTotal = Nz(DLookup("ProposalTotal", "qryPropsalTotalForRetainer", "proposal_id=" & Me.proposal_id), 0)
[Code] .....
billing_retainer_percent is formatted to Percent with 0 decimals. In the actual table Type - Number, Format - Percent, Field Size - Single. What i get is 100% instead of 10%.
Dim db As DAO.Database Dim rs As DAO.Recordset, i As Integer, ii As Integer Set db = CurrentDb Set rs = db.OpenRecordset("PatientPrescriptions1") ii = [RefillAmount] For i = 2 To ii
[Code] .....
However I am trying to make it decrease the value in [RefillAMount] each time it loops through the addnew function and I can't figure out how to do the rows keep saying the same number:
If I put Refill 3 it creates 2 extra rows and all these rows now say Refills = 2. What I want it to say is
I have a ms access application in Front End and linked tables to sql server 2008 r2 in back end.. every time I open my application the linked tables ask to me for the user and password of the sql server user of the odbc conection. I want to connect to my sql database without login every time the user open the application, I know that can be possible if I start session from vba code...
I have access 2010, I currently have a database in place and operational. What I am wondering is there a way to have a form come up whenever someone opens access and asks for a password and login name. Also I would like to have a 2 tier system. One for Admins and the other for users with limited access.
I have a table called 'Klanten' which contains the rows 'password' and 'login' (and several rows not needed for this form)
So I'm trying to make a login form which first checks if something is entered (this part of the code seems to work).
Private Sub Knop13_Click() 'Check to see if data is entered into Username If IsNull(Me.Username) Or Me.Username = "" Then MsgBox "gelieve een login in te voeren.", vbOKOnly, "Required Data" Me.Username.SetFocus
[Code] ....
But from then on i seem to have some issues.. The part of the code underneath seems to only work for the first 'login' and 'paswoord' in my table called "Klanten".
-Username is the name for the field where they enter their 'login'. -Password is the name for the field where they enter their 'paswoord'
If Username.Value <> DLookup("[login]", "Klanten", "[Username]='" & Username & "'") Then MsgBox "Invalid Username. Please try again.", vbOKOnly, "Invalid Entry!" Exit Sub End If
If Password.Value <> DLookup("[wachtwoord]", "Klanten", "[Password]='" & Password & "'") Then MsgBox "Invalid Password. Please try again.", vbOKOnly, "Invalid Entry!" Exit Sub End If
Then as last part i would like to goto another form called 'Mainmenu' if both the Login and the Paswoord is correctly entered in the fields Username and Password. Here i have the most issues as this doesn't seem to do anything at the moment
If Password.Value = DLookup("[wachtwoord]", "Klanten", "[Username]='" & Username & "'") And Username.Value <> DLookup("[login]", "Klanten", "[Password]='" & Password & "'") Then DoCmd.OpenForm "Mainmenu" End Sub
I have an access 2010 database with an initial form for user login. After selecting their login, users go to the main tabbed navigation form. On the first tab, I have form with a dashboard as a subform containing a field that says "Welcome" with the user's name (obtained from the login). My problem is, users have to click on the subform for the name field to update. How to have the name automatically populate when the login form closes.
I am doing a login form for my database using online references and videos.
Below is the code for my login form.
Private Sub Form_Load() Dim Security As Integer Me.txtUser = Environ("USERNAME") If IsNull(DLookup("UserSecurity", "Userslist_table", "[UserLogin]='" & Me.txtUser & "'")) Then MsgBox "No Usersecurity set up for this user. please contact the Admin", vbOKOnly, "Login info"
[Code] ....
End Subi am facing problem for run-time error type mismatch '13': i have listed below field names which is used in above coding.
UserSecurity_table [SecurityID] is Autonumber field [SecurityLevel] is Text field
Userlist_table [UserID] is autonumber field [Username] is text field [Userlogin] is text field [Usersecurity] is text field [Password] is text field
I need to separate Users and admin on login so that the admin can go to admin form and users to specific form using vba access. Here is my login code
Private Sub cmdLogin_Click() 'Check to see if data is entered into the password box If IsNull(Me.cboUserName) Or Me.cboUserName = "" Then MsgBox "You must enter a Password.", vbOKOnly, "Required Data" Me.cboUserName.SetFocus
where I can find VBA for (Tracking User LogIn/LogOut) I have tried researching to no avail.I just need a simple code to track users logging date & time in and out of my DB.When they click on the icon on the desktop id opens the DB to login screen with username & password then into the DB.
I have been searching for info with users & permission levels. I have ready a lot about ULS (User Level Security) which doesnt seem to be my answer as I do not have admin rights and I believe it is not suitable with Access 2010.
Basically I have an 2010 Access database which is used by my department as a project management tool. It has various tables, forms, queries & reports, I have created a table with user names & passwords and a login form. So when the databases opens the login form is launched & the users selects their user name & enters their password, then the main menu is shown.
Everything works really well, but as the moment there is no difference between all the users. All I want to do is to be able to make one of the Logins read only, ie if the Reviewer is logged in they can see & read every form and run every report but they can not make any edits.
I have recently started a project and become stuck already. I have a login form created that works (code below). What i want to do is allow access to the users of 1-7 in table (level of access) which will determine which page they view after logging in. IE if the have Access in table "Users" as "1" then when they log in the will see a form thats called L1. Same with 2,3,4,5,6 & 7.
Code: Private Sub LoginButton_Click() If IsNull(Me.LoginUsernameText) Then MsgBox "Please Enter Username", vbInformation, "Username Required"
I've tried to add some basic login (not really security) to my database so that when a different name is entered into the login box a different form is opened.
I got this working but the login form stays in foreground and I can't click anything behind it and can't get to the design view to change any properties of anything.
I've also changed this login form to the startup item so it always loads when i start the database.
Is there way to get back to the design view or do i have to start again from my backup?
