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?
Hallo,
falsch sind die Gänseriche um den Zahlenbereich...
Schreib folgende Funktion (die noch zu erweitern ist) in ein Standardmodul.
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])
Danke!!!