script-problem

[my head]

Sub Initialize
   'Hilfsvariablen   
   Dim dateTime As New NotesDateTime( "01/01/70" )
   Dim selection As String
   'Variablendeklarationen für AKD-TelefonDB
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   selection = "@Contains( FORM; ""eingabe"" )"
   Set collection = db.Search( selection, dateTime, 0 )
   Set doc = collection.GetFirstDocument
   Print "Bitte haben Sie einen Moment Geduld..."
   Dim srcDb As NotesDatabase
   Dim srcCollection As NotesDocumentCollection
   Dim srcDoc As NotesDocument
   selection = "@Contains(FORM; ""Person"" )"
   Print "Bitte haben Sie einen Moment Geduld..."
   While Not (doc Is Nothing)
      If doc.kkeingabe(0) <> "manuell" Then   
         Set srcDb = New NotesDatabase("V21_AUG_01/LVA21/DE","Adreßbücher/n24.nsf")
         Set srcCollection = srcDb.Search(selection, dateTime, 0 )
         Set srcDoc = srcCollection.GetFirstDocument
         While Not (srcDoc Is Nothing)
            If doc.txtNachname(0)= srcDoc.LastName(0) Then


das ist mein code... ich debugge seit stunden... steh aber vollkommen auf`m schlauch... in der letzten zeile bleibt er stehen... object variable not set...

[eknori]

poste mal bitte den kompletten Code

[dw]

Hallo,

also in dem Teil des geposteten Scriptes liegt der Fehler nicht, das ist alles ok. Schaue mal die getnextdocument() von doc und srcDoc an ob die an der richtigen Stelle sind, oder wird das doc gelöscht??? ... zumindest so würde das Skript laufen:

Sub Initialize
     'Hilfsvariablen  
   Dim dateTime As New NotesDateTime( "01/01/70" )
   Dim selection As String
   'Variablendeklarationen für AKD-TelefonDB
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Set db = session.CurrentDatabase
   selection = "@Contains( FORM; ""eingabe"" )"
   Set collection = db.Search( selection, dateTime, 0 )
   Set doc = collection.GetFirstDocument
   Print "Bitte haben Sie einen Moment Geduld..."
   Dim srcDb As NotesDatabase
   Dim srcCollection As NotesDocumentCollection
   Dim srcDoc As NotesDocument
   selection = "@Contains(FORM; ""Person"" )"
   Print "Bitte haben Sie einen Moment Geduld..."
   While Not (doc Is Nothing)
      If doc.kkeingabe(0) <> "manuell" Then  
         Set srcDb = New NotesDatabase("V21_AUG_01/LVA21/DE","Adreßbücher/n24.nsf")
         Set srcCollection = srcDb.Search(selection, dateTime, 0 )
         Set srcDoc = srcCollection.GetFirstDocument
         While Not (srcDoc Is Nothing)
            If doc.txtNachname(0)= srcDoc.LastName(0) Then
               Msgbox "Treffer"
            End If
            Set srcDoc = srcCollection.GetnextDocument(srcdoc)
         Wend
      End If
      Set doc = collection.Getnextdocument(doc)
   Wend
   
End Sub


Gruß
dw

[my head]

bin gestern nacht noch draufgekommen hab alle variablen zurückgestzt (und doc auf nothing), dann dachte ich, ich sei im ersten durchlauf... naja