Supportnet / Forum / Datenbanken
Berechnen im Bericht
Frage
Hab mal de Frage.
Ich hab einen Bericht, der mir meine Durchschnittsnote ausgibt. Nun möchte ich automatisch berechnen lassen, dass wenn die Durchschnittsnote zwischen 1,5 und 2,5 in einem Anderen Feld im Bericht Gut erscheint (also abhängig von dem Feld der Durschschnittsnote)
Kann mir da jemand helfen?
DANKE !!!!
Antwort 1 von El Bobbele
Hallo KrümelMaus!
Trage in die Steuerelementinhalt-Eigenschaft des "Gut"-Textfelds folgende Zeile ein:
Gruss
El Bobbele
Trage in die Steuerelementinhalt-Eigenschaft des "Gut"-Textfelds folgende Zeile ein:
=Wenn([TextfeldMitNote] Zwischen 1,5 Und 2,5;"Gut";"")Gruss
El Bobbele
Antwort 2 von KrümelMaus
Danke
Und wie ist der Syntax, wenn außerdem auch bei 2,5-3,5 als "befriedigend" ausgegeben wird?
Vielen DANK :-) für die Antwort !!
Und wie ist der Syntax, wenn außerdem auch bei 2,5-3,5 als "befriedigend" ausgegeben wird?
Vielen DANK :-) für die Antwort !!
Antwort 3 von El Bobbele
Moooment!
Bevor du nun tröpfchenweise noch mehr Notenkonstellationen vom Stapel lässt, solltest du dir jetzt darüber im Klaren sein, welche Kombinationen du sonst noch brauchst. Ich helfe zwar gerne, aber ich sehe es nicht ein, ständig nachbessern zu müssen, weil sich die - bereits von Anfang an bekannten - Anforderungen ständig ändern. ;-)
Bis zu einem gewissen Grad kann die Wenn()-Funktion verschachtelt werden, aber dann wird es unübersichtlich. Je nachdem, wieviel du davon willst, sollte irgendwann mal eine VBA-Funktion eingesetzt werden.
Gruss
El Bobbele
Bevor du nun tröpfchenweise noch mehr Notenkonstellationen vom Stapel lässt, solltest du dir jetzt darüber im Klaren sein, welche Kombinationen du sonst noch brauchst. Ich helfe zwar gerne, aber ich sehe es nicht ein, ständig nachbessern zu müssen, weil sich die - bereits von Anfang an bekannten - Anforderungen ständig ändern. ;-)
Bis zu einem gewissen Grad kann die Wenn()-Funktion verschachtelt werden, aber dann wird es unübersichtlich. Je nachdem, wieviel du davon willst, sollte irgendwann mal eine VBA-Funktion eingesetzt werden.
Gruss
El Bobbele
Antwort 4 von KrümelMaus
hmmmm
Das wollt ich anfangs auch machen, aber wenn ich die Sache im Code machen will muss ich immer einen Wert (der über eine Abfrage in den Bericht geschickt wird [mittelwert errechnet]) aus dem bericht verwenden.
Aber, wie bekomme ich den den errechneten Wert aus dem Bericht in den Code????????
Gruss
KrümelMaus
Das wollt ich anfangs auch machen, aber wenn ich die Sache im Code machen will muss ich immer einen Wert (der über eine Abfrage in den Bericht geschickt wird [mittelwert errechnet]) aus dem bericht verwenden.
Aber, wie bekomme ich den den errechneten Wert aus dem Bericht in den Code????????
Gruss
KrümelMaus
Antwort 5 von El Bobbele
Hallo KrümelMaus!
Du kannst Funktionen über die Steuerelementinhalt-Eigenschaft des Textfeldes aufrufen und auch gleichzeitig einen Wert übergeben:
Weil ich heute morgen mit dir geschimpft habe, folgt hier eine passende Funktion, von der ich vermute, dass du sie genauso brauchst. *g*
In das betreffende Textfeld (Steuerelementinhalt-Eigenschaft) brauchst du demnach nur noch einzutragen:
Gruss
El Bobbele
Du kannst Funktionen über die Steuerelementinhalt-Eigenschaft des Textfeldes aufrufen und auch gleichzeitig einen Wert übergeben:
=MeineFunktion([FeldImFormular])Weil ich heute morgen mit dir geschimpft habe, folgt hier eine passende Funktion, von der ich vermute, dass du sie genauso brauchst. *g*
Public Function NotenText(Note As Variant) As String
If Not IsNull(Note) Then
If Note >= 1 And Note < 1.5 Then
NotenText = "Sehr gut"
ElseIf Note >= 1.5 And Note < 2.5 Then
NotenText = "Gut"
ElseIf Note >= 2.5 And Note < 3.5 Then
NotenText = "Befriedigend"
ElseIf Note >= 3.5 And Note < 4.5 Then
NotenText = "Ausreichend"
ElseIf Note >= 4.5 And Note < 5.5 Then
NotenText = "Mangelhaft"
ElseIf Note >= 5.5 And Note <= 6 Then
NotenText = "Ungenügend"
Else
NotenText = "Ungültige Note!"
End If
Else
NotenText = vbNullString
End If
End FunctionIn das betreffende Textfeld (Steuerelementinhalt-Eigenschaft) brauchst du demnach nur noch einzutragen:
=NotenText([FeldMitNotenwert])Gruss
El Bobbele