Globale Variable

[Rob Green]

wenn ich in den Declaration eine Variable namens
"Dim FELD_WERT as Variant" setze und dann im
QueryOpen der Maske den Wert mit
FELD_WERT = doc.FeldABC setze....

bleibt mir diese Variable nun so lange im Speicher, bis ich zB im QuerySave vergleichen möchte, ob sich das Feld verändert hat?
also im QuerySave

if Feld_WERT<>doc.FeldABC Then
...
End If

klappt das?

[Rob Green]

Code

Code

yip..klappt..

habe das ins Postopen:

Code

              If Not Source.IsNewDoc Then   
      Wert = Source.Document.Feld
   End If

In den Declarations

Code

Dim Wert as Variant

Im Query Save:
               

Code

 
               Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = ws.CurrentDocument
   Dim doc As notesdocument
   Set doc = uidoc.Document
   
   If Not uidoc.IsNewDoc Then
      abc = doc.feld
      
      jetztele% = Ubound(abc)
      vorherele% = Ubound(Wert)
      
      
      If jetztele% > vorherele% Then
         Msgbox "neue Werte dazu eingegeben"
      Elseif jetztele%<vorherele% Then
         Msgbox "Werte entfernt"
      Else
         For i=0 To Ubound(abc)
            If Wert(i) <> abc(i) Then
               Msgbox i & {. Wert  ist nicht gleich}
            End If
         Next
      End If
      
   End If