Odd problem - Form won't close when opening new form using WHERE

Question

I have two forms (in question here). frmContactList and frmContactDetails. frmContactList is a datasheet list of last names, first names, and e-mail addresses. The idea (which works and hasn't been a problem so far) is that when you double-click either the last name or the first name, the form frmContactDetails is opened to the specific record chosen on frmContactList. All this works just fine. Where I'm having the trouble (annoyingly) is I want it to OPEN frmContactDetails then CLOSE frmContactList. OPEN works fine, close doesn't happen until I close frmContactDetails, though.
I BELIEVE the error is with the fact that I started with a "prefab" Access template and went to editing it from there. I didn't create this project from scratch. Won't make that mistake again. Thought I'd save time. Yeah right...

Here's the DblClick() coding I'm using for the Last Name (First Name will be the same once I figure out the bug:

NOTE: I commented out the Form.Dirty and Macro Error code because it's part of that messy "prefab" Access stuff.

Private Sub Last_Name_DblClick(Cancel As Integer)
On Error GoTo Last_Name_DblClick_Err

    On Error Resume Next
'    If (Form.Dirty) Then
'        DoCmd.RunCommand acCmdSaveRecord
'    End If
'    If (MacroError.Number <> 0) Then
'        Beep
'        MsgBox MacroError.Description, vbOKOnly, ""
'        Exit Sub
'    End If

    DoCmd.OpenForm "frmContactDetails", acNormal, "", "[ID]=" & ID, , acDialog
    DoCmd.Close acForm, "frmContactList"

Last_Name_DblClick_Exit:
    Exit Sub

Last_Name_DblClick_Err:
    MsgBox Error$
    Resume Last_Name_DblClick_Exit

End Sub

Here are a few pictures of the design.

Simple design.

Here frmContactDetails is opened (personal information is blacked out) showing frmContactList in the background not closed.

Try changing the order of those 2 lines. In other words, CLOSE then OPEN. — Brian M Stafford
– Brian M Stafford, Commented Apr 22, 2019 at 14:06
@HansUp, that's something I could try, but frmContactDetails won't always open FROM frmContactList. @Brian - tried that and frmContactDetails doesn't find the proper record and errors out on loading. — BeardedSith
– BeardedSith, Commented Apr 22, 2019 at 14:10

Olivier Jacot-Descombes · Accepted Answer · 2019-04-22 14:48:48Z

4

When you open a form with WindowMode:=acDialog, then the code stops at this code line until the opened form is made invisible or closed. Just drop this parameter.

DoCmd.OpenForm "frmContactDetails", View:=acNormal, WhereCondition:="[ID]=" & ID
DoCmd.Close acForm, Me.Name

Note: Use WindowMode:=acDialog if you need the data entered in a dialog form at the call site. In this case, don't close the dialog form with Me.Close but instead hide it with Me.Visible = False, then get its data through Forms!fdlgMyDialogForm!TheData.Value and finally close it at the call site with DoCmd.Close acForm, "fdlgMyDialogForm".

Closing the current form with Me.Name is more robust than specifying the name as string constant.

edited Apr 22, 2019 at 14:48

answered Apr 22, 2019 at 14:33

Olivier Jacot-Descombes

114k14 gold badges149 silver badges202 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Odd problem - Form won't close when opening new form using WHERE

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related