Close form error (1 Viewer)

[Gismo]

Hi,

i used below code to close a for if no record
I get a run time error 2585, This action can't be carried out while processing a form...
any reason why?

Code Tags Added by UG
Please use Code Tags when posting VBA Code
Please feel free to Remove this Comment
https://www.access-programmers.co.u...e-use-code-tags-when-posting-vba-code.240420/

Private Sub Form_Current()
    If Me.Recordset.RecordCount = 0 Then
        DoCmd.Close acForm, "admin", asSaveYes
        MsgBox "You do not have access to Admin", vbOKOnly, "Admin / Setup"
    End If
End Sub

 

[Ranman256]

You didn't say which line gave the error,
But I would put the MsgBox first,befor form close.
Once the form closes,the code vanishes too.

You can also put ON ERROR RÉSUMÉ NEXT, as the 1st line of code to ignore the error.

 

[Gismo]

You didn't say which line gave the error,
But I would put the MsgBox first,befor form close.
Once the form closes,the code vanishes too.

You can also put ON ERROR RÉSUMÉ NEXT, as the 1st line of code to ignore the error.

Sorry, the DoCmd close form gives error

 

[June7]

Why is form even open if you don't want it open without a record? Validate there is data before opening form.

There is no parameter of asSaveYes, there is acSaveYes. In my test, this typing error generates a variable not defined error.
AFAIK, this parameter really only works to save design edits from Design View.

Code following DoCmd.Close can still execute. Form and its controls and data will no longer be available.

 

[Gismo]

Why is form even open if you don't want it open without a record? Validate there is data before opening form.

There is no parameter of asSaveYes, there is acSaveYes. In my test, this typing error generates a variable not defined error.
AFAIK, this parameter really only works to save design edits from Design View.

Code such as MsgBox or Debug following DoCmd.Close can still execute. Form and its controls and data will no longer be available.

Not sure where the asSaveYes comes from, i used acSaveYes
I get the same error even when I only use DoCmd.Close

 

[June7]

Well, error message seems clear enough. Current event is processing. Can't close form while that event is processing.

Didn't answer my question nor respond to my suggestion.

 

[Gismo]

found the error
thank you

 

[Gismo]

Well, error message seems clear enough. Current event is processing. Can't close form while that event is processing.

Didn't answer my question nor respond to my suggestion.

Yes, thank you, did not quite understand the error, the form was opening while i was closing it

 

[Gasman]

Not sure where the asSaveYes comes from, i used acSaveYes
I get the same error even when I only use DoCmd.Close

View attachment 82110 View attachment 82111

That is not what the code that you posted shows, it shows asSaveYes?

 

[The_Doc_Man]

You gave us a peek at the code in post #5 and you did not have Option Explicit. Therefore, if you really DID have asSaveYes (as a typo), what you did was create a variable (of type Variant) named asSaveYes, probably with a value of 0. I looked it up. In that context, a value of 0 would be interpreted as acSavePrompt which probably means Access wanted to pop up a yes/no prompt for saving whatever it was saving.

It is probably not a good idea to omit "Option Explicit" in a code segment. It will take longer for the initial compilation if you are a sloppy typist like I am. But it will catch all spelling errors for you, which is a good thing.