Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Fbaum am 18.07.02 - 16:04:46

Titel: Feld mit EXITING Event ausfüllen
Beitrag von: Fbaum am 18.07.02 - 16:04:46

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

Titel: Re: Feld mit EXITING Event ausfüllen
Beitrag von: doliman am 18.07.02 - 20:29:46

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

Titel: Re: Feld mit EXITING Event ausfüllen
Beitrag von: Fbaum am 19.07.02 - 07:33:22

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

Titel: Re: Feld mit EXITING Event ausfüllen
Beitrag von: rar am 19.07.02 - 07:37:06

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