Unexplained Exit of Access

**missinglinq** · Mar 27 '08, 04:21 PM

Don't know what to tell you, Ade, it works as advertised for me! I can only duplicate the behavior by putting DoCmd.Quit in the form's Form_Close event.

Sorry!

Linq ;0)>

**FishVal** · Mar 27 '08, 09:08 PM

Hi, Adrian.

It is really weird. I have only a couple of guesses.

did you try to explicitely pass form name as argument to DoCmd.Close method?
is there any code in OnClose event handler?
in step mode, does Access crash immediately after executing DoCmd.Close?
what will happen if you disable error trapping?

Regards,
Fish

**ADezii** · Mar 28 '08, 12:00 AM

Originally posted by NeoPa

I have form which handles Shift-Esc by calling a close of the form (See line #6 below).

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acShiftMask) <> acShiftMask Then Exit Sub
    On Error Resume Next
    Select Case KeyCode
    Case vbKeyEscape
        Call DoCmd.Close
    Case vbKeyUp
        Call DoCmd.GoToRecord(Record:=acPrevious)
    Case vbKeyDown
        Call DoCmd.GoToRecord(Record:=acNext)
    End Select
End Sub

Although identical code works fine from my cmdExit button, whenever this executes (from within the KeyDown event procedure) it causes the application (Access) to exit completely.

I'd be interested to hear of anything that can throw any light on the matter.

Running Access 2000 on Windows 2000 Server.

Hello NeoPa, like our esteemed colleague linq has stated - It works as advertised for me! I am leaning along the lines of our other esteemed colleague, FishVal in that although the code works as intended, the Unload(), Deactivate(), and Close() Events of the Form are obviously fired in that sequence. Anything in either one of those Events that cause cause an Exit from Access?

**ADezii** · Mar 28 '08, 12:27 AM

Originally posted by NeoPa

I have form which handles Shift-Esc by calling a close of the form (See line #6 below).

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acShiftMask) <> acShiftMask Then Exit Sub
    On Error Resume Next
    Select Case KeyCode
    Case vbKeyEscape
        Call DoCmd.Close
    Case vbKeyUp
        Call DoCmd.GoToRecord(Record:=acPrevious)
    Case vbKeyDown
        Call DoCmd.GoToRecord(Record:=acNext)
    End Select
End Sub

Although identical code works fine from my cmdExit button, whenever this executes (from within the KeyDown event procedure) it causes the application (Access) to exit completely.

I'd be interested to hear of anything that can throw any light on the matter.

Running Access 2000 on Windows 2000 Server.

Back again, NeoPa. Your gonna love this one. If your SHIFT+ESC sequence is off, namely if you press these Keys almost simultaneously, and it you have the Escape Property of a Command Button with a DoCmd.Quit in its Click() Event, you will exit Access and not just the Form. I know it's far fetched, but you must admit that it is a weird problem. (LOL).

**NeoPa** · Mar 28 '08, 10:29 AM

Right, I'm a bit limited for time right now (at work) so I'll just say that I will reply in more detail later. I appreciate all of your attention though.

Opening and closing of forms in my database is captured by a generic Form class module. This may well be the root of the problem, but I will explore more later (and post my findings of course).

@ADezii
I don't have that but I do have a similar button that simply closes the form. As it's in "Continuous Forms" mode though, the Escape key is unable to trigger from this. It's actually what I'm trying to reproduce. As I say though, only to close the form.

PS. I'll post the current version of my whole module simply for reference, but the code has changed in the procedure we're talking about.

**NeoPa** · Mar 28 '08, 10:30 AM

Reference Post:

Code:

Option Compare Database
Option Explicit

Private strJob As String
Private intOption As Integer

