Form closing down on afterupdate

[Mattbro]

Hi All,
I have a form "FormKC"with a textbox "BoxNo". The user scans a barcode and the text and the afterupdate code runs a query in which the user name and scanned data is appended by the query to a table. The text is then set to " " (erased) and the process designed to continue...but every time I go to repeat the process, upon scanning, the form closes down. Can't see why. I have attached the code (has warning suppressors)

Private Sub BoxNo_AfterUpdate()
On Error GoTo ErrorHandler
DoCmd.SetWarnings False
  DoCmd.Hourglass True
DoCmd.OpenQuery "QryAllocateKC"
BoxNo.Value = ""
Me.Refresh
Exit_Handler:
  DoCmd.SetWarnings True
DoCmd.Hourglass False
Exit Sub
ErrorHandler:
Select Case Err
Case 2051
'do nothing
Case Else
MsgBox "An error was encountered" & vbCrLf & vbCrLf & _
"Description: " & Err.Description & vbCrLf & _
"Error Number: " & Err.Number, , "Error"
End Select
End Sub

Can anyone see what would make the form close?
Many thanks,
M

[ranman256]

Nothing should close the form.
but why do you run ME.requery?
if you set the text box, there's no need to refresh the form.
but you could comment out items to see which is crashing the form.

[Bulzie]

Are you sure the cursor is back on BoxNo field to do the 2nd scan? Could be something on Scanner settings also. Put a break point on the Docmd.setwarnings top line and step through the process F8 to see what it is doing.

Maybe do a Requery instead of Refresh or use both. Maybe set BoxNo to null instead of "".

[Missinglinq]

I agree with Bulzie about setting BoxNo to Null instead of a Zero-Length String...but as to the problem, the first thing that I'd do would be to comment out all of your error handling as well as the code turning warnings off and see what errors/messages pop up.

Also, the lines

DoCmd.SetWarnings True
DoCmd.Hourglass False

probably should be in the main body of the sub instead of in the ExitHandler...I believe an error would cause the ExitHandler to be bypassed, and Warnings would remain Off...ditto if an error is popped.

Linq ;0)>

[Mattbro]

Thanks for the tips everyone. Bulzie has identified the key problem-focus is moving to the close button. Will modify BoxNo to Null-thanks for the tip. Trying to get focus to stay on the textbox in question

DoCmd.OpenQuery "QryAllocateKC"
BoxNo.Value = Null
Me.BoxNo.SetFocus

The null is fine, but focus is still jumping to the close button. Have tried Forms!FormKC!BoxNo.SetFocus and that doesn't work either. Any ideas?
Thanks all,
M

[Bulzie]

Go to all the controls on your form (except BoxNo) and in the properties, change Tab Stop to "No". Also maybe put an "End" in line after the Me.BoxNo.SetFocus

[aytee111]

Set Close button with Tab Stop=No

[Missinglinq]

...Trying to get focus to stay on the textbox in question...

One of the many quirks, inherent in Access, is that when you're in the AfterUpdate event of a Control...the cursor isn't present in the Control...and you can't return it there by setting Focus on the Control!

What you have to do is to set Focus on another Control then set Focus back to the target Control.

So, something like this:

BoxNo.Value = Null
Me.AnyOtherControlName.SetFocus
Me.BoxNo.SetFocus

where AnyOtherControlName is just that...the name of any other Control that can have Focus!

Linq ;0)>

[Mattbro]

Hi all, many thanks for your input. The tab stop issue has solved it-thanks for your tip also, Missinglinq. M