Error in Code

[Lockrin]

Hello all

I have a button which prints a report based on criteria. It was working perfectly yesterday and today it doesn't like it. It's giving me the following error: "Return without GoSub"

The code I have is as follows:

Private Sub PrintDWG_Click()

On Error GoTo Err_PrintDWG_Click

Dim rptRound1 As String
Dim rptRound2 As String
Dim rptRectL As String
Dim rptRectW As String
Dim rptFlatL As String
Dim rptFlatR As String

rptRound1 = "Drawing - Round (1 Seam)"
rptRound2 = "Drawing - Round (2 Seam)"
rptRectL = "Drawing - Rectangular (Length)"
rptRectW = "Drawing - Rectangular (Width)"
rptFlatL = "Drawing - Flat Oval (Length)"
rptFlatR = "Drawing - Flat Oval (Radius)"

If Me.Type = "Round" And Me.RoundSeam = "1 Seam" And Me.Released = "-1" Then
DoCmd.OpenReport rptRound1, acViewPrint
ElseIf Me.Type = "Round" And Me.RoundSeam = "2 Seam" And Me.Released = "-1" Then
DoCmd.OpenReport rptRound2, acViewPrint
ElseIf Me.Type = "Rectangular" And Me.RectSeam = "Length" And Me.Released = "-1" Then
DoCmd.OpenReport rptRectL, acViewPrint
ElseIf Me.Type = "Rectangular" And Me.RectSeam = "Width" And Me.Released = "-1" Then
DoCmd.OpenReport rptRectW, acViewPrint
ElseIf Me.Type = "Flat Oval" And Me.FlatOvalSeam = "Radius" And Me.Released = "-1" Then
DoCmd.OpenReport rptFlatR, acViewPrint
ElseIf Me.Type = "Flat Oval" And Me.FlatOvalSeam = "Length" And Me.Released = "-1" Then
DoCmd.OpenReport rptFlatL, acViewPrint
ElseIf Me.Released = "0" Then
MsgBox "This Part has not been released!"
Else
End If

Exit_PrintDWG_Click:
Exit Sub



Err_PrintDWG_Click:
MsgBox Err.Description
Resume Exit_PrintDWG_Click


End Sub

Any Ideas?

[RuralGuy]

I don't see anything structurally wrong with the code. See it you have any bogus MISSING references.

[Lockrin]

Hmmmn, I don't know what the problem was... I didn't change anything but it seems to be working alright, for now. If it crashes any more I will look into any missing references. Thanks for your help RuralGuy

[RuralGuy]

An unhandled error can cause strange results on occasion. Checking for MISSING references just takes a second. http://www.accessmvp.com/djsteele/Ac...nceErrors.html