By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,647 Members | 1,124 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,647 IT Pros & Developers. It's quick & easy.

Object doesn't support this property or method

P: 24
Hello Access Experts....

One of my staff members gets this message when she tries to log into a database I created. The DB is housed on a server that she maps to (mapped network drive). Also, I split the DB. Is that the reason for the error?? Any ideas?
Apr 9 '08 #1
Share this Question
Share on Google+
7 Replies


mshmyob
Expert 100+
P: 903
This is usually an indication of something wrong in your code.

Need more information. Does the app work for everyone else?

Are you using the runtime or the full Access.

Anymore info would be helpful to diagnose.

cheers,

Hello Access Experts....

One of my staff members gets this message when she tries to log into a database I created. The DB is housed on a server that she maps to (mapped network drive). Also, I split the DB. Is that the reason for the error?? Any ideas?
Apr 9 '08 #2

P: 24
This is usually an indication of something wrong in your code.

Need more information. Does the app work for everyone else?

Are you using the runtime or the full Access.

Anymore info would be helpful to diagnose.

cheers,
The app works FINE for everyone else. But, she is the only one who has to map a drive. The others have the application on their server.
Are you using the runtime or the full Access?? Not sure what you mean by that. By my guess is full Access
Apr 10 '08 #3

mshmyob
Expert 100+
P: 903
OK post the code that is used to 'logon' as you mentioned in your first post. Since the user is not getting past the logon then something might be wrong with that code. Also indicate at what line the error occurs on since you are using the full Access.

I am assuming since the database is split that the BE is on the server. Just out of curiosity why does everyone have a front end (FE) on their own computer and this user does not?

cheers,

The app works FINE for everyone else. But, she is the only one who has to map a drive. The others have the application on their server.
Are you using the runtime or the full Access?? Not sure what you mean by that. By my guess is full Access
Apr 10 '08 #4

P: 24
OK post the code that is used to 'logon' as you mentioned in your first post. Since the user is not getting past the logon then something might be wrong with that code. Also indicate at what line the error occurs on since you are using the full Access.

I am assuming since the database is split that the BE is on the server. Just out of curiosity why does everyone have a front end (FE) on their own computer and this user does not?

cheers,
Expand|Select|Wrap|Line Numbers
  1. ' Name: mod_display_menu
  2. ' Function : display the switchboard after checking the access and password and password expiry date
  3. ' Date: 23/09/2007
  4.  
  5.  
  6. Option Compare Database
  7. Option Explicit
  8.  
  9. Public RptFlag As Integer
  10. Public adminflag As Integer
  11. Public operator As String
  12. Public rptnumber As Integer
  13.  
  14.  
  15.  
  16.  
  17.  
  18. Sub display_menu()
  19. On Error GoTo err_display_menu
  20.  
  21. ' at this stage the userId and access level has been checked
  22.  
  23.  
  24. Dim access_level As Integer
  25. Dim finish_Date As Date
  26. Dim port_syd As String
  27. Dim valid_user As Integer
  28. Dim check_user As Integer
  29. Dim password_period As Date
  30. Dim check_password As String
  31. Dim strmsg As String
  32.  
  33.  
  34. valid_user = 2
  35.  
  36. ' **********************************************
  37. ' validate user_id
  38. ' **********************************************
  39.  
  40. check_user = DCount("[user_id]", "tbl_users", "user_id=forms!frm_main!user_id")
  41. If check_user = 1 Then
  42. valid_user = 2
  43. Else
  44. valid_user = 0
  45. End If
  46.  
  47. ' **********************************************
  48. ' validate password
  49. ' **********************************************
  50.  
  51. If valid_user = 2 Then
  52. check_password = DLookup("[passwords]", "tbl_users", "user_id=forms!frm_main!user_id")
  53. If UCase(check_password) = UCase(Forms!frm_main!password) Then
  54. valid_user = 2
  55. Else
  56. valid_user = 1
  57. End If
  58.  
  59. End If
  60.  
  61. ' **********************************************
  62. ' validate access_level
  63. ' **********************************************
  64.  
  65. If valid_user = 2 Then
  66. access_level = DLookup("[access_level]", "tbl_users", "user_id=forms!frm_main!user_id")
  67. End If
  68.  
  69. Select Case valid_user
  70.  
  71. Case 0, 1
  72. strmsg = " Access Denied" & _
  73. vbCrLf & " Contact The Database Administrator if the problem persists. "
  74. MsgBox strmsg, vbCritical, " INVALID UserID or Password "
  75.  
  76. ' DoCmd.Quit
  77.  
  78. Case 2
  79. Select Case access_level
  80. Case 1 ' level1 menu
  81. ' validate password expiry
  82.  
  83. password_period = DLookup("[password_date]", "tbl_users", "user_id = forms!frm_main!user_id")
  84. If password_period < Date - 60 Then
  85. strmsg = " Your password expired. You must change your password"
  86. MsgBox strmsg, vbCritical, "Expired Password"
  87. DoCmd.OpenForm "frm_change_password", acNormal
  88. Else
  89. adminflag = 1
  90. operator = UCase(Forms!frm_main!user_id)
  91. DoCmd.OpenForm "mainform"
  92. End If
  93.  
  94. Case 2 ' level2 menu
  95. ' validate password expiry
  96.  
  97. password_period = DLookup("[password_date]", "tbl_users", "user_id = forms!frm_main!user_id")
  98. If password_period < Date - 60 Then
  99. strmsg = " Your password expired. You must change your password"
  100. MsgBox strmsg, vbCritical, "Expired Password"
  101. DoCmd.OpenForm "frm_change_password", acNormal
  102. Else
  103. adminflag = 2
  104. operator = UCase(Forms!frm_main!user_id)
  105. DoCmd.OpenForm "mainform"
  106. End If
  107.  
  108. Case Else
  109. strmsg = " ACCESS DENIED !! " & _
  110. vbCrLf & " Contact The Database Administrator if the problem persists. "
  111. MsgBox strmsg, vbCritical, "INVALID UserID or Password"
  112. End Select
  113.  
  114. End Select
  115.  
  116. exit_display_menu:
  117. Exit Sub
  118.  
  119. err_display_menu:
  120. MsgBox Err.decsription
  121. Resume exit_display_menu
  122.  
  123. End Sub
