' 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 offene Aufgabe angezeigt werden 

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 laden
	Dim oRelation, oEntry
	Set oRelation = ActiveAddress.Relations("offene_ToDo")
		For Each oEntry in oRelation
			If oEntry.Fields("oTD_Nummer").Value = Aufgabe_Nummer Then
				Dim Aufgabe
					Aufgabe = oEntry.Fields("oTD_Aufgabe").Value
				ActiveForm.Fields("Aufgabe").Value = Aufgabe
			End If
		Next
Else
	MsgBox "Bitte erst die Aufgabennummer eingeben, damit eine Aufgabe angezeigt werden kann."
End If