Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: leusel am 22.09.03 - 21:13:49
-
Hallo,
wenn ich mein Script ohne den Debugger ausführe kommt die Fehlermeldung Object Variable Not Set.
Führe ich das Script mit Debugger aus kommt keine Fehlermeldung.
und das Script läuft normal ab.
Was könnte das sein?
Ohne Debugger wird das Feld tmp_teil nicht gefüllt.
While Not(doc Is Nothing)
tmp=doc.GetItemValue("tmp_teil")
tmp1=doc.GetItemValue("t_liste")
While Not(doc2 Is Nothing)
-
Lies Dir bitte nochmal Deine Frage genau durch - da steigt doch keiner hinter den Sinn.
Daß das Feld "tmp_Teil" "gefüllt" werden soll, hat mit dem geposteten Code auch gar nichts zu tun.
Derartige Code-Schnipsel sind jedenfalls vollommen wertlos, falls Du Hilfe erwartest.
Es wäre auch nicht schlecht, wenn Du Dich zu noch offenen Fragen von Dir, zu denen Du bereits Antworten bekommen hast, äussern würdest. Du riskierst sonst, daß Dich hier einige als Datengulli ansehen müssen.
Bernhard
-
Sorry hier der Anfang vom Script.
Wie gesagt mit gestartetem Debugger läuft das Script ganz normal durch, wenn man jeden Schritt einzeln macht. Ohne Debugger kommt die Fehlermeldung Object Variable Not set in der Zeile die Fett markiert ist.Ruft man im Debugger nicht jeden Schritt einzeln auf bleibt tmp leer.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item_tmp_teil As NotesItem
Dim view2 As NotesView
Dim doc2 As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("(teilnehliste)")
Set doc = view.GetFirstDocument
Set item_tmp_teil = doc.GetFirstItem("tmp_teil")
Set view2 = db.GetView("Mitarbeiter Status")
Set doc2 = view2.GetFirstDocument
While Not(doc Is Nothing)
tmp=doc.GetItemValue("tmp_teil")
tmp1=doc.GetItemValue("t_liste")
While Not(doc2 Is Nothing)
.
.
.
.
If item_tmp_teil.Contains( tmp2(0) ) Then
If (tmp1 (0) = thema1(0)) Then
doc2.besucht1 = "ja"
Call doc2.Save ( False, True )
End If
P.S.
denn offenen Post muss ich bearbeiten kam noch nicht dazu.
-
Versuch mal die restlichen Variabeln auch noch zu deklarieren
Dim tmp,tmp1,thema1 AS Variant
-
In deiner fett geschriebenen Zeile verwendest du die Variable tmp2, die weder deklariert noch befüllt ist...
-
Hallo,
nach dem ich die restlichen Variablen deklariert habe, funktioniert es!
Danke
-
Tip: Keine Zeile LotusScript schreiben ohne Option Declare.
Bernhard