Hallo!
Folgendes Problemchen:
Ich bin in einem View und möchte über einen Action Button ein neues Dokument aufrufen. Die Maske, die diesem Dokument zugeordnet ist, hat eine ComboBox, die "$Typ" heißt. Beim Aufruf dieses Dokuments möchte ich diese ComboBox vorbelegen. Ich habe folgenden Code, der aber leider nicht funktioniert. Das Dokument / Maske wird geöffnet, aber die ComboBox ist leer.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Set newDoc = New NotesDocument(db)
newDoc.form = "Geraet"
newDoc.Typ = "TM-200"
Dim item As NotesItem
Call newDoc.Save(True,False)
Call ws.EditDocument(True, newDoc)
End Sub
Hat jemand eine Idee?
Vielen Dank!
Michael