Form not bcoming modal as expected

[Middlemarch]

 DoCmd.OpenForm "frmPending", acFormDS, , , , acDialog
    
    Stop

With the Form open I expected code execution to Stop until the Form was Closed, but it continues immediately to the Stop Instruction
Form Properties are set To Modal and Popup.
What am I doing wrong that sees this happen ?

[moke123]

could it be datasheet view?

The form isn't a pop-up form in Design view or Datasheet view, and also isn't if you switch from Datasheet view to Form view.

https://learn.microsoft.com/en-us/of...ess.form.popup

[Middlemarch]

Yes, it was datasheet view. Bit of a shame, and I suppose no other method exists to halt code execution until the Form is closed?

[moke123]

I suppose no other method exists to halt code execution until the Form is closed?

Depends on what you want to do. I assume you want to open the form, do something, then run some code when the form closes.

You could possibly use withevents and a custom event. Make sure your pop up has the HasModule property set to yes.

This is aircode. It all goes in your calling form. Edit the name of popup as needed.

Dim WithEvents MyForm as access.form

Private sub SomeButton_Click()

     Docmd.OpenForm "YourPopUpFormName"

     Set MyForm = Forms("YourPopUpFormName")

     MyForm.OnClose = "[Event Procedure]"

End Sub

Private Sub MyForm_Close()

     'Run your code here.

Set MyForm = Nothing

End Sub

EDIT: I should also tell you don't open as dialog, set the modal property of the pop up to yes.

[moke123]

Here's an example using withevents for a form, a textbox, and a command button

[Middlemarch]

Thanks vey much, about to try it in my db. I was not aware of WithEvents.

[CJ_London]

Try putting your datasheet form as a subform to another form and open that instead?