Hallo!
Bei folgendem Code bekomme ich die o.g. Fehlermeldung an der markierten Stelle. Der steht in einem Agenten (Manuell ausführen, Einmal ausführen eingestellt).
Dim ws As New notesuiworkspace
Dim session As New notessession
Dim this_db As notesdatabase
Dim akt_ui_doc As notesuidocument
Dim akt_doc As notesdocument
Dim komp_entry As notesviewentry
Dim komp_view As notesview
Dim item As notesitem
Dim SendTo (0 To 1) As Variant
Dim unterschrift As String
Dim komp_name As String
Dim eintrag As String
'#####################################################################
Set akt_ui_doc = ws.currentdocument
Set akt_doc = akt_ui_doc.document
Set this_db = session.currentdatabase
Set komp_view = this_db.getview("Einzelkompetenzliste")
unterschrift = session.commonusername
SendTo (0) = "#50 Betriebswirtschaft"
'#####################################################################
'Einfügen der Liste
Forall kompetenz In akt_doc.KompetenzenKEY
Set komp_entry = komp_view.getentrybykey(Cint(kompetenz), True)
komp_name = komp_entry.columnvalues(1)
eintrag = kompetenz & " " & komp_name
If akt_doc.hastitem("KompetenzlisteMitNameTX") Then
Call akt_doc.appenditemvaluel ( "KompetenzlisteMitNameTX", eintrag )
Else
Set item = New notesitem (akt_doc, "KompetenzlisteMitNameTX" , eintrag)
End If
Set komp_entry = Nothing
End Forall
'Statusänderung
If akt_doc.StatusNO (0) = 0 Or akt_doc.StatusNO (0) = 5 Then
akt_doc.StatusNO = 10
akt_doc.VorlageUnterschriftTX = unterschrift
Call akt_doc.save (True,False)
Call SendMail ( SendTo, "Änderung eines Berechtigungprofils - Freigabe erforderlich", "", akt_doc )
Msgbox "Dokument wurde zur"+Chr(13)+"Entscheidung vorgelegt",64,"Information"
Else
Msgbox "Dokument hat den falschen Status",16,"Fehler"
End If
Woran kann das liegen? Notesdocument.HasItem gibt doch einen Integer zurück und ähnlich steht es auch in der Designerhilfe beschrieben...
