Gleich entgegen der Regel, dass man berechnete Werte nicht speichern soll, möchte ich einen berechneten Wert speichern. Denn dieser Wert stellt den Resturlaub eines Jahres da und wird für die nächsten Jahre gebraucht.
In meier Form mit Unterformular werden mir zu dieser Person alle aktuellen Urlaubsdaten angezeigt und im Textfeld im Unterformularfuß der Resturlaub angzeigt mit:
=nz([txtResturlaub])+[Jahresurlaub]-Summe(UrlaubZwischen(-übersichtliche parameter-))
Diesen Wert würde ich jetzt bei Änderungen direkt in meine Resturlaub-Tabelle speichern. Ich dache es wäre einfach und würde einfach so funktionieren:
Jedoch wird der Wert schon gespeichert, bevor er überhaupt im Textfeld aktualisiert wird.
Ich hätte den Wert auch in VBA berechnet. Weiß aber nicht genau ich ich das machen soll, da ich ja die Summe von den Unterformulardaten brauch.
Was schlagt ihr vor? Wenn das über DSum geht bitte ich um eine Erklärung. Danke
In meier Form mit Unterformular werden mir zu dieser Person alle aktuellen Urlaubsdaten angezeigt und im Textfeld im Unterformularfuß der Resturlaub angzeigt mit:
=nz([txtResturlaub])+[Jahresurlaub]-Summe(UrlaubZwischen(-übersichtliche parameter-))
Diesen Wert würde ich jetzt bei Änderungen direkt in meine Resturlaub-Tabelle speichern. Ich dache es wäre einfach und würde einfach so funktionieren:
Visual Basic-Quellcode
- Private Sub Form_AfterUpdate()
- Dim rs As DAO.Recordset
- Set rs = CurrentDb.OpenRecordset("tblResturlaub", dbOpenDynaset)
- rs.FindFirst ("[Personalnummer] = " & Parent.Personalnummer & " AND [Jahr] = " & Parent.txtJahr)
- Me.txtRestaktuell.Requery
- If rs.NoMatch Then
- rs.AddNew
- rs("Personalnummer") = Parent.Personalnummer
- rs("Jahr") = Parent.txtJahr
- rs("Resturlaub") = Me.txtRestaktuell
- rs.Update
- Else
- rs.Edit
- rs("Resturlaub") = Me.txtRestaktuell
- Debug.Print Me.txtRestaktuell
- rs.Update
- End If
- rs.Close
Jedoch wird der Wert schon gespeichert, bevor er überhaupt im Textfeld aktualisiert wird.
Ich hätte den Wert auch in VBA berechnet. Weiß aber nicht genau ich ich das machen soll, da ich ja die Summe von den Unterformulardaten brauch.
Was schlagt ihr vor? Wenn das über DSum geht bitte ich um eine Erklärung. Danke