Private Sub Form_Open(Cancel As Integer)
    With Me
        strJob = ""
        If .Filter > "" Then strJob = Split(.Filter, "'")(1)
        .Caption = Replace(.Caption, "%J", strJob)
        .lblTitle.Caption = Replace(.lblTitle.Caption, "%J", strJob)
        .txtJob.DefaultValue = "'" & strJob & "'"
        Call SetDefaultStep
    End With
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acShiftMask) <> acShiftMask Then Exit Sub
    'In case record navigation goes beyond start/end of .Recordset
    On Error Resume Next
    Select Case KeyCode
    Case vbKeyEscape
        Call Me.cmdExit.SetFocus
    Case vbKeyUp
        Call DoCmd.GoToRecord(Record:=acPrevious)
    Case vbKeyDown
        Call DoCmd.GoToRecord(Record:=acNext)
    End Select
End Sub

Private Sub Form_AfterInsert()
    Call SetDefaultStep
End Sub

Private Sub SetDefaultStep()
    Me.txtStep.DefaultValue = Nz(DMax("[Step]", _
                                      "[tblJobTask]", _
                                      "[Job]='" & strJob & "'"), 0) + 1
End Sub

Private Sub cmdSwitch_Click()
    Dim blnOptionA As Boolean

    With Me
        blnOptionA = (Not .lblJob.Visible)
        .lblJob.Visible = blnOptionA
        .lblStep.Visible = blnOptionA
        .lblType.Visible = blnOptionA
        .lblTask.Visible = blnOptionA
        .lblMRFrom.Visible = Not blnOptionA
        .lblMRTo.Visible = Not blnOptionA
        .lblMsg.Visible = Not blnOptionA
        .txtJob.Visible = blnOptionA
        .txtStep.Visible = blnOptionA
        .txtType.Visible = blnOptionA
        .txtTask.Visible = blnOptionA
        .txtMRFrom.Visible = Not blnOptionA
        .txtMRTo.Visible = Not blnOptionA
        .txtMsg.Visible = Not blnOptionA
        If blnOptionA Then
            Call .txtStep.SetFocus
        Else
            Call .txtMsg.SetFocus
        End If
    End With
End Sub

Private Sub cmdDelete_Click()
    With Me
        If Not IsNull(.txtJob) Then
            'We allow for cancellation by operator
            On Error Resume Next
            Call DoCmd.RunCommand(acCmdDeleteRecord)
            On Error GoTo 0
            Call SetDefaultStep
        End If
        Call .txtStep.SetFocus
    End With
End Sub

Private Sub cmdExit_Click()
    Call DoCmd.Close
End Sub

Private Sub Form_Close()
    'Method must exist in order for container to handle event.
End Sub

**NeoPa** · Mar 28 '08, 10:40 AM

Originally posted by NeoPa

...
@ADezii
I don't have that but I do have a similar button that simply closes the form. As it's in "Continuous Forms" mode though, the Escape key is unable to trigger from this. It's actually what I'm trying to reproduce. As I say though, only to close the form.
...

Not quite correct - I had to set the Cancel property to False on that button as it was triggering when I simply wanted to cancel an amendment. Normally my cmdExit buttons have it set to True.

**ADezii** · Mar 28 '08, 11:16 AM

Hello NeoPa, there are a couple of conventions that you frequently use that I am a little confused on, and also curious about. I am specifically referring to the two items listed below. If you don't mind, can you please explain the logic:

