Select Case 2

[TimTDP]

In Access 2000 I have the following:

Declarded in a module
Public strReportReference As String
Public strReportCommonName as string

In Form
Select Case strReportReference
Case Not IsNull(strReportReference)
strReportCommonName = "Common Report"

Case strReportReference <> ""
strReportCommonName = ""
End Select

If strReportReference = "" the select case works.

If strReportReference = "Test", the select case does not work.
Any ideas why?

 

[Eupher]

I think you should not re-use the variable you are evaluating in the Select Case in the individual Case clauses. Also, both cases test for the same value (i.e. something not equal to a null string in strReportReference), so there's no point to the Select Case.

HTH,

Ken S.

 

[AccessGuruCarl]

Hi TimTDP,

Try this If Statement...

In Form

If IsNull(strReportReference) Then
strReportCommonName = ""
Else
strReportCommonName = "Common Report"
End If

Carl


AccessGuruCarl
Programmers helping programmers
you can't find a better site.

 

[TheAceMan1]

How are ya TimTDP . . .

I'd expect your code to work if Nulls were accounted for.
Try this:

[blue]   SelCase Trim(strReportReference & "")
      Case <> ""
         strReportCommonName = "Common Report"
      Case Else
         strReportCommonName = ""
End Select[/blue]

See Ya! . . . . . .