Hallo !
bei dem u.a. Code erhalte ich an der "roten" Stelle folgende Fehlermeldung:
Incorrect argument type: string expected
Der Schalter mit dem Code befindet sich in einer eingebetteten Ansicht. Kann mir jemand helfen ?
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view, view2 As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim anzDoks As Double
Set db = S.CurrentDatabase
Set collection = db.UnprocessedDocuments ' ausgewähle Dokumente
Set doc = collection.GetFirstDocument()
'nur ein Dokument zur Zeit abschließen !
If collection.Count > 1 Then
Msgbox "Es kann nur eine Auflage zur Zeit abgeschlossen werden !" ,, db.Title
Exit Sub
End If
'Dialog
varReturn = ws.DialogBox ("(UFO_Auflagen_abschließen)", True, True, False, False, False, False, dbTitel , doc)
If varReturn = False Then
Exit Sub 'wenn keine Auswahl
End If