?
Solved

VBA  RunTime Error 2494

Posted on 2011-02-16
9
Medium Priority
?
2,134 Views
Last Modified: 2012-05-11
I have a password prompt form with an "okay" button.
When that Okay button is clicked, the action needs to check the password attempt vs the actual password, close the prompt form, open the next form and go to a control.

This is my code. It is on the 'On click' event of the button.............

Private Sub cmdAdd_Click()
    Dim stDocName As String
    stDocName = "USER_ADD"
   
   
    If Me.PasswordAttempt.Value = Me.PASSWORD Then
        DoCmd.Close acForm, "SECURITY", acSaveNo
        DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, acWindowNormal
        Forms!USER_ADD!NAME_SHORT.SetFocus
    Else
        DoCmd.CancelEvent
        Forms!SECURITY!Message = "Password Incorrect"
    End If
   
End Sub

 vba image
I'm still learning vba and consider myself an amateur. Please tell me why this hates me so.
0
Comment
Question by:culpees
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 4
9 Comments
 
LVL 75
ID: 34911455
Not seeing the reason right off. Which Form is this code in?

mx
0
 

Author Comment

by:culpees
ID: 34911532
well, hey there.

The code is on the first form which is the password prompt form called "SECURITY".

The code is on the "Okay" button, 'on click' event, which would then open up the next form that requires restricted access.
This next form is called "USER_ADD". (it's a simple data entry form to add user access to the application.)

"SECURITY" password prompt form
0
 
LVL 75
ID: 34911577
can you upload ... code 'looks' ok ... ie syntax for DoCmd.OpenForm ...

mx
0
10 Questions to Ask when Buying Backup Software

Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.

 
LVL 75
ID: 34911807
fyi ... I have to leave work soon ...will be back online a bit later ..

mx
0
 

Author Comment

by:culpees
ID: 34912084
IDK. I made a fake mdb for you and tested it and it worked. I pulled in the applicable forms & tables. But I can't get it to work in my real one. I get several different errors at different places with my real one. I don't know what's going on.

I tried decompiling a copy of it and it messed it up. So I'm back to my original.

I've got to go get my kids now, so I'll try to attach something that is showing errors or even print screens later.
0
 
LVL 75
ID: 34912626
ok Mom :-)

mx
0
 

Author Comment

by:culpees
ID: 34943613
Had to put this aside for a bit. Business trip plus some.

Will come back to this and provide all the info you need in order to get this resolved. Sorry I can't do it now. I would LOVE to get this problem resolved!! Will be about a week before I can return to this.
0
 
LVL 75

Accepted Solution

by:
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform) earned 2000 total points
ID: 34944700
k
0
 

Author Comment

by:culpees
ID: 35043780
Okay. I'm back.

I created a dummy mdb of the precise objects in the database which were tied to the problem code to share here. When I tried recreating the error in the dummy db prior to sharing it, there was none. It worked perfectly.

So I recreated the whole bleepin' database by importing all objects into a blank one and whoolah! All the code compiled fine. The old db had been corrupt, I guess.

All that time chasing geese. So I'm off to create a new thread on a new problem. Yippee!
0

Featured Post

Get MySQL database support online, now!

At Percona’s web store you can order your MySQL database support needs in minutes. No hassles, no fuss, just pick and click. Pay online with a credit card.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

My attempt to use PowerShell and other great resources found online to simplify the deployment of Office 365 ProPlus client components to any workstation that needs it, regardless of existing Office components that may be needing attention.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question