I must be going blind

[GraeagleBill]

I don't see the problem with the Select Case.

Private Sub Report_Open(Cancel As Integer)
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' Open main report and adjust display as indicated by which register is in
' effect and whether there are any highlighted transactions.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Me.lblRptPeriod.Caption = "The period selected can be observed by examining the Date and OB-Date columns"
Me.imIcon.Picture = DLookup("[IconFile]", "tblsettings")


'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
' Totals are displayed as sum(Debits) for Personal and Business, where the
' sum(Credits) are displayed for the creditcard registry.  Further, when
' transactions are "Highlighted", their totals are displayed independently
' and the totaling section of the report is expanded and separated from the
' list of transactions.
'*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
'  intBEIndex=: 0 "Personal", 1 "CreditCards" and 2 "Business"
Select Case intBEIndex
    Case 0, 2
        If Me.tbTotalDeb3HLt = 0 Then        'Any highlighted transactions?
            Me.lnTotal1.Visible = True       'NO
            Me.lblTotal1.Visible = True
            Me.tbTotalDeb1.Visible = True
        Else
            Me.lnTotal3.Visible = True       'Yes, we have highlighted transactions to report
            Me.tbTotalDeb3.Visible = True
            Me.tbTotalDeb3HLt.Visible = True
            Me.tbTotalDeb2.Visible = True
            Me.lblTotal2.Visible = True
            Me.lblTotal2HLt.Visible = True
            Me.tbTotalDeb3HLt.Visible = True
        End
    Case 1          '<<<<<<<<<<<<COMPILER SAYS I HAVE A "Case without Select Case"
        If Me.tbTotalCred3HLt = 0 Then        'Any highlighted transactions?
            Me.lnTotal1.Visible = True        'NO
            Me.lblTotal1.Visible = True
            Me.tbTotalCred1.Visible = True
        Else
            Me.lnTotal3.Visible = True        'Yes, we have highlighted transactions to report
            Me.tbTotalCred3.Visible = True
            Me.tbTotalCred3HLt.Visible = True
            Me.tbTotalCred2.Visible = True
            Me.lblTotal2.Visible = True
            Me.lblTotal2HLt.Visible = True
            Me.tbTotalCred3HLt.Visible = True
        End
End Select


End Sub

[June7]

End needs to be End If.

[pbaldy]

Here Bill, I'll do it for you.

[GraeagleBill]

I mentioned that I was probably going blind, perhaps a better phrase might be old and tired.......... GOOD GRIEF!