Error 0

D

DataMiner

Registered User.
Local time
Today, 18:29
Joined
Jul 26, 2001
Messages
336
Hi,
Any idea why my logerror function is intermittently logging err.description = {blank} and err.num=0, see stuff in bold near end of code below. I can't figure out why it would even get to the error handler without having an error number and description. Any ideas?

Private Sub JobComplete_AfterUpdate()
Dim strSetupName As String, dTime As Date
Dim ActualRunHrs As Double, StdHrs As Double
If errorhandlingon Then On Error GoTo ErrHandle 'added 11/13/06

If JobComplete = False Then
If MsgBox3("You are changing a completed job back to uncomplete. Are you sure???", "OK,Cancel", "Un-complete this job?", , , Normal, 30000, 2, True) = 2 Then Me.JobComplete = True
Form_Current
Exit Sub
End If


If (SMTSideQty = 2 And IsNull(ActualFinishTime2)) Or IsNull(ActualFinishTime1) Then
msgboxautoclosedialog "You must enter start and completion times!", "Missing times", 30000
JobComplete = False
Text22.SetFocus
Exit Sub
End If

If ActualRunQty <> RunQty And IsNull(ctlComments.Value) Then
msgboxautoclosedialog "You've entered a run quantity different from the scheduled run qty. Please explain in the 'reason / comments' area.", "Enter a reason", 30000
ctlComments.SetFocus
strSetupName = DLookup("smtsetupname", "Latestrevmaster1", "Noun='" & Me.Noun & "'")

Me.HrsPerRun = Me.ActualRunQty * DLookup("runsecsperunit", "SMT_ABC", "smtsetupname='" & strSetupName & "'") / 3600
JobComplete = False
Exit Sub
End If

dTime = NowCorrected()
If Text22.Value > dTime Or Text24.Value > dTime Or Text46.Value > dTime Or Text47.Value > dTime Then
msgboxautoclosedialog "Time can't be in the future!", "Time can't be in the future", 60000
JobComplete = False
Text22.SetFocus

Exit Sub
End If

If ActualStartTime1 > ActualFinishTime1 Or ActualStartTime2 > ActualFinishTime2 Or (Not IsNull(ActualFinishTime1) And IsNull(ActualStartTime1)) Or (Not IsNull(ActualFinishTime2) And IsNull(ActualStartTime2)) Then
msgboxautoclosedialog "Completion time must be later than start time!", "Completion time earlier than start time", 15000
'
JobComplete = False
Text22.SetFocus
Exit Sub
End If

If IsNull(ActualRunQty) Then
msgboxautoclosedialog "You must enter a run quantity!", "No run qty", 15000

JobComplete = False
Text19.SetFocus
Exit Sub
End If



If ActualRunQty = 0 Then
If MsgBox3("You are completing this job with a run qty of zero. Is this correct?", "Yes,No", "Run Qty of zero?", , , Normal, 30000, 2) = 2 Then
JobComplete = False
Text19.SetFocus
Exit Sub
End If
End If
'ok to here
If ActualRunQty > 2000 Then
If MsgBox3("You are completing this job with a run qty of " & Me.RunQty.Value & ". Run qty's above 2000 are rare. Is this correct?", "Yes,No", "Large Run Qty?", , , Normal, 30000, 2) = 2 Then
JobComplete = False
Text19.SetFocus
Exit Sub
End If
End If

ActualRunHrs = 24 * (ActualFinishTime1 - ActualStartTime1 + Nz(ActualFinishTime2, 0) - Nz(ActualStartTime2, 0))
'changed 10/3/06
StdHrs = DFirst("runtimemultiplier", "constants", "valuestream='" & Me.SMTLine.Value & "'") * Nz(DLookup("totalsecsperunit", "machinetimesperunit", "noun='" & Me.Noun & "'"), 60) * Me.ActualRunQty / 3600

If ActualRunHrs > StdHrs And (IsNull(Me.prob) Or Me.prob = 0) Then
msgboxautoclosedialog "Run time exceeds standard time. You must enter a problem code." & vbCrLf & _
"Standard time: " & getelapsedtime(StdHrs / 24) & vbCrLf & _
"Actual time: " & getelapsedtime(ActualRunHrs / 24), "Enter a problem code", 30000
JobComplete = False
Me.prob.SetFocus
Exit Sub
End If

