Aufruf Dokument mit Maskenwechsel

[TRO]

Wie wäre es, wenn Du bitte meine Anregungen komplett in ein Stückchen Code einbauen würdest?


Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace    
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim coll As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set db = session.CurrentDatabase
   Set coll = db.UnprocessedDocuments
   Set doc = coll.GetFirstDocument
   
   If doc.form(0) = "Vorlage" Then
      doc.form = "(DruckVorlage)"
      
      Call workspace.EditDocument( False, doc, True,, False )
      
   End If
   
End Sub


Wenn das auch mit diesem Code nicht funktioniert (benutze ich seit Jahren ohne Probleme), dann suchst Du mit großer Wahrscheinlichkeit an der vollkommen falsche Stelle:
- denkbar wäre, dass die DaBa insgesamt 'ne Macke hat
- denkbar wäre, dass gar nicht die Zeile ...EdirDocument Notes abschießt, sondern dass der Fehler in der Maske "(Druckvorlage)" liegt (gibt es die überhaupt?) und diese Maske 'ne Hacke hat.


Thomas

[BigWim]

Wenn das auch mit diesem Code nicht funktioniert (benutze ich seit Jahren ohne Probleme), dann suchst Du mit großer Wahrscheinlichkeit an der vollkommen falsche Stelle:

Dem würde ich voll und ganz anschließen, denn Probleme mit SwitchForm sind mir auch nicht untergekommen ...

(Zu Markus: Da bekomme ich die Fehlermeldung: Angegebene Rahmengruppe nicht vorhanden, oder so ähnlich)

Markus

[Wiesel]

Ok, ich hab das mal in einer anderen Datenbank ausprobiert und da klappt dieses SwitchForm in der Tat.

Dann muss ich da mal an der Maske rummachen.

Ich Danke Euch ganz herzlich!!!

[Axel]

Mal ein paar Schüsse ins Blaue.

Vielleicht würde schon ein recompile aller Scripts helfen, oder auch schon ein einfaches compact der Datenbank.

Eventuell hilft auch ein löschen der cache.ndk.

Ich habe diesbezüglich schon die absurdesten Dinge erlebt.


Axel