' 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 aus einer offenen Aufgabe, eine erledigte Aufgabe werden
' Dazu muss ein Eintrag ausgewählt werden
' dieser wird in die Zusatztabelle erledigt eingetragen
' und zum Schluss aus der offenen ToDo gelöscht

Option Explicit

If Not ActiveForm.Fields("Aufgabe_Nummer").Value = Empty Then

	'Variablen für den Eintrag setzen
    Dim Aufgabe_Nummer
    	Aufgabe_Nummer = ActiveForm.Fields("Aufgabe_Nummer").Value
	
	' Zusatztabelle und Datensatz laden
	Dim oRelation, oEntry
	Set oRelation = ActiveAddress.Relations("offene_ToDo")
		For Each oEntry in oRelation
			If oEntry.Fields("oTD_Nummer").Value = Aufgabe_Nummer Then
				' Daten in die Zusatztabelle schreiben
				Dim oRelation1
				Set oRelation1 = ActiveAddress.Relations("erledigte_Aufgaben")
					With oRelation1.Add
						.Fields("eTD_Nummer").Value				= oEntry.Fields("oTD_Nummer").Value
						.Fields("eTD_Aufgabe").Value				= oEntry.Fields("oTD_Aufgabe").Value
						.Fields("eTD_eingetragen_am").Value		= oEntry.Fields("oTD_eingetragen_am").Value
						.Fields("eTD_eingetragen_um").Value		= oEntry.Fields("oTD_eingetragen_um").Value
						.Fields("eTD_eingetragen_von").Value		= oEntry.Fields("oTD_eingetragen_von").Value
						.Fields("eTD_erledigt_am").Value			= now
						.Fields("eTD_erledigt_um").Value			= now
						.Fields("eTD_erledigt_von").Value		= Application.ActiveUser.Fullname
					End With
				' Bestehenden Eintrag aus der Zusatztabelle löschen
				oRelation.Remove(oEntry.Id)
			End If
		Next

	ActiveForm.Fields("Aufgabe_Nummer").Value = Empty
	
Else
	MsgBox "Bitte erst die Aufgabennumme eingeben, damit eine Aufgabe als erledigt werden kann."
End If