Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: DAU-in am 19.07.07 - 09:13:03
-
Diese Woche läuft alles verkehrt.
Im Notesclient möchte ich das angezeigte Dokument schliessen und im Lesemodus wieder öffnen.
Dim docReopen As NotesDocument
Dim uidoc As Notesuidocument
Set uidoc = ws.CurrentDocument
Set docreopen = uidoc.Document
Call uidoc.Close
Set uidoc = ws.EditDocument( False, docReopen ) '( False, docReopen , True , , , False )
-
Da freue ich mich, dass ich was für den Notesclient machen kann, und dann gehts auch schief.
Ich will das angezeigte Dokument schliessen, und im Lesemodus wiederöffnen.
Dim docReopen As NotesDocument
Dim uidoc As Notesuidocument
Dim uidocNew As NotesUIDocument
Set uidoc = ws.CurrentDocument
Set docreopen = uidoc.Document
Call uidoc.Close
Set uidocNew = ws.EditDocument( False, docReopen ) '( False, docReopen , True , , , False )
Die zugehörige Fehlermeldung lautet Automation Object error. :-:
Wo liegt diesesmal mein DEnkfehler?
Im Debugger werden werden uidoc und docReopen richtig belegt.
grüsse
Dau-in
-
Und das Problem/der Fehler (http://www.lugbz.org/documents/smart-questions_de.html#beprecise) ist?
Weiters fehlt in dem Stückerl Code noch die Fehlerbehandlung für die Fälle, dass einer der SETs fehlschlägt.
-
Das uidocnew wird nicht belegt und die oben gemeldete Fehlermeldung erscheint.
Schiesse ich mir da gerade selber ins Knie, weil ich das uidoc schliessen will, über das das Backenddokument belegt wird?
Und sorry, ich kann nicht den gesamten Code posten, da der über mehrere Scriptbibliotheken verteilt ist.
Aber es hilft mir schon weiter wenn ich weiss, ob ich einen grundsätzlichen Denkfehler drinhabe beim Variablen belegen oder der Fehler von wo ganz anders kommt.
-
Ah, hab ich aufgrund der Hitze das zweite Posting übersehen? Sorry. :-:
Ich würde eher darauf tippen, dass in dem Dokument etwas eingebettet ist (Word, Excel, ...), das Probleme bereitet.
-
Es wird ein Stück weiter vorne ein Excelsheet ausgelesen,
und dann mit
' close Excelobject
xlWorkbook.Close
Excel.Quit
Set Excel = Nothing
geschlossen. Im Debugger ist das dann nicht mehr belegt.
Im Dokument selber ist nichts eingebettet und es enthält nur reine Textfelder.
Aber dann muss ich nochmals an der Stelle nachsehen.
-
ok, ich korrigiere mich: das Excel-dingens wird immer noch im Debugger angezeigt, dann gehe ich dort nochmals auf die Pirsch.
danke.
-
Das Problem wurde von einem Wert in der Excelliste verursacht, der mit einem '-' begann, und dann von Excel nicht richtig interpertiert werden konnte.
Den Wert entfernen, und schon lief das Ganze wieder.