Domino 9 und frühere Versionen > ND6: Entwicklung
New NotesUIWorkspace
klaussal:
... das läuft hier unter LoNo6 + R5 :
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.currentDocument
Set doc = uidoc.document
Set db = session.currentDatabase
ThomasM:
--- Zitat von: klauss am 29.07.04 - 13:45:21 ---... das läuft hier unter LoNo6 + R5 :
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.currentDocument
Set doc = uidoc.document
Set db = session.currentDatabase
--- Ende Zitat ---
Hallo Klaus,
vielen Dank für Deine rasche Antwort, leider funktioniert
es bei mir nicht mit Deinem Code (N6 6.5.2)
(siehe attachment)
Thomas
Glombi:
Ich kann es reproduzieren, allerdings funktioniert es in R5 nur, wenn ich auch im Event Initialize oder Queryopen der Maske Scriptcode habe.
Habe ich in diesen Events keinen Code, erhalte ich auch in R5 einen Fehler - Object variable not set.
Unter R6 bekomme ich immer einen Fehler.
Das ganze ich schon merkwürdig.
Das Initialize eines Feldes wird zwischen QueryOpen und PostOpen der Maske ausgeführt.
Folgender Workaround:
In den (Globals) der Maske unter
(Declarations)
dim uidoc as NotesUIDocument
Im Queryopen der Maske
set uidoc = Source
Dann im Initialize des Feldes:
Sub Initialize
Dim nss As New NotesSession
Const NotesMacro$ = |@IsMember("[Test]";@UserRoles)|
Dim doc As NotesDocument
Dim Result As Variant, vaList As Variant
Set doc= uidoc.Document
...
Ich nutze die Initialize Events fast nie. Nur in Script-Libraries, um "variable Konstanten" zu setzen.
Andreas
ThomasM:
Hallo Andreas,
danke für Deinen Tip, es funktioniert.
Ist natürlich schon komisch. Wir Haben noch
zusätzlich einen PMR aufgemacht, mal schauen was Lotus
dazu sagt.
Thomas
Glombi:
--- Zitat von: ThomasM am 29.07.04 - 14:59:37 ---Wir Haben noch
zusätzlich einen PMR aufgemacht, mal schauen was Lotus
dazu sagt.
--- Ende Zitat ---
Mal in die Kristallkugel schauen.... "Work's as designed" ;D
Andreas
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln