Domino 9 und frühere Versionen > Entwicklung

Lotus Script: Dialogbox Werte übernehmen

<< < (3/3)

Glombi:
Es fehlt noch

set oSession = New NotesSession

erst dann kannst Du die NotesDatabase setzen

Gruß
Andreas

Darkface:
Oh ja stimmt. Danke für alles.

Es funktioniert.

Gruß
  André

Darkface:
@adminnaddel:
hier ist der fertige Code.


--- Code: ---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


--- Ende Code ---

Gruß
  Darkface

Navigation

[0] Themen-Index

[*] Vorherige Sete