"The code running has been interrupted."

[Bresart]

Hi, i have a form for printing a report that includes an index, for that first i export the report and after i delete the exported file. The code is:

DoCmd.OutputTo acOutputReport, "repGeneral_pager", acFormatSNP, CurrentProject.Path & "\temp1.snp", False

DeleteFile ("" & CurrentProject.Path & "\temp1.snp")


The time between exporting and deleting is about 1 to 2 min, in that time the hourglass pointer is shown.

If i press the Ctrl+Pause keys several times, a window with title Microsoft Visual Basic appears, saying The code running has been interrupted.

Is there any way of handling that avoids the window popup?

Thanks in advance.

 

[ck1999]

If you want to stop the code then why execute it?

ck1999

 

[JoeAtWork]

Umm, maybe stop doing that CTL+Pause thing?

 

[Bresart]

Thanks ck1999 JoeAtWork. I don't want to stop the code, i do want to avoid errors for third users. The status bar informs about pressing Ctrl+Pause for cancelling the page formatting of a report before opening it.

 

[ck1999]

try this before your docmd line

dim temp as variant
Temp = SysCmd(acSysCmdClearStatus)

This might remove the status bar info.

I think you have two options
1. remove the status bar from saying press ctl+pause
2. capture the keystroke to prevent code from stopping

ck1999

 

[Bresart]

Thanks ck1999. The control with the focus when this happens is a command button, i have added in the KeyDown event of the command button the code

If KeyCode = vbKeyControl Then
KeyCode = 0
End If


but the control key keeps being enabled.

Is there another way of handling the keys Ctrl+Pause?

 

[ck1999]

You can respond to specific keystrokes in the form's KeyDown, KeyPress, and KeyUp events. You can prevent a control from receiving keystrokes you've responded to, and prevent the keyboard events from occurring for the control, by setting the KeyCode argument to 0 for both the KeyDown and KeyUp events, and setting the KeyAscii argument to 0 for the KeyPress event. You must set all three arguments to 0 if you don't want the control to receive the keystrokes.

url:

http://msdn.microsoft.com/archive/d...e/en-us/office97/html/output/F1/D2/S5A16B.asp

ck1999

 

[Bresart]

Thanks ck1999.

I have included:

Private Sub Comand46_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then
KeyCode = 0
End If
End Sub

Private Sub Comand46_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then
KeyCode = 0
End If
End Sub

Private Sub Comand46_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyControl Then
KeyAscii = 0
End If
End Sub


but the Ctrl key keeps enabled. Is there anything wrong or omitted?

 

[PHV]

I'd use this in the KeyDown and KeyUp event procedures:
If (Shift And acCtrlMask) > 0 Then
KeyCode = 0
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[maxhugen]

Have you set the form's KeyPreview property to Yes?

Max Hugen
Australia