Domino 9 und frühere Versionen > Entwicklung

Befehl vom Arbeitsbereich aus nicht verfügbar (composedocument)

(1/2) > >>

Sillik:
Hi,

ich will per Button eine andere Maske öffnen. Ich mach das mit "composedocument".

Ich bekomm im Debugger jetzt allerdings die Meldung:

"Notes Error - Befehl vom Arbeitsbereich aus nicht verfügbar"

Von der Syntax ist der Befehl aber eigentlich richtig:

Set uidoc = uiws.composedocument("S1DX01", "stoer_new.nsf","Begleitschein")


Was ist hier falsch?

Axel:
Hi,

hast du uiws richtig initialisiert?

So z.B.

Dim uiws New NotesUIWorkspace


Poste doch mal den gesamten Code. Die Zeile sieht so weit richtig aus.

Axel

Sillik:
Sub Click(Source As Button)
   Dim uiws As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim var As String
   Dim curdoc As notesuidocument
   
   Set curdoc = uiws.currentdocument
   
   var = Msgbox("Ein Begleitschein kann nur für gespeicherte Dokumente erstellt werden." & Chr(10) & Chr(10) &_
   "Möchten Sie Speichern und fortfahren?", 4 + 32, "Speichern erforderlich")
   
   If var = "6" Then      
      Call curdoc.save
      Set uidoc = uiws.composedocument ("S1DX01", "stoer_new.nsf","Begleitschein")
      var = Msgbox("Dokument wurde gespeichert." , 0 + 64 , "Speichern erfolgreich")
   End If
End Sub

Glombi:
Hi,
es liegt vielleicht an der falschen Reihenfolge. Beim 2. mal "Call curdoc.save" ist das nicht mehr das aktuell geöffnete Dokument!

Versuch mal folgendes:

Sub Click(Source As Button)
   Dim uiws As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim var As String
   Dim curdoc As notesuidocument
   
   Set curdoc = uiws.currentdocument
   
   var = Msgbox("Ein Begleitschein kann nur für gespeicherte Dokumente erstellt werden." & Chr(10) & Chr(10) &_
   "Möchten Sie Speichern und fortfahren?", 4 + 32, "Speichern erforderlich")
   
   If var = "6" Then      
Call curdoc.save
      var = Msgbox("Dokument wurde gespeichert." , 0 + 64 , "Speichern erfolgreich")
      Set uidoc = uiws.composedocument ("S1DX01", "stoer_new.nsf","Begleitschein")

   End If
End Sub

Andreas

Sillik:
Da passiert genau das gleiche. Der 2. save war sowieso nur zu testzwecken drin. Den hab ich jetzt wieder raus.

Navigation

[0] Themen-Index

[#] Nächste Seite