Domino 9 und frühere Versionen > Entwicklung

LotusScript (If,ElseIf,Then) 2 Bedingungen

(1/2) > >>

CrazyCoder:
Hi Leute!
Ich mal wieder!  ;)

Also ich hab ja null Plan von LotusScript und ich sitze jetzt seit 2 Stunden daran so ne tolle If-Abfrage zu ändern!

Ich weiß das ich mit


--- Code: ---If ( source.FieldGetText( "TEST" ) = "" ) Then
   Messagebox( "Bitte tragen Sie einen Text in TEST ein!" )
   Call source.GotoField( "TEST" )
   continue = False
--- Ende Code ---

ne Abfrage hab, ob in dem Feld TEST was drin steht und das wenn das nicht der Fall ist ne Meldung kommt, nachder er dann in der Feld TEST "springt"!

Das müßte ich jetzt aber auf 2 Felder die Abgefragt werden erweitern!! Nur wie?? ???


--- Code: ---If ( source.FieldGetText( "TEST" ) = "" && source.FieldGetText( "TEST2" ) != "TEST-TEST" ) Then
   Messagebox( "Bitte tragen Sie einen Text in TEST ein!" )
   Call source.GotoField( "TEST" )
   continue = False
--- Ende Code ---

Das Funzt leider nicht!!!

Bin ja mal gespannt auf die Antworten!
Danke im Vorraus,

cya
CrazyCoder

robertpp:
zb so:

If uidoc.FieldGetText("VonDatum") =""Then
      Msgbox "Sie müssen einen Anfangs-Datum eingeben!",16," Falscher oder fehlender Wert"
      Continue =False
      uidoc.GotoField("VonDatum")
      Exit Sub
   End If
   If uidoc.FieldGetText("BisDatum") =""Then
      Msgbox "Sie müssen einen End-Datum eingeben!",16," Falscher oder fehlender Wert"
      Continue =False
      uidoc.GotoField("BisDatum")
      Exit Sub
   End If

Und das ganz in Querysave hineinschreiben
robertpp

Axel:
Hi,

...oder so:

If  source.FieldGetText( "TEST" ) = ""  AND source.FieldGetText( "TEST2" ) <> "TEST-TEST"  Then
   Messagebox( "Bitte tragen Sie einen Text in TEST ein!" )
   Call source.GotoField( "TEST" )
   continue = False
End If


Axel

CrazyCoder:
Hi Axel,
du triffst das schonmal ganz gut!
Trotzdem danke robertpp!!! ;)

Das 2.Feld (TEST2) muß aber ungleich TEST-TEST sein also eigentlich != "TEST-TEST".

Nur wenn ich


--- Code: ---If  source.FieldGetText( "TEST" ) = ""  AND source.FieldGetText( "TEST2" ) != "TEST-TEST"  Then
..
..
--- Ende Code ---

eintrage, bekomme ich ne Fehlermeldung:
("  Unexpected: !, Expected: (   ")

Was mach ich da???
DANKE!!

CrazyCoder

cpo:
Nimm einfach <> statt !=
CPO

Navigation

[0] Themen-Index

[#] Nächste Seite