If IsNull(Me.JobCompleteOperator) Then
msgboxautoclosedialog "You must enter an employee ID for the person completing the job", "Enter Emp ID", 30000
JobComplete = False
Me.JobCompleteOperator.SetFocus
Exit Sub
End If
'DoCmd.GoToRecord , , acNext
'changed 8/7/07
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Form_Current
Exit Sub
ErrHandle:
Select Case Err.Number
Case 2105 'cant go to next record, must already be at last record, so go to first instead
DoCmd.GoToRecord , , acFirst

Case Else
msgboxautoclosedialog "Error #" & Err.Number & " :" & Err.Description & vbCrLf & _
"Please notify Vickie.", , 30000
LogError Err.Description, "Actuals:JobComplete AfterUpdate", Err.Number
End Select
End Sub
Click to expand...
 
How can you read it without any indenting?
Code: 
Private Sub JobComplete_AfterUpdate()
   Dim strSetupName As String, dTime As Date
   Dim ActualRunHrs As Double, StdHrs As Double
   If errorhandlingon Then On Error GoTo ErrHandle   'added 11/13/06

   If JobComplete = False Then
      If MsgBox3("You are changing a completed job back to uncomplete. Are you sure???", "OK,Cancel", "Un-complete this job?", , , Normal, 30000, 2, True) = 2 Then Me.JobComplete = True
      Form_Current
      Exit Sub
   End If

   If (SMTSideQty = 2 And IsNull(ActualFinishTime2)) Or IsNull(ActualFinishTime1) Then
      msgboxautoclosedialog "You must enter start and completion times!", "Missing times", 30000
      JobComplete = False
      Text22.SetFocus
      Exit Sub
   End If

   If ActualRunQty <> RunQty And IsNull(ctlComments.Value) Then
      msgboxautoclosedialog "You've entered a run quantity different from the scheduled run qty. Please explain in the 'reason / comments' area.", "Enter a reason", 30000
      ctlComments.SetFocus
      strSetupName = DLookup("smtsetupname", "Latestrevmaster1", "Noun='" & Me.Noun & "'")

      Me.HrsPerRun = Me.ActualRunQty * DLookup("runsecsperunit", "SMT_ABC", "smtsetupname='" & strSetupName & "'") / 3600
      JobComplete = False
      Exit Sub
   End If

   dTime = NowCorrected()
   If Text22.Value > dTime Or Text24.Value > dTime Or Text46.Value > dTime Or Text47.Value > dTime Then
      msgboxautoclosedialog "Time can't be in the future!", "Time can't be in the future", 60000
      JobComplete = False
      Text22.SetFocus

      Exit Sub
   End If

   If ActualStartTime1 > ActualFinishTime1 Or ActualStartTime2 > ActualFinishTime2 Or (Not IsNull(ActualFinishTime1) And IsNull(ActualStartTime1)) Or (Not IsNull(ActualFinishTime2) And IsNull(ActualStartTime2)) Then
      msgboxautoclosedialog "Completion time must be later than start time!", "Completion time earlier than start time", 15000
      '
      JobComplete = False
      Text22.SetFocus
      Exit Sub
   End If

   If IsNull(ActualRunQty) Then
      msgboxautoclosedialog "You must enter a run quantity!", "No run qty", 15000

      JobComplete = False
      Text19.SetFocus
      Exit Sub
   End If

   If ActualRunQty = 0 Then
      If MsgBox3("You are completing this job with a run qty of zero. Is this correct?", "Yes,No", "Run Qty of zero?", , , Normal, 30000, 2) = 2 Then
         JobComplete = False
         Text19.SetFocus
         Exit Sub
      End If
   End If
   'ok to here
   If ActualRunQty > 2000 Then
      If MsgBox3("You are completing this job with a run qty of " & Me.RunQty.Value & ". Run qty's above 2000 are rare. Is this correct?", "Yes,No", "Large Run Qty?", , , Normal, 30000, 2) = 2 Then
         JobComplete = False
         Text19.SetFocus
         Exit Sub
      End If
   End If

   ActualRunHrs = 24 * (ActualFinishTime1 - ActualStartTime1 + Nz(ActualFinishTime2, 0) - Nz(ActualStartTime2, 0))
   'changed 10/3/06
   StdHrs = DFirst("runtimemultiplier", "constants", "valuestream='" & Me.SMTLine.Value & "'") * Nz(DLookup("totalsecsperunit", "machinetimesperunit", "noun='" & Me.Noun & "'"), 60) * Me.ActualRunQty / 3600

   If ActualRunHrs > StdHrs And (IsNull(Me.prob) Or Me.prob = 0) Then
      msgboxautoclosedialog "Run time exceeds standard time. You must enter a problem code." & vbCrLf & _
                            "Standard time: " & getelapsedtime(StdHrs / 24) & vbCrLf & _
                            "Actual time: " & getelapsedtime(ActualRunHrs / 24), "Enter a problem code", 30000
      JobComplete = False
      Me.prob.SetFocus
      Exit Sub
   End If

   If IsNull(Me.JobCompleteOperator) Then
      msgboxautoclosedialog "You must enter an employee ID for the person completing the job", "Enter Emp ID", 30000
      JobComplete = False
      Me.JobCompleteOperator.SetFocus
      Exit Sub
   End If
   'DoCmd.GoToRecord , , acNext
   'changed 8/7/07
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
   Form_Current
   Exit Sub
