LS: Bedingungen bei If funktionieren nicht

[theBastian]

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

[Semeaphoros]

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

[klaussal]

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

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

klaus

[Semeaphoros]

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

[theBastian]

Vielen Dank.
Diesen Klammerquatsch vergesse ich jedes Mal. 

cu
Sebastian