Domino 9 und frühere Versionen > Entwicklung

Feldnamen auslesen

<< < (3/3)

Glombi:
Sag mal an, was Du wo programmiert hast. Du brauchst
Globals - (Declarations)
Entering
Exiting

Andreas

skywook:
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

Glombi:
Das
currentFieldName = uidoc.CurrentField
muss aus dem Exiting heraus, denn es liefert ja den Namen des Feldes, in das der Cursor springt.
Daher habe ich es ja extra im Entering drin!

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

Andreas

skywook:
Danke, funktioniert!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete