Access 2010 Not Running an Access 2000 Database

Status
Not open for further replies.

KSReynolds

New Member
Joined
Aug 20, 2013
Messages
2
I have written a database in Access 2000 for a client. When it is copied to the Access 2000 machines, it runs fine. When it is copied to an Access 2010 machine, the logon form opens, but after the user enters in his login, nothing happens. No error message, just dead air. The after update of the password on the frm_login is

Private Sub txtPassword_AfterUpdate()
'Check to see if data is entered into the UserName combo box
Dim FirstName As String, LastName As String
If Len(Me.cboEmployee & "") = 0 Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployee.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If Len(Me.txtPassword & "") = 0 Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword.SetFocus
Exit Sub
End If
'Check value of password in tbl_UserAccess to see if this matches the value chosen in combo box
'DoCmd.Hourglass True
If Me.txtPassword.Value = DLookup("UserPassword", "tbl_UserAccess", "[UserName]= '" & Me.cboEmployee.Value & "'") Then
gbl_User = Me.cboEmployee.Value ' pass the username to the global user variable
'if the mainform is aleady open then close it before reopening.


DoCmd.OpenForm "frmSwitchboard1" ' Open the main form
Forms![frmSwitchboard1].LogonName = Me.cboEmployee
DoCmd.Close acForm, "frm_Logon" 'close the log on form
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtPassword.SetFocus
Me.txtPassword = ""
'If User Enters incorrect password 3 times database will shutdown
intLogonAttempts = intLogonAttempts + 1

If intLogonAttempts = 3 Then
MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!"
Application.Quit
End If
DoCmd.Hourglass False
End If
DoCmd.Hourglass False
End Sub



Can anyone understand why this code just does not appear to run?
 

Excel Facts

Formula for Yesterday
Name Manager, New Name. Yesterday =TODAY()-1. OK. Then, use =YESTERDAY in any cell. Tomorrow could be =TODAY()+1.
Cross-Posted here:
http://www.mrexcel.com/forum/micros...ase-save-access-2000-running-windows-7-a.html

I will close this thread - please continue in the other thread. @KSReynolds, please be have a look at rule numbers 7 and 8 about dupes and cross-posting - the main thing is that if a member is taking time to answer a question in one forum and the problem has already be answered in another thread it's something of a waste of time for them. Plus there may be valuable information in one thread, or a useful clue from someone else.
http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html
 
Upvote 0
Status
Not open for further replies.

Forum statistics

Threads
1,215,537
Messages
6,125,393
Members
449,222
Latest member
taner zz

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top