Select-Case

[AMB]

Hallo!

Ich habe da ein Problem mit der Select-Case-Anweisung.
Gerne würde ich mir aus berechneten Durchschnittsnoten den Notentext anzeigen lassen.

Hier meine erste Idee:
    Select Case Reports(Bericht).Report("txtNoteSchnitt")
      Case "1,00 To 1,49"
        Reports(Bericht).Report("txtNote") = "sehr gut"
     etc.
    End Select

Hat leider nicht funktioniert!

Meine zweite Idee:
    Select Case Reports(Bericht).Report("txtNoteSchnitt")
      Case "1"
        Reports(Bericht).Report("txtNote") = "sehr gut"
     etc.
    End Select

Hierbei habe ich das Zahlenformat der Durschnittsnote auf "Allgemeine Zahl, ohne Dezimalstellen" eingestellt.
Hat aber leider auch nicht funktioniert!

Was mache ich falsch? Hat jemand eine Idee?

[DF6GL]

Hallo,


falsch sind die Gänseriche um den Zahlenbereich...




Schreib folgende Funktion (die noch zu erweitern ist) in ein Standardmodul.

Code [Auswählen] Erweitern

Public Function fktNotentext(varNote) As String

if IsNull(varNote) then Exit Function

Select Case varNote
Case 1# To 1.49
fktNotentext = "Sehr gut"

Case 1.5 To 2.49
fktNotentext = "Gut"

Case 2.5 To 3.49
fktNotentext = "Befriedigend"

' entsprechend erweitern

Case Else
fktNotentext = "Note unbekannt"

End Select

Im Steuerelementinhalt des Berichtsfeldes "txtNote" wird die Funktion etwa so aufgerufen:


=fktNotentext([txtNoteSchnitt])

[AMB]

Danke!!!