Apr 14 '08 #5

mshmyob
Expert 100+
P: 903
Ok .

First I would like to know the line number so you need to bypass your On Error Goto line.

Does the user in question get the opportunity to enter his/her user information?
Does the login screen popup?


cheers,

Expand|Select|Wrap|Line Numbers
  1. ' Name: mod_display_menu
  2. ' Function : display the switchboard after checking the access and password and password expiry date
  3. ' Date: 23/09/2007
  4.  
  5.  
  6. Option Compare Database
  7. Option Explicit
  8.  
  9. Public RptFlag As Integer
  10. Public adminflag As Integer
  11. Public operator As String
  12. Public rptnumber As Integer
  13.  
  14.  
  15.  
  16.  
  17.  
  18. Sub display_menu()
  19. On Error GoTo err_display_menu
  20.  
  21. ' at this stage the userId and access level has been checked
  22.  
  23.  
  24. Dim access_level As Integer
  25. Dim finish_Date As Date
  26. Dim port_syd As String
  27. Dim valid_user As Integer
  28. Dim check_user As Integer
  29. Dim password_period As Date
  30. Dim check_password As String
  31. Dim strmsg As String
  32.  
  33.  
  34. valid_user = 2
  35.  
  36. ' **********************************************
  37. ' validate user_id
  38. ' **********************************************
  39.  
  40. check_user = DCount("[user_id]", "tbl_users", "user_id=forms!frm_main!user_id")
  41. If check_user = 1 Then
  42. valid_user = 2
  43. Else
  44. valid_user = 0
  45. End If
  46.  
  47. ' **********************************************
  48. ' validate password
  49. ' **********************************************
  50.  
  51. If valid_user = 2 Then
  52. check_password = DLookup("[passwords]", "tbl_users", "user_id=forms!frm_main!user_id")
  53. If UCase(check_password) = UCase(Forms!frm_main!password) Then
  54. valid_user = 2
  55. Else
  56. valid_user = 1
  57. End If
  58.  
  59. End If
  60.  
  61. ' **********************************************
  62. ' validate access_level
  63. ' **********************************************
  64.  
  65. If valid_user = 2 Then
  66. access_level = DLookup("[access_level]", "tbl_users", "user_id=forms!frm_main!user_id")
  67. End If
  68.  
  69. Select Case valid_user
  70.  
  71. Case 0, 1
  72. strmsg = " Access Denied" & _
  73. vbCrLf & " Contact The Database Administrator if the problem persists. "
  74. MsgBox strmsg, vbCritical, " INVALID UserID or Password "
  75.  
  76. ' DoCmd.Quit
  77.  
  78. Case 2
  79. Select Case access_level
  80. Case 1 ' level1 menu
  81. ' validate password expiry
  82.  
  83. password_period = DLookup("[password_date]", "tbl_users", "user_id = forms!frm_main!user_id")
  84. If password_period < Date - 60 Then
  85. strmsg = " Your password expired. You must change your password"
  86. MsgBox strmsg, vbCritical, "Expired Password"
  87. DoCmd.OpenForm "frm_change_password", acNormal
  88. Else
  89. adminflag = 1
  90. operator = UCase(Forms!frm_main!user_id)
  91. DoCmd.OpenForm "mainform"
  92. End If
  93.  
  94. Case 2 ' level2 menu
  95. ' validate password expiry
  96.  
  97. password_period = DLookup("[password_date]", "tbl_users", "user_id = forms!frm_main!user_id")
  98. If password_period < Date - 60 Then
  99. strmsg = " Your password expired. You must change your password"
  100. MsgBox strmsg, vbCritical, "Expired Password"
  101. DoCmd.OpenForm "frm_change_password", acNormal
  102. Else
  103. adminflag = 2
  104. operator = UCase(Forms!frm_main!user_id)
  105. DoCmd.OpenForm "mainform"
  106. End If
  107.  
  108. Case Else
  109. strmsg = " ACCESS DENIED !! " & _
  110. vbCrLf & " Contact The Database Administrator if the problem persists. "
  111. MsgBox strmsg, vbCritical, "INVALID UserID or Password"
  112. End Select
  113.  
  114. End Select
  115.  
  116. exit_display_menu:
  117. Exit Sub
  118.  
  119. err_display_menu:
  120. MsgBox Err.decsription
  121. Resume exit_display_menu
  122.  
  123. End Sub
Apr 15 '08 #6

P: 24
Ok .

First I would like to know the line number so you need to bypass your On Error Goto line.

Does the user in question get the opportunity to enter his/her user information?
Does the login screen popup?


cheers,
You say something???
Apr 17 '08 #7

mshmyob
Expert 100+
P: 903
I did... hmmmm.

I think I asked you to bypass your On Error Goto line and run the app so we can see what line it fails on.

cheers,

You say something???
Apr 17 '08 #8

Post your reply

Sign in to post your reply or Sign up for a free account.