Case 1==> ([use of (1)] ==> Split(.Filter, "'")(1)
Case 2 ==> [Replaceable Parameters]?
[CODE=vb]
.Caption = Replace(.Captio n, "%J", strJob)
.lblTitle.Capti on = Replace(.lblTit le.Caption, "%J", strJob)[/CODE]
Thanks for bearing with me.

**NeoPa** · Mar 28 '08, 11:19 AM

Update:
I tried adding the close in on the KeyUp event, but still had the same problem :(

**NeoPa** · Mar 28 '08, 11:36 AM

Originally posted by ADezii

Hello NeoPa, there are a couple of conventions that you frequently use that I am a little confused on, and also curious about. I am specifically referring to the two items listed below. If you don't mind, can you please explain the logic:

Case 1==> ([use of (1)] ==> Split(.Filter, "'")(1)
Case 2 ==> [Replaceable Parameters]?
[CODE=vb]
.Caption = Replace(.Captio n, "%J", strJob)
.lblTitle.Capti on = Replace(.lblTit le.Caption, "%J", strJob)[/CODE]
Thanks for bearing with me.

Certainly, as far as I am able.

I think the line you're referring to is :
Code:
```
If .Filter > "" Then strJob = Split(.Filter, "'")(1)
```
The .Filter string would typically be something like :
[Job]='PriceUpd'
The Split() function returns an array (lowest element numbered 0) of string type variants where each of the characters in the string matching that supplied (') acts as a separator.
In this case an array would be created :
0 = "[Job]="
1 = "PriceUpd"
2 = ""
As with any array (including an array returned by a function), appending an index in parentheses selects that individual element.
So, Split(.Filter, "'")(1) == "PriceUpd"
When using strings with variable items in, I prefer to build it up in exactly that way. It makes it clearer to someone reading the code that there is a string required, and a part of it is variable (the %parameter bit) but that the main string is like a template and is unchanging. The data in both the .Caption and .lblTitle.Capti on properties (See lines #11 to #12) is :
tblJobTask (%J)
So, from the earlier code - they are both set to :
tblJobTask (PriceUpd)

NB. The code was not provided with any expectation that anyone would try to debug from that. It is purely and simply for reference purposes. If anyone had any questions about what else was there, it may be answered simply by checking through the code.

**Scott Price** · Mar 28 '08, 02:42 PM

Not sure how this might be happening with your situation, but when using the .Close method, if the optional objecttype and objectname arguments are left blank, Access closes the active window.

Is it possible that the focus is being passed from the form to the database window in your setup, thus causing the active window to be the database, which then is closed?

As a simple test you could try adding the objecttype and objectname arguments to see if that changes the behavior.

Regards,
Scott

**ADezii** · Mar 28 '08, 03:46 PM

Originally posted by NeoPa

Certainly, as far as I am able.

I think the line you're referring to is :
Code:
```
If .Filter > "" Then strJob = Split(.Filter, "'")(1)
```
The .Filter string would typically be something like :
[Job]='PriceUpd'
The Split() function returns an array (lowest element numbered 0) of string type variants where each of the characters in the string matching that supplied (') acts as a separator.
In this case an array would be created :
0 = "[Job]="
1 = "PriceUpd"
2 = ""
As with any array (including an array returned by a function), appending an index in parentheses selects that individual element.
So, Split(.Filter, "'")(1) == "PriceUpd"
When using strings with variable items in, I prefer to build it up in exactly that way. It makes it clearer to someone reading the code that there is a string required, and a part of it is variable (the %parameter bit) but that the main string is like a template and is unchanging. The data in both the .Caption and .lblTitle.Capti on properties (See lines #11 to #12) is :
tblJobTask (%J)
So, from the earlier code - they are both set to :
tblJobTask (PriceUpd)

NB. The code was not provided with any expectation that anyone would try to debug from that. It is purely and simply for reference purposes. If anyone had any questions about what else was there, it may be answered simply by checking through the code.

Curiosity satisfied, thanks NeoPa.

**NeoPa** · Mar 28 '08, 04:01 PM

I'm afraid not Scott. This is definitely calling the close from within the form itself. The focus is in one of the bound controls when Shift-Esc is pressed.

As I only recently discovered (while working on this form) that I didn't need to include the ObjectType:=acF orm and ObjectName:=Me. Name parameters if I was only interested in closing the current form, I have most of my code still with these parameters set. In this particular instance I did try both ways, for both the KeyDown event procedure and the cmdExit Click procedure.

It was worth checking, and I did. Unfortunately no joy there either.

**NeoPa** · Mar 28 '08, 04:25 PM

Originally posted by ADezii

Curiosity satisfied, thanks NeoPa.

Anytime ADezii.

Did you find the reasoning made sense to you?
Do they sound like techniques you may want to take up?

Unexplained Exit of Access

Unexplained Exit of Access

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment