Domino 9 und frühere Versionen > Entwicklung
LS Dialogbox Werteübergabe
Axel:
Hi,
meines Erachtens kann das nicht gehen, da anscheinend die eigentliche Maske und die Dialogbox 2 verschiedene Masken sind.
Versuch's mal so:
Sub Click(Source As Button)
dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docdlg As NotesDocument
Dim uiwork As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
Set uidoc = uiwork.CurrentDocument
Set doc = uidoc.Document
Set docdlg = New NotesDocument(db)
If uiwork.DialogBox( "Groesse", True, True, True, True, True, False, "Auswahl Größe", docdlg, True, False) Then
doc.Feldname = docdlg.Feldname
Else
'Es wurde im Dialog auf Abbrechen geklickt
End If
End Sub
Die Feldnamen mußt du natürlich anpassen.
Axel
TomLudwig:
War wieder nix.
Ich habs mir im Debugger angeschaut und in "docdlg" sind gar keine Items vorhanden. Normalerweise müsste doch das Feld Größe wenigstens angezeigt werden.
Hat jemand noch einen anderen Vorschlag?
meichhorner:
??? ??? ::)
Also das geöffnet Dokument und die Dialogbox verwenden unterschiedliche Masken ???
Also bei mir funktioniert das einwandfrei auch wenn ich zwei verschiedene Masken verwende.
Cu
Martin
TomLudwig:
Ja, es sind zwei unterschiedliche Masken in den beiden das selbe Feld vorhanden ist.
Die Felder sind Optionsschaltflächen. Kann dass, das Problem sein?
meichhorner:
Nein, nein, nein :o
Das muss funktionieren.
1.Du hast dein Dokument mit der Optionsschaltfläche "XY" im Bearbeitungsmodus mit der Maske "A" geöffnet.
2. Du klickst in diesem Dokument auf deinen Button mit meinem Script und das Dokument wird mit der Maske "B" geöffnet.
(Diese Maske muss natürlich eine Optionsschaltfläche haben die genau gleich ist wie in Maske "A")
3.Dort wählst du einen Wert der Optionsschaltfläche aus und bestätigst mit ok und der Wert wird in das Dokument übernommen.
Cu
martin
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln