Feldberechnung anhand einer Uhrzeit - Access 2013

Hallo, habe ein Problem und brauche eure Hilfe für Access 2013.

Ich habe drei Felder, und zwar Uhrzeit, BE und BEFaktor. Ich möchte erreichen, das bei einer Uhrzeit zwischen 6 und 12 Uhr und einer Zahl im Feld BE der BEFaktor auf 1,5 gestellt wird, bei einer Uhrzeit zwischen 12 und 16 Uhr und einer Zahl im Feld BE das Feld BEFaktor 0,8 und bei einer Uhrzeit zwischen 16 und 6 Uhr und einer Zahl im Feld BE der BEFaktor auf 1,2 gestellt wird.

Hat jemand eine Lösung für mich? Würde mich sehr freuen.

 

Von was redest du genau?
Arbeitest du gerade in einer Tabelle? -> Verwende ein Formular und führe die Berechnung in dem entsprechenden Formularfeld durch. Das reicht für die Anzeige. In der Tabelle gehört sowas nicht gespeichert.
Arbeitest du in einem Bericht? -> identisches Vorgehen wie im Formular. Per VBA kann man hier allerdings auch in der Report-Eigenschaft "Beim Formatieren" für Codeberechnungen verwenden.

 

Ich arbeite mit einem Einzelformular und nicht mit einer Tabelle. Die Felder sind Teile meines Diabetiker-Tagebuches. Ich will errechnen, wieviel Einheiten Insulin ich anhand der Uhrzeit für die gegessenen BE spritzen soll. Morgens (6o bis 12:00 Uhr) brauche ich für 1 BE 1,5 Einheiten Insulin,
mittags (12o bis 16:00 Uhr) für 1 BE 0,8 Einheiten und abends (16o bis 6:00 Uhr) 1,2 Einheiten. Anhand der Uhrzeit soll jetzt im Feld BE-Faktor die entsprechende Menge Insulin eingetragen werden und in einem weiteren Feld Insulin die benötigte Menge anhand der eingegebenen BEs.

 

Diabetiker und BE.... eben hat es Klick gemacht.

Ich würde das im Feld Uhrzeit in das Ereignis "Nach Aktualisierung" einbauen und das Feld BE-Faktor für die (manuelle) Eingabe sperren.
Könnte etwa so aussehen:

Code:

Private Sub Uhrzeit_AfterUpdate()
  Select Case Me.Uhrzeit.Value
     Case Is < 6 / 24 ' 00:00-05:59 Uhr
         Me.BEFaktor.Value = 1.2
     Case Is < 12 / 24 ' 06:00-11:59 Uhr
        Me.BEFaktor.Value = 1.5
     Case Is < 16 / 24 ' 12:00-15:59 Uhr
        Me.BEFaktor.Value = 0.8
     Case Else ' 16:00-23:59 Uhr
       Me.BeFaktor.Value = 1.2
 End Select
End Sub

Die Feldbezeichnungen Uhrzeit und BEFaktor müssen natürlich an die tatsächlichen Feldbezeichnungen angepasst werden.

 

Schönen Dank für die Hilfe. Das klappt schon mal ganz Prima. Jetzt sollte nur noch im Feld BEFaktor kein Wert erscheinen, wenn auch im Feld BE kein Eintrag vorhanden ist. Geht das auch?

 

Führe die Zuweisung zum Feld BEFaktor nur dann aus, wenn auch ein Wert in BE enthalten ist.
Ich gehe mal davon aus, dass hier Leer, 0 oder auch Null (sprich Nichts) enthalten sein kann.

Code:

If (NZ(Me.BE.Value,0)>0) Then
Select Case Me.Uhrzeit.Value
     Case Is < 6 / 24 ' 00:00-05:59 Uhr
         Me.BEFaktor.Value = 1.2
     Case Is < 12 / 24 ' 06:00-11:59 Uhr
        Me.BEFaktor.Value = 1.5
     Case Is < 16 / 24 ' 12:00-15:59 Uhr
        Me.BEFaktor.Value = 0.8
     Case Else ' 16:00-23:59 Uhr
       Me.BeFaktor.Value = 1.2
End Select
Else
  Me.BEFaktor.Value=Null
End If

Wenn das dan auch funktionieren soll, sobald im Feld BE eine Änderung durchgeführt wird, dann muss der Code dort auch im Ereignis "Nach Aktualisieren" eingefügt werden.
Anstelle von "Null" kann natürlich bei Bedarf auch der Wert "0" verwendet werden. Kommt ganz darauf an, ob das Feld BEFaktor Null erlaubt oder einen Zahlenwert verlangt.

 

Klasse, vielen Dank für die schnelle Hilfe. Es funktioniert alles so, wie es muss.