Domino 9 und frühere Versionen > Administration & Userprobleme

Fehlermeldung: Error creating product object

(1/2) > >>

Bellerophon:
*greetz* @ ALL

Auch auf die Gefahr hin das ich nerve:

Habe gerade mal meine Log durchgelesen, weil ich gestern einen Agent erstellt habe. Dieser Agent läuft periodisch Nachts um 01.00 Uhr auf meinem Server!
Dieser Server ist auch als ausführender Server in diesem Agenten eingetragen.
Der Agent ist auch mit der Server ID Signiert und berechtigt zu laufen.
Wenn ich diesen Manuell starte läuft er Problemlos über die Dokumente in der DB!

Nun lese ich folgende Fehlermeldung:


18.11.2003 01:00:53   AMgr: Agent ('Abschlußdatum Karte >= 7 Tage' in 'Ordner\DBname.nsf') Fehlermeldung: Error creating product object

Hat dies einer schon mal gehabt?
Was ist falsch?

Semeaphoros:
Ich vermute mal, dass der Agent probiert, eine OLE-Verbindung aufzubauen und kann die Applikation nicht finden/starten

Bellerophon:
Hi!

Nöö, nicht das ich wüsste. Hier ist der Agent:

Sub Initialize
   
   Dim Session As New Notessession
   Dim Workspace As New Notesuiworkspace
   Dim doc As Notesdocument
   Dim doc1 As Notesdocument
   Dim db As Notesdatabase
   Dim view    As notesview
   Dim item As NotesItem
   Set db    = Session.currentdatabase
   
   Dim admindoc As NotesDocument
   Dim adminview As NotesView
   Set adminview = db.getview( "(DBAdmin)" )   
   Set admindoc = adminview.getfirstdocument
   
   Dim ArchiveDB As  New NotesDatabase( admindoc.SerArchiv(0), admindoc.NaArchiv(0) )
   
   Set view = db.getview("(Bewerberdaten for Agents)")
   Set doc = view.getfirstdocument
   
   While Not doc Is Nothing
      
      DatumAbschluss = doc.fldAbgeschlAm(0)
      DatumAktuell = Date
      
      If DatumAbschluss <> "" Then
         If Cdbl(DatumAktuell) - Cdbl(DatumAbschluss) >= 1 Then
         '   Messagebox " >7"
            Set doc1=view.GetPrevDocument( doc )
            Call doc.CopyToDatabase( archiveDb )
            Call doc.Remove( True )
            Set doc = doc1
         End If
      End If
      Set doc=view.getnextdocument(doc)
   Wend
   
End Sub


Hoffe das reicht ? ;-)

Kapiere das nicht so ganz..............

Semeaphoros:
Sieht tatsächlich nicht so aus. Ich würde mal mit eingeschobenen Print-Statements nach dem Ort des Fehlers suchen

Bellerophon:
Teste ich aus und melde mich dann.......

Navigation

[0] Themen-Index

[#] Nächste Seite