I don't see the problem with the Select Case.
Code:
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