Hallo,
ich habe hier ein Script, das hinter einem Button in einer Eingabemaske liegt.
Beim klick darauf bekomme ich die oben genannte Fehlermeldung.
Wo liegt der Fehler? Ich glaube er liegt irgendwo in Fettgedruckten bereich.
Steffen
----------------------------------------------------------------------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Dim TempStatus As String
Dim server As String
Dim datenbank As String
Dim mserv As String
mserv=uidoc.FieldGetText("manServer")
If (mserv="") Then
server=uidoc.FieldGetText("Server_m")
datenbank=uidoc.FieldGetText("DB_m")
Else
server=uidoc.FieldGetText("Server")
datenbank=uidoc.FieldGetText("DB")
End If
Set db=session.CurrentDatabase
' Fenster erzeugen in dem der Inhalt der Ansicht Alles\nach Firmenart aus der DB SalesTest
' auf dem Server MM_NOTES_OS/Meyer_Meyer/DE angezeigt wird
Set collection = workspace.PickListCollection(1, True, _
server,datenbank,"Alles\nach Firmennamen","Kundendatenwahl", _
"Bitte wählen Sie die zu kopierenden Dokumente.")
' alle ausgewählten Dokumente kopieren
Dim doc As notesdocument
Set doc = collection.GetFirstDocument
While Not(doc Is Nothing)
Call doc.Copytodatabase(db)
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
