Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: klaussp am 15.12.06 - 16:47:57
-
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!
-
WELCHE Fehlermeldungen?
Wenn Du Option Declare gesetzt hättest, würde schon der Compiler meckern. Wo ist doc als NotesUIDocument deklariert?
Bernhard
-
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
-
Und in welcher Zeile meckert der Debugger (da das ErrorHandling schon fehlt)? Findet er ggf. die View "(test)" schon nicht?
Bernhard
-
Zeile 18 -
Set doc = ws.EditDocument(True,aidoc)
View wird gefunden...
-
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.
-
Nein, es ist Zeile 2. Besser wäre:
Dim ws As New NotesUIWorkspace ;)
Was man neben der eigenen Programmierung alles noch nebenbei machen kann ;D
Bernhard
-
*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...
-
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
-
@koehlerbv:
Dim ws As New NotesUIWorkspace Wink
Das wars! DANKE