Feld mit EXITING Event ausfüllen

[Fbaum]

Hallo,
ich möchte gerne ein Feld automatisch ausfüllen, wenn der User beim verlassen des Feldes nichts eingetragen hat.
Ich habe ein Feld mit der UHRZEIT. Wenn dieses Feld leer gelassen wird (beim verlassen), soll automatisch 00:00 eingetragen werden.
Ich habe es schon mit dem VORGAEWERT versucht. Das dumme ist nur, daß dieser immer angezeigt wird.
Jetzt habe ich gedacht, daß ich es mit dem EXITING Event versuche. Da ich aber nicht gerade das Genie in Lotus Script bin hoffe ich, daß Ihr mir etwas unter die Arme greifen könnt.
Danke schon mal.
Gruß FBaum

[doliman]

Hi,

versuchs mal hiermit:

Sub Exiting(Source As Field)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim text As String
     Set uidoc = workspace.CurrentDocument
     text = uidoc.FieldGetText( "zeit" )
     If text="" Then
           Call uidoc.FieldSetText("zeit", "0:00")
     End If
End Sub

[Fbaum]

Hallo,
vielen Dank. So habe ich mir das vorgestellt.
Danke und Gruß
FBaum

[rar]

Ins Querysave mußt du das auch schreiben, da man ja auch abspeichern kann, ohne das Feld zu verlassen...