Hallo zusammen,
warum zeigt mir der folgende Code immer den Finger? In dem Dokument aus dem die Daten kommen sollen steht in dem Feld "active". Mit dem Debugger komme ich immer auf die Zeile if orgStatus ...
Kann ich denn einen Variant nicht einfach so vergleichen? Was mache ich falsch?
....
Dim orgName As Variant
Dim orgAbbreviaton As Variant
Dim orgStatus As Variant
Dim counter As Single
Dim kw As Variant
counter = 0 ' einfacher Zähler!
kw = Inputbox("Which Calendar week you want to create?")
' Schleife, die jedes weitere Dokument anspringt
Do While Not (doc Is Nothing)
orgName = doc.GetItemValue("org_name") ' Werte aus Mutter-Dok auslesen
orgAbbreviation = doc.GetItemValue("org_abkuerzung")
orgStatus = doc.GetItemValue("org_status")
If orgStatus = "active" Then
Set note = db.CreateDocument ' neues Dok erzeugen
Call note.ReplaceItemValue("Form", "check_form") ' Maske ändern
Call note.ReplaceItemValue("check_orgName", orgName) ' Felder mit Werten belegen
Call note.ReplaceItemValue("check_orgAbbr", orgAbbreviation)
Call note.ReplaceItemValue("check_calendarWeek", kw)
Call note.save(True,False) ' speichern des neu angelegten Dok´s
Set doc = view.GetNextDocument(doc) ' nächstes Dokument aus der View anspringen
counter = counter+1
End If
Loop