Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: theBastian am 28.02.05 - 10:10:32

Titel: LS: Bedingungen bei If funktionieren nicht
Beitrag von: theBastian am 28.02.05 - 10:10:32

Hallo,

kämpfe seit 2 Stunden mit einer Bedingung im Querysave meiner Form.


checkBank = source.FieldGetText("Bank")
   If checkKSLGrund = "Kunde unzufrieden mit Konditionen" _
   Or checkKSLGrund = "Kunde unzufrieden mit Service" _
   Or checkKSLGrund = "Umzug des Kunden" _
   And checkBank = "" Then
      Msgbox ("Bitte wählen Sie das neue Kreditinstitut des Kunden aus.")
      source.GotoField("Bank")
      Continue = False
      Exit Sub      
   End If


Wenn also Feld KSLGrund einen der 3 Werte annimmt und Feld Bank leer ist, dann Messagebox.

Feld KSLGrund: Dialogliste, bearbeitbar
Feld Bank: Textfeld, bearbeitbar

Der Debugger zeigt mir auch die Werte der einzelnen Felder an. Leider erscheint die Box auch, wenn Feld Bank nicht leer ist.
Kann ich mir aber nicht erklären, da dieser Code doch eigentlich simpel ist und ich dachte ich kann sowas wenigstens.  :(

cu
Sebastian

Titel: Re: LS: Bedingungen bei If funktionieren nicht
Beitrag von: Semeaphoros am 28.02.05 - 10:12:47

Schonmal probiert, Klammern um die OR-Bedingungen zu setzen? So wie das jetzt da steht, geht das IF auf True, wenn immer eine der beiden ersten OR-Bedingungen zutrifft, unabhängig vom ganzen Rest

Titel: Re: LS: Bedingungen bei If funktionieren nicht
Beitrag von: klaussal am 28.02.05 - 10:19:35

So, wie's jetzt aussieht, zieht das "and" nur bei der letzten "or"-Bedingung.

IF (... or.... or...) and ....  <-- so müsste es aussehen

klaus

Titel: Re: LS: Bedingungen bei If funktionieren nicht
Beitrag von: Semeaphoros am 28.02.05 - 10:21:19

Ja, formal dargestellt, was ich mit Worten umschrieben habe, bin gleicher Meinung.

Titel: Re: LS: Bedingungen bei If funktionieren nicht
Beitrag von: theBastian am 28.02.05 - 10:31:02

Vielen Dank.
Diesen Klammerquatsch vergesse ich jedes Mal.  ;)

cu
Sebastian