How to make a form behave like an Inputbox 1

[davidoff123]

Hi,

I am using a loop in my procedure which pops up 3 Inputboxes. The loop waits until the the user fills in some values and continues to work with those values after that:

Do Until ...

'some code ...

name=Inputbox("Name of the employee: ", "name"
firm=Inputbox("Firm of the employee: ", "firm&quot
id=Inputbox("ID of the employee:", id&quot

'some code ...

Loop

How can I replace these 3 Inputboxes by 1 Form that causes the Loop to stop and wait for the values to be entered?

The problem is that the loop continues with the next iteration after opening a form e.g. with Docmd.Openform. However, the next iteration may be dependent on what the user has entered into the form.

Thanks for your help

 

[Chalco]

call the form specifying acModal as the last parameter to the openform command

The way I got around this was "On Close" to save the values to a global variable and then read the variable after the form returns. You can build checks into the form to ensure that the data is valid before you allow the exit to proceed

 

[jsteph]

I think acDialog is the parameter you need, Modal would be similar but it's a property of the form itself.
--jsteph

 

[davidoff123]

Thanks, works fine with acDialog as the parameter.

 

[ericksoda]

Thanks, jsteph. I had the same question, and this worked perfectly.

David