' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.20
' Version für AG-VIP_SQL - Grutzeck Software GmbH

' 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("oTD_Nummer").Value				= ToDo_Nummer
			.Fields("oTD_Aufgabe").Value				= Aufgabe
			.Fields("oTD_eingetragen_am").Value		= now
			.Fields("oTD_eingetragen_um").Value		= now
			.Fields("oTD_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