LotusScript (If,ElseIf,Then) 2 Bedingungen

[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

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

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
..
..

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

Was mach ich da???
DANKE!!

CrazyCoder

[cpo]

Nimm einfach <> statt !=
CPO

[Axel]

Hi,

eine Prüfung auf ungleich macht man in Script mit <> und nicht mit !=


Schau dir noch mal meine IF- Anweisung genau an, dann siehst du es:

...AND source.FieldGetText( "TEST2" ) <> "TEST-TEST"...


Axel

[ata]

... ich mach so was lieber mit einem Array der Feldnamen

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim i as Integer
Dim sFields( 0 to 1) As String
Dim sFieldDesc( 0 to 1 ) As String

sFields( 0 ) = "LastName"
sFields( 1 ) = "Firstname"
sFieldDesc( 0 ) = "Nachname"
sFieldDesc( 1 ) = "Vorname"
Set uidoc = ws.CurrentDocument
For i = 0 to Ubound( sFields )
     If uidoc.FieldGetText( sFields( i ) )= "" Then
          MsgBox |Das Feld "| +sFieldDesc( i )+ |" war leer. Bitte geben Sie einen Wert ein.|
          uidoc.GotoField( sFields( i ) )
          Exit Sub ' # bzw Function - je nachdem
     End If
Next

ata

[CrazyCoder]

HI Leute!

Super, danke Axel!!      
Hat alles gefunzt!  

Danke Ata, aber ich bin nicht so wirklich fit in LS und deine Version ist mir schon zuhoch! *gg* Danke trotzdem!!


cya
CrazyCoder