Domino 9 und frühere Versionen > ND8: Entwicklung

If Abfrage falsch

(1/4) > >>

wittmann_franz:
Guten Tag,

folgendes Script liefert nicht das zurück was ich mir wünsche:

                Dim tdate As New NotesDateTime("Today")
   Dim vaktdat As Variant
   Dim serinJa As String
                  
   Set db = session.Currentdatabase
   Set view = db.GetView ("AnwendungenKopf")
   vaktdat = tdate.DateOnly
         
   Set doc = view.Getfirstdocument()
   While Not doc Is Nothing
      serinJa = doc.App_LIC_Erinnerung_JaNein(0)
      If serinJa <> "Ja" & doc.App_Lic_Erinnerung_Dat(0)<> vaktdat Then
         dNum = dNum +1
         Print "Hallo"            
      End If   
      Set doc = view.Getnextdocument(doc)   
   Wend
   Print "Es ist / sind " & dNum & " Dokumente verarbeitet worden."

Es ist derzeit nur ein Dokument in der Ansicht, welches auf die beiden Bedingungen zutrifft.
Habe die Werte bereits im Debugger überpürft. Das Script sagt immer das es alle Dokumente in der Ansicht verarbeitet hat.
Wenn ich die <> mit = ersetzte wird überhaut kein Dokument bearbeitet. Wenn ich nur 1 der beiden Bedingung angebe,
funktioniert es tadellos.

Was also mache ich verkehrt in der if Abfrage.

Vielen Dank für Eure Hilfe.

ascabg:
Hallo,

Was sagt der Debugger denn zu den einzelnen Werten?
Vor allem, was liefert Dir denn doc.App_Lic_Erinnerung_Dat(0) und was steht in vakdat zum Zeitpunkt des Vergleiches?


Andreas

UMPirx:
Hallo,

ich denke das die Zeile

While Not doc Is Nothing

in

While Not (doc Is Nothing)

geändert werden muss.

Gruß

Wwe

ascabg:
@UMPirx

Warum?  ???


Andreas

UMPirx:
Hallo Andreas,

vergiss meine Antwort, wer lesen kann ist klar im Vorteil!!


Gruß und schönes WE!

Uwe

Navigation

[0] Themen-Index

[#] Nächste Seite