Re: Missing End If in Code ?? Where?

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

"Dave Elliott" <dontgetshocked@xxxxxxxxxxxxx> wrote:


If vbYes = MsgBox("Do you want to print the customer's receipt?",
vbQuestion + vbYesNo, "Print Receipt?") Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
If (IsNull(Payment) = False) And (Balance) = 0 Then
DoCmd.OpenReport "InvoiceReport", acNormal, "",
"[TimeID]=[Forms]![TimeCards]![TimeID]"
If [Forms]![TimeCards]![BidDiscAmt] < DSum("Payment","TPaymentSub",
"TimeID = [Forms]![TimeCards]!TimeID") Then
Reports!InvoiceReport!QuoteInvLabel.Caption = "Credit Invoice"

[THERE SHOULD NOT BE A COLON AFTER THE NEXT ELSE!]
Else:
Reports!InvoiceReport!QuoteInvLabel.Caption = "Invoice"
End If
END IF
END IF

Dave,

Mike and Allan got it. I too see two missing END IF statements
plus an extra ":".

Sometimes just indenting makes the answer clear.

HTH

RuralGuy

.

Relevant Pages

  • Re: Todays CMOAWR
    ... my having written an issue of The Wahoo Gazette after Mike ... I'm not Mike McIntee. ... PSYCHIC IMPRESSION: Paul is wearing a suit with wide vertical stripes. ... Dave, however, has a tie with wide red and white diagonal stripes-- ...
    (alt.fan.letterman)
  • Re: Wahoo Gazette for Tuesday, April 12, 2011
    ... The Wahoo Gazette archive still grinds to a halt beyond August 2001. ... I'm not Mike McIntee. ... PSYCHIC IMPRESSION: Paul is wearing a suit with wide vertical ... Dave doesn't mention the gunman--he tells a Jimmy Buffett ...
    (alt.fan.letterman)
  • Help to complete 2003-04 topps traded and 2005-06 ud victory
    ... 15 Mike Vernon ... 183 Dave Gagner ... 202 Brian Bellows ... 268 Mark Osborne ...
    (rec.collecting.sport.hockey)
  • Re: Ask EU - PlusNet news server
    ... I'm sure if Dave ... > been or to now be a listener to the Archers - in fact many claim it a ... > Mike McMillan, ... > mike dot mcmillan at ntlworld dot com ...
    (uk.media.radio.archers)
  • help me to complete my opc premier 1993,94 thanks(around 150 card needed)
    ... 15 Mike Vernon ... 183 Dave Gagner ... 268 Mark Osborne ... 293 Alexei Gusarov ...
    (rec.collecting.sport.hockey)