Run-time error 2501 the Open form action canceled.

[shabyr]

Database is mdb, but using access 2007. Now getting the error 2501. See my code:
Private Sub PASSWORD_LostFocus()
Dim rst As Recordset
Dim Pswd As String * 10
Dim Entry As String * 10
Entry = Left(Me("PASSWORD"), 10)

Set rst = CurrentDb().OpenRecordset("tblPASSWORD")
If IsNull(Left(Me("PASSWORD"), 4)) Then
MsgBox ("ENTER A CORRECT PASSWORD or 'RETURN'")
Me.Password = " "
Me.Password.SetFocus
End If


Do Until rst.EOF
If IsNull(Left(rst("PASSWORD"), 10)) Then GoTo KEEP_GOING
Pswd = Left(rst("PASSWORD"), 10)
If Pswd = Entry Then
rst.CLOSE
DoCmd.OpenForm ("frmTABLEMAINTENANCE")
Exit Sub
End If
KEEP_GOING:
rst.MoveNext
Loop
MsgBox ("ENTER A CORRECT PASSWORD or 'RETURN'")
Me.Password = " "
Me.Password.SetFocus

End Sub
Private Sub RTRN_Click()
DoCmd.CLOSE
End Sub

[Rawb]

According to Google, this error can happen if the Form you're trying to open has VBA code that runs when it opens and encounters an error. It can also happen if there are compilation errors on the Form you're trying to open, even if the Form doesn't run anything.

Try Compiling your code to check for VBA errors in other Forms and see what you find.

[shabyr]

This is what happened when complied:

[jscriptor09]

I recommend finding what is DownTime. This error is something you would get if you are acalling a function and the function is expecting an argument. Maybe the intent is call DownTime(totdt) !!!

[Rawb]

What is DownTime?

Also, Functions need to have a return value data type specified. Your Function headers should look something like this:

Function MachTime(DC1, DT1, DC2, DT2, DC3, DT3) as Integer

If the Functions aren't going to return a value, then they should be declared as Subs instead:

Sub MachTime(DC1, DT1, DC2, DT2, DC3, DT3)

[shabyr]

The problem is that this database has been fine. I have a copy of it in 2007 that I have been working on to get all the bugs out, but have not touch the mdb vesion, so what would cause this now? My production leaders are unable to enter their shift reports, I have to fix this.

[Rawb]

That, I couldn't tell you. It's possible the database has just become corrupt...

Edit: I think I've got it figured out. . . Try changing "DownTime" to "MachTime" and see what happens.

[shabyr]

I did change the Downtime to Machtime. I had to comment out a few expression, and now it's working. I pray that all the function still work? Will have to wait and see.
Thanks!