Domino 9 und frühere Versionen > ND6: Entwicklung

Fehler abfangen

(1/1)

RvM:
Ich habe ein kleines Script, das mir ein XML-File erstellt.
Wie fange ich dort den Fehler auf, wenn die Ansicht leer ist?
Sorry für die Frage - aber scripten ist nicht so mein Ding.


--- Code: ---Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim view As NotesView
Dim entry As NotesViewEntry
Dim nav As NotesViewNavigator

Set db = s.currentDatabase
Set view = db.GetView( "(XML)" )
Set nav = view.CreateViewNav()
Set entry = nav.GetFirst

Print "Content-type: text/xml"
Print |<?xml version="1.0" encoding="utf-8"?>|
Print "<Fundsache>"
Print "<Gegenstand>"+entry.ColumnValues(0)+"</Gegenstand>"
Print "</Fundsache>"

End Sub
--- Ende Code ---

DAU-in:
 If view.EntryCount = 0 Then
    Messagebox "No documents in view",, "View empty"
end if

Grüsse

Dau-in

RvM:
THX!!

Navigation

[0] Themen-Index