Form 1 code continues to run when opening popup/modal form2

[ssissons]

I have two forms - Form1 and Form2. Form2 is defined with Popup and Modal properties set to Yes. When I use the following -



stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Set rstIssues = CurrentDb.OpenRecordset("SELECT DISTINCT * FROM Issues WHERE TTP_No = " & lngSelectedTTP)

With rstIssues

Form2 is not displayed, and the Form1 code continues thru the Set and With. I thought if a Form2 is set to Modal/Popup, it would be displayed, and the code in Form1 would wait until Form2 is closed. Is that not the case? That is what I need it to do, because the field lngSelectedTTP is populated in Form2.

Sorry, this is Access 2007.

[pbaldy]

I would use acDialog in the window mode argument of OpenForm.

[John_G]

Hi -

pbaldy is right - Access tends to ignore the modal/popup settings when you open the form through VBA, and you have to use acDialog mode. Doing that will pause the code as you expect.

John

[ssissons]

Still not getting Form2 to show.

And now, a new problem has surfaced. I have the following code for an Exit button.

Private Sub cmdExit_Click()
DoCmd.Quit acQuitSaveAll

End Sub

I copied it from another database. When I click on the Exit button in the other database, Access is completely closed. No problem. When I click on the Exit button in my new database, I get this :

Same code, different databases (both created with Access 2007), different results. Why?

More on this - I get this error on anything that has [Event Procedure] on an event. Even the On Load event for the form. In the Form_Load code, I don't have any code. It is empty. And, I still get this error. And, to top it all off, all of these buttons were working, early this morning.

I have tried closing/re-opening Access. Created a blank database, and imported the old into it. Nothing worked.

[ssissons]

Can anybody give me a solution, or at least, point me in direction of the solution?

[John_G]

Hi -

It's bit of a shot in the dark, but might you have a code error somewhere?

Open any code module, then from the menu, select Debug - Compile.

I have seen compile errors lead to totally misleading error messages.

HTH

John

[pbaldy]

You might also try decompiling the db.

[ssissons]

That did it! I found the problem - I was trying to use a field type of DateTime. Apparently, VBA doesn't like that.

Thanks, John_G! And everyone else, too.

[ssissons]

But, wait! Now, back to the original issue (See original post.) - I am still unable to get the called form to display, and pause the code in Form1.

stDocName = "TTP_Find"
DoCmd.OpenForm stDocName, , stLinkCriteria, , , acDialog
Set rstIssues = CurrentDb.OpenRecordset("SELECT DISTINCT Requestor, Status, ShortDescription, LongDescription, Priority, System, AssignedTo FROM Issues WHERE TTP_No = " & lngSelectedTTP)

With rstIssues
txtTTP_No = CStr(lngSelectedTTP)
txtRequestor = .Requestor
cboStatus.Value = .Status
txtShortDescription = .ShortDescription
txtLongDescription = .LongDescription
cboPriority.Value = Priority
cboSystem.Value = .System
txtAssignedTo = .AssignedTo
End With

It doesn't display the "TTP_Find" form, but continues on and stops in the With, on the highlighted field, displaying



I have used both - * and the fields explicitly listed. They both give this error. But, that IS the name in the table, and in the RecordSet. NOW what am I doing wrong?

[pbaldy]

It would be

!Requestor

Does the form open if you double click on it from the nav pane? Is there code running in the open event that may stop it from opening?

[John_G]

Hi -

Just to elaborate on pbaldy's note -

With each new version, Access has become less and less tolerant of using rstIssues.Requestor vs rstIssues!Requestor. Sometimes it works, sometimes not.

You should always make it a practice to use the ! whenever you refer to a recordset member or Form control (Forms!FormName!Controlname or Me!Controlname)

Try putting a msgbox confirmation in the On Open event of the second forn to confirm the code actually is running. As pbaldy suggested - is there code in the second form that maight be canceling the on open or on load?

[ssissons]

Ok, both forms are showing now. Back to the original problem again - Form 1 code is proceeding instead of pausing, while Form 2 has the focus. Form 2 is being called like this -

stDocName = "TTP_Find"
DoCmd.OpenForm stDocName, , , , , acDialog

[pbaldy]

That looks correct; try turning off the modal/popup settings of the form.

[ssissons]

Tried turning off the modal/popup settings - same result as having them on.

[pbaldy]

Can you post the db here?