Es geht (Im Editmode)

fieldName$ = notesUIDocument.CurrentField

Also:
Sub Entering(Source As Field)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
dim currentFieldName as string
 
   Set uidoc = ws.CurrentDocument
currentFieldName = uidoc.CurrentField


   If uidoc.fieldgettext(currentFieldName) = "0,00" Then
      Call uidoc.fieldsettext(currentFieldName, "" )
   End If
   Call uidoc.Refresh

Andreas

Danke!
Geht das auch bei Exiting? Ohne die statische Vorgabe?

Hi,

ich denke mal das geht auch im Exiting-Event. Wo siehst du eine statische Vorgabe?

Axel

Wie kann ich im Exiting das "aktive" Feld ansprechen ohne diesen Feldnamen Fest einzugeben z. B. Feld1

Sub Exiting(Source As Field)
  Dim ws As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
dim currentFieldName as string
 
  Set uidoc = ws.CurrentDocument
currentFieldName = uidoc.CurrentField

funktioniert leider nicht. Übernimmt den Feldnamen von dem Feld das ich als nächstes auswähle.

Sorry, aber hab ich!

Global Declaration:
Dim currentFieldName As String


Feld Entering:
Sub Entering(Source As Field)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   currentFieldName = uidoc.CurrentField
   
   If uidoc.fieldgettext(currentFieldName) = "0,00" Then
      Call uidoc.fieldsettext(currentFieldName, "" )
   End If
   Call uidoc.Refresh
End Sub


Feld Exiting:
Sub Exiting(Source As Field)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   currentFieldName = uidoc.CurrentField
   
   If uidoc.fieldgettext(currentFieldName) = "" Then
      Call uidoc.fieldsettext(currentFieldName, "0" )
   End If
   Call uidoc.Refresh
End Sub

Danke, funktioniert!!!