ErrHandle:
   Select Case Err.Number
      Case 2105   'cant go to next record, must already be at last record, so go to first instead
         DoCmd.GoToRecord , , acFirst

      Case Else
         msgboxautoclosedialog "Error #" & Err.Number & " :" & Err.Description & vbCrLf & _
                               "Please notify Vickie.", , 30000
         LogError Err.Description, "Actuals:JobComplete AfterUpdate", Err.Number
   End Select
End Sub
 
Hmm, what do you mean, "without any indenting"? When I view it, there is indenting to clarify the if-then statements. It looks pretty readable to me (but then again, I wrote it....) What would you have me do to make it more readable?
 
OH... now I see that you have quite possibly added the indenting for me!!! How embarrassing! Well.... thanks!
 
DataMiner said:
OH... now I see that you have quite possibly added the indenting for me!!! How embarrassing! Well.... thanks!
Click to expand...
Thanks to a free add-in called Smart Indenter. Are you running the Form's Current event in this sub? If so, what code is in the Current event that you are trying to execute?
 
Yes, I am running the form's on_current event:
Private Sub Form_Current()
If errorhandlingon Then On Error GoTo ErrHandle
If JobComplete = True Then
prob.Enabled = False
Text19.Enabled = False
JobCompleteOperator.Enabled = False
ctlComments.Enabled = False

Else
prob.Enabled = True
Text19.Enabled = True
JobCompleteOperator.Enabled = True
ctlComments.Enabled = True
End If





Exit Sub
ErrHandle: 'added 8/30/06
msgboxautoclosedialog "Error #" & Err.Number & ": " & Err.Description & vbCrLf & _
"Please notify Vickie!", "Error", 60000
LogError Err.Description, "Form Actuals On_current", Err.Number

End Sub
Click to expand...

PS-- About indenting, I will definitely take a look at the add-in. Meanwhile, my code looks nicely indented when I copy it into this post, but when I preview the post the indenting is gone....
 
Use the Code tags rather than the quote tags to preserve the indenting. It is the Octothorp "#" in the tool bar. It is a better practice to make a SubRoutine for the CurrentEvent code you posted and call that Sub from the Current Event and your JobComplete_AfterUpdate event rather that involking the Current event out of sequence. There could easily be other behind the scenes code associated with these Form events that is not exposed to you and you would not want to run.
 
Thanks, Will try using a subroutine rather than using form_current, and see how it goes.
 
I changed to using a subroutine rather than calling the CurrentEvent directly. Still getting the same error message:
err.description = {blank} and err.num=0

Any other ideas?
 
From a code page, try setting Tools>Options...>General Tab Break on All Errors and see if you can pin it down. You may have to walk the Call Stack to see how you got there.
 
You must log in or register to reply here.

Similar threads

A
Automation Error
Replies
10
Views
682
The_Doc_Man
The_Doc_Man
C
Getting a write conflict
Replies
5
Views
864
ChrisLeicester
C
essaytee
Why messagebox appears then closes on successful run of DoCmd.OutputTo....pdf
Replies
5
Views
817
Mark_
M
Jason Lee Hayes
Solved Open Outlook & check for new mail where search criteria is applied to the email subject line
Replies
19
Views
1,429
Jason Lee Hayes
Jason Lee Hayes
E
DLookup Function Alternative
Replies
19
Views
1,626
cheekybuddha
cheekybuddha

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom