Domino 9 und frühere Versionen > Entwicklung

Lotus Script: Dialogbox Werte übernehmen

(1/3) > >>

Darkface:
Hallo zusammen,
ich habe folgendes Problem:

Nach dem klick auf dem Button öffnet sich eine Dialogbox.
Nun soll man den Namen und die Nummer eingeben. Diese Dialogbox soll als neues Dokument gespeichert werden und es sollen die 2 Werte (Name + Vorname)aus der Dialogbox in das Hauptdokument (wo der Button sich befindet) übernommen werden.


Danke für jede Hilfe.

Gruß
  André

Glombi:
Das könntest Du so machen:

dim ws as New NotesUIWorkspace
dim session as New NotesSession
dim db as NotesDatebase
dim doc as NotesDocument
dim dialogdoc as NotesDocument
dim ret as Integer

set db = session.CurrentDatabase
set doc = ws.CurrentDocument.Document  'oder wie auch immer
set dialogdoc = db.CreateDocument
ret = ws.Dialogbox(,... bla,...,dialogdoc)
if ret then
doc.Name = dialogdoc.Name(0)
doc.VorName = dialogdoc.VorName(0)

'Wenn das Dok. aus der Dialogbox tatsächlich gespeichert werden soll ???
'musst Du noch ein paar Infos setzen:
dialogdoc.Form = "<maskenname / alias>"
call dialogdoc.Save(True,true,true)

end if

Gruß
Andreas

Darkface:
Ich habe folgenden Code und er gibt mir einen Fehler aus:

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

--- Ende Code ---

und bei diesem Fehler komme ich nicht weiter. Danke schonmal für die Hilfe.

Gruß
  André

ata:
... wie heißt den der Fehler?

ata

Glombi:
Hi Ata,
es muss

ndialog = oWorkspace.Dialogbox("Dialog",True,True,False,False,False,False,"TITEL der Dialogbox",docDialog)

heissen, es fehlt ein "false" und der Titel der Dialogbox.

Gruß
Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite