Object Variable Not Set

[leusel]

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)

[koehlerbv]

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

[leusel]

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.

[tuelb]

Versuch mal die restlichen Variabeln auch noch zu deklarieren

Dim tmp,tmp1,thema1 AS Variant

[rar]

In deiner fett geschriebenen Zeile verwendest du die Variable tmp2, die weder deklariert noch befüllt ist...

[leusel]

Hallo,

nach dem ich die restlichen Variablen deklariert habe, funktioniert es!
Danke

[koehlerbv]

Tip: Keine Zeile LotusScript schreiben ohne Option Declare.

Bernhard