Der Anwender soll ein Feld auf einen bestimmten Inhalt hin überprüfen. Hierbei hat er zwei Möglichkeiten die im Rahmen einer UND-Verknüpfung oder einer ODER-Verknüpfung greifen.
Als Beispiel: In dem Feld steht "Regen" und "Sommer" dann ist die Regel wahr, steht in dem Feld aber nur Regen oder Sommer ist sie falsch. Der Anwender soll nun aber selbst festlegen können, ob eine UND oder eine ODER Verknüpfung verwendet werden soll. Ich möchte ihm ein Optionsfeld zur Verfügung stellen, über welches er dieses einstellen kann. Wenn ich das Ganze dann aber in Skript verarbeite liefert das If-Konstrukt immer einen Fehler zurück.
Beispiel:
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim varoperator As String
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set doc = uidoc.Document
varoperator = doc.Verknuepfungsart(0)
if doc.Subject(0) like "Sommer" varoperator doc.Subject(0) like "Regen" then
....
End if
Ich habe auch schon Variant, Long, Integer etc. probiert, leider ohne Erfolg!
Als Workaround müsste ich über Case Funktion zunächst die Verknüpfungsart abfragen und dann das komplette If-Konstrukt zweimal schreiben.
Hatte gehofft, dass ich es vielleicht etwas schlanker hinbekommen!?
Hallo Bernhard, hallo Peter. Herzlichen Dank für eure Gedanken und Vorschläge. Ich werde es nun doch so machen, wie ich es im Posting ja bereits angekündigt habe und ein Case-Konstrukt nutzen. Wenn ich dann die einzelnen Elemente über eine separate Funktion abarbeite, dürfte sich die Anzahl der Codezeilen doch recht übersichtlich gestalten.
Select Case doc.operator(0)
Case "OR"
...
Case "AND"
...
End Select