Modules & VBA :: How To Get Login Form To Reappear After 10 Minutes
Mar 12, 2014If the database sits dormant or unused for 10 minutes the login window needs to reappear for a possible new user.
View RepliesIf the database sits dormant or unused for 10 minutes the login window needs to reappear for a possible new user.
View RepliesI 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...
View 2 Replies View RelatedI 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.
Is this even possible to accomplish?
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 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 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"
[Code].....
Basically I have a table setup where Time Fields are stored. What I need to do is in a Query, have the difference of two Time Fields calculated, and then displayed on a Report. Here's what I have so far...
Table
- Start Time
- End Time
Query
Difference Time: DateDiff("n",[Start Time],[End Time])
All that works fine and shows up on the report, except for the fact that the time is showed in straight minutes, so for a difference of 1:30 minutes, it just shows 90 minutes. I need to make it so that on the report in the Difference Time Text Box, it's showed as 1:30 instead of 90.
I tried putting the following in the Control Source for the Difference Time Text Box on the report, but it returns an error.
=[Difference Time] 60 & Format([Difference Time] Mod 60, ":00")
I am looking to lock my database until the user puts in the correct credentials.
I have already put the form on Pop Up and Modal. They can still select the "X" in the top right of the window.
I'm new to Access and I'm using Access 2010.
I would like to be able to click a button on a form in my data base and login to a website using my username and password.
The manual login, requires two clicks after username and password, "Login" and "Click to continue"
I have tried many solutions found on the internet, none work for me. One forum reply was to send me a link to another site and it was for Excel. Is the code the same? Didn't work anyway.
From the website I want to login to, I have copied the code into a Word doc from the "inspect element" to work out the names of the fields I'm trying to put my username and password into. (see attached)
I would also like to be able to use Google Chrome as my web browser if possible?
Can i make an html of login form, whose data is saved in access as back end. I am curious to know. but of course simultaneous saving is considered yes in here...
View 1 Replies View RelatedI 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
Hi,
I think I'm in trouble. I don't know what I have done to my database, right now, when I open it, the menu bar doesn't appear. The tool bar appear but not the menu bar. And this is globle, I have try to create a new database and it is the same thing, no menu bar. Want can I do to reappear this tool bar?
Please help,
Le888
How can I convert hours and minutes to minutes as an Integer?
For example, convert 2:15 to 135.
Any help is greatly appreciated.
I have the following code for hours worked by staff over a 24hr period. However, I want to calculate staff pay by using their hours worked. The table I am using is populated with the minutes i.e. 270 but I want this field to display 3.5 hrs. I have initially got round this by using a calculated field in the table [Hoursworked]/60*[StaffPay] but this is not an ideal fix. Can I add something to the code below to display the hours to 2 decimal places.
Code
Dim ilHoursWorked
ilHoursWorked = IIf(CDate(Me.txtStartTime) < CDate(Me.txtFinishTime), DateDiff("n", CDate(Me.txtStartTime), CDate(Me.txtFinishTime)), 1440 - DateDiff("n", CDate(Me.txtFinishTime), CDate(Me.txtStartTime)))
I have to write piece of code to achieve the following:
1. When the Form gets opened then timer will start.
2. It will fire BtnClose_click event automatically after 10 minutes if there is no activity for 10 minutes.
3. Whenever BtnSave is clicked by the user then reset the timer.
I want to make delay, for example 2 minutes when the code is within the loop.
Example
Code:
For i = 0 To 100
Debug.Print i
'Before go to the next to make the delay
Next
I am writing the following piece of code to be called again and again after 30 min. But I need to do invisible mouse move to stop screen saver occurring so i want to sendkeys after every 5 minutes. The Sub abc is in module and everything works except stopping screensaver from occurring.
Code:
Private Sub UserForm_Initialize()
'Update the Barcodes printed today
Call CommandButton1_Click
'Update batches to be scanned / batches scanned today
Call CommandButton3_Click
[Code] ....
I have a function that formats minutes to "hh:mm:ss" but its doesnt work if minutes is equal to or greater than 1440 minutes/24 hrs.
Code:
Forms![frmTasksTimer]!estimate_time = FormatTime(Forms![frmTasksTimer]!amount_left, Forms![frmTasksTimer]!Rate)
Code:
Function FormatTime(Amount As Double, Rate As Double) As String
Dim x As String
x = CStr(Round(Amount / Rate * 60))
FormatTime = Format(x / 1440, "hh:mm:ss")
End Function
How can i modify this code to accommodate time that exceed 1440 minutes?
I am using a DLookup to default a value in my TextBox. This text box has an event attached to it that updates a table when a different value is entered.
I am having difficulty in getting the default value to reappear when I change my criteria.
For instance Manufacturer is Ford
Colour is default Black
I Change the colour to red
now I change Manufacturer to Audi
I need Default colour to go back to Black
The Lookup Table says Black its just that the default value only seems to run once, first time in and never again unless i exit the database and reopen it.
I have tried adding
Form.Repaint
form.Refresh
Form.Requery
to my afterupdate query
One of the directors of the company I work for would like to have a large screen display the current status of jobs that my database stores. To cut a long story short the table he is interested in is called tblJobsLogging and is updated manually by our laboratory on a regular basis as jobs are completed using a form linked to a query in turn linked to that table.
Think fast food chain order monitor. He wants to be able to look up from his desk and see the progress directly in front of him at any point.
Is there any way that I can have an access form displaying these records in a datasheet view which continuously refreshes every X seconds / minutes or updates as a record is updated in the underlying table?
I have a database which has a table for the quotes prepared, each record has a quote amount. In a query linked to that table I have the ability to get just a specific month view which shows all totals in that month. I want to calculate a grand total for the amounts shown in quote amount:
Record 1 : 100.00
Record 2 : 100.00
Record 3 : 50.00
Grand total : 250.00
Then I want to display this grand total on a form which is visable on a screen based in the office that has an auto refresh on it so after 2 minutes any new records added to the table will increase the grand total on the form on the screen.
I have worked out how to do the totals bit, but now I need getting this figure (I.e. 250.00) on a form without having to run the query and have it looking in the background.
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.
View 2 Replies View RelatedI 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
[Code] .....
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.
View 9 Replies View RelatedI 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.