Compile error: End Select without Select Case

[Vasago]

I am getting a this compile error on line 22 and I do have the Select case and End Select.

Select Case [Booking Status]
Case 1
    DoCmd.OpenReport "Charter Order Form", wherecondition:="Bookings.ID='" & Forms![Charter Order Form]![ID] & "'"
Case 2
    If [Invoice #] = 0 Then
       tempinvoiceid = (DMax("Invoice #", "Invoices") + 1)
       Set db = CurrentDb.OpenRecordset("Invoices")
       db.AddNew
       db![Invoice #] = (DMax("Invoice #", "Invoices") + 1)
       db![Amount] = Me![Quote Price]
       db![Billed Date] = Now()
       db![Trip Date] = Me![Date]
       db![School] = Me.Client
       db![School ID] = Me.[School ID]
       db![Discription] = [Number of Buses] & _
         " Bus(es)From " & [Pickup Point Name] & _
         " To " & [Destination Name]
       If Trip_Type = "Field Trip" Then
          Else
           db![Route] = -1
       End If
       db.Update
       DoCmd.OpenReport "Invoice From Charter", _
          wherecondition:="[Invoice #] = " & _
            tempinvoiceid & ""
End Select

Does it have anything to do with the operations preformed in the cases?

[Luk3r]

This may not be what's causing it... but you are missing an End If for your first If statement.

[jimatqsi]

That most likely is causing it. You'll get an error similar to that whenever you forget a terminator for if/Then, Select Case, For/Next and With/End. Depends which one came first as to what particular error message you see.

Jim

[zmbd]

That's the ticket, the "IF" at line 5 doesn't have a matching "End IF" prior to line 26.

I've properly "stepped" your code.
>HOWEVER< the stepping is based on what you have coded and as related to how the functions relate (ie line 18 thru 21 - even though I'm certain you intended that "else" to be part of the outter if, I stepped it as though it belonged to the closer "if" construct)