Detail: ToDo-Liste mit Hilfe von Zusatztabellen / Aufgabe erstellen

20.05.2009 - ToDo-Liste mit Hilfe von Zusatztabellen / Aufgabe erstellen

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.20
' In diesem Makro soll eine neue Aufgabe in die Zusatztabelle geschrieben werden.

Option Explicit
If Not ActiveForm.Fields("neue_Aufgabe").Value = Empty Then
'Variablen für den Eintrag setzen
Dim ToDo_Nummer
ToDo_Nummer = Application.GlobalCounter(1)
Dim Aufgabe
Aufgabe = ActiveForm.Fields("neue_Aufgabe").Value

' Zusatztabelle laden
Dim oRelation
Set oRelation = ActiveAddress.Relations("offene_ToDo")

' Daten in die Zusatztabelle schreiben
With oRelation.Add
.Fields("zB_Nummer").Value= ToDo_Nummer
.Fields("zB_Aufgabe").Value= Aufgabe
.Fields("zB_eingetragen_am").Value= now
.Fields("zB_eingetragen_um").Value= now
.Fields("zB_eingetragen_von").Value=Application.ActiveUser.Fullname
End With

ActiveForm.Fields("neue_Aufgabe").Value = Empty
Else

MsgBox "Bitte erst den Aufgabentext eingeben, damit eine Aufgabe eingetragen werden kann."
End If

Makro-Samples:
Makro - Neue Aufgabe
Makro - Aufgabe erledigt
Makro - Aufgabe anzeigen

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl