Doc im Backend suchen und zum bearbeiten öffnen?

[klaussp]

Hallo!

ich möchte im Backend in einer Ansicht das erste Doc suchen, und zum Bearbeiten öffen. Leider bin ich heute wohl zu blöd dazu, bekomme immer nur Fehlermeldungen...

   Dim s As New NotesSession   
   Dim ws As NotesUIWorkspace
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim uidoc As NotesUIDocument
   Dim AIdoc As NotesDocument
   Dim unid As String
   
   Set db = s.currentdatabase
   Set view = db.GetView("(test)")
   Set aIdoc = view.GetFirstDocument
   
   If AIdoc Is Nothing Then
      Print "Fehler - kein Dokument vorhanden!"
   Else
      Set doc = ws.EditDocument(True,aidoc)
   End If

Hilfe!

[koehlerbv]

WELCHE Fehlermeldungen?
Wenn Du Option Declare gesetzt hättest, würde schon der Compiler meckern. Wo ist doc als NotesUIDocument deklariert?

Bernhard

[klaussp]

Object Variable not set!
--> Debugger bleibt in folgender Zeile stehen:
Set uidoc = ws.EditDocument(True,aidoc)


doc ist natürlich uidoc --> geändert, fehler bleibt aber

   If AIdoc Is Nothing Then
      Print "Fehler - kein Dokument vorhanden!"
   Else
      Set uidoc = ws.EditDocument(True,aidoc)
   End If

[koehlerbv]

Und in welcher Zeile meckert der Debugger (da das ErrorHandling schon fehlt)? Findet er ggf. die View "(test)" schon nicht?

Bernhard

[klaussp]

Zeile 18 -
Set doc = ws.EditDocument(True,aidoc)

View wird gefunden...

[MadMetzger]

Lies nochmal Bernhards erstes Posting, der hat dir da die Lösung schon genannt. Nutze Option Declare, dann wird der Compiler dir sagen, dass doc nicht deklariert wurde und somit auch nie gesetzt werden konnte.

[koehlerbv]

Nein, es ist Zeile 2. Besser wäre:
Dim ws As New NotesUIWorkspace 

Was man neben der eigenen Programmierung alles noch nebenbei machen kann 

Bernhard

[MadMetzger]

*argh* Du hast recht... Und das wäre mit Option Declare auch nicht zu verhindern gewesen. Aber mit eingeschaltetem Debuger hätte man das schon sehen können...

[koehlerbv]

Interessante Beobachtung beim Test von Klaus' Code in meiner Spiel-DB: In der von mir ausgewählten Ansicht ist das erste Dokument eines, was testweise erzeugt wurde mit "Erstes Attachment öffnen". NotesUIWorkspace.EditDocument machte dann nicht das Attachment auf, sondern ganz normal die Maske. Da habe ich auch was dazugelernt 

Bernhard

[klaussp]

@koehlerbv:
Dim ws As New NotesUIWorkspace  Wink

Das wars! DANKE