Re: Missing End If in Code ?? Where?
- From: RuralGuy <NoSpam@xxxxxxxxx>
- Date: Sat, 11 Jun 2005 20:07:15 -0700
"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
.
- Follow-Ups:
- Re: Missing End If in Code ?? Where?
- From: Van T. Dinh
- Re: Missing End If in Code ?? Where?
- References:
- Missing End If in Code ?? Where?
- From: Dave Elliott
- Missing End If in Code ?? Where?
- Prev by Date: Re: Missing End If in Code ?? Where?
- Next by Date: Re: Recalc or requery?
- Previous by thread: Re: Missing End If in Code ?? Where?
- Next by thread: Re: Missing End If in Code ?? Where?
- Index(es):
Relevant Pages
|