Sub Click(Source As Button) Dim oSession As NotesSession Dim dbCurrent As NotesDatabase Dim oWorkspace As New NotesUIWorkspace Dim docHaupt As NotesUIDocument Dim docDialog As NotesDocument Dim nDialog As Integer Set dbCurrent = oSession.CurrentDatabase Set docHaupt = oWorkspace.CurrentDocument Set docDialog = dbCurrent.CreateDocument ndialog = oWorkspace.Dialogbox("Dialog",True,True,False,False,False,docDialog) If nDialog Then docHaupt.Name = docDialog.DName(0)'Not a Member Name docHaupt.Vorname = docDialog.DVorname(0)''Not a Member Vorname docDialog.Form = "Dialog" Call docDialog.Save(True,True,True) End If End Sub
docHaupt.Name = docDialog.DName(0) docHaupt.Vorname = docDialog.DVorname(0)Vorname
Set dbCurrent = oSession.CurrentDatabase
Sub Click(Source As Button) Dim oWorkspace As New NotesUIWorkspace Dim oSession As NotesSession Dim dbCurrent As NotesDatabase Dim docHaupt As NotesDocument Dim docDialog As NotesDocument Dim nDialog As Variant Set oSession = New NotesSession Set dbCurrent = oSession.CurrentDatabase Set docHaupt = oWorkspace.CurrentDocument.Document Set docDialog = dbCurrent.CreateDocument nDialog = oWorkspace.Dialogbox("Dialog",True,True,False,False,False,False,"neue Person",docDialog) If nDialog Then docHaupt.Name = docDialog.DName(0) docHaupt.Vorname = docDialog.DVorname(0) docDialog.Form = "Dialog" Call docDialog.Save(True,True,True) End If End Sub