Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: RvM am 03.08.09 - 13:37:27

Titel: Fehler abfangen
Beitrag von: RvM am 03.08.09 - 13:37:27
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
Titel: Re: Fehler abfangen
Beitrag von: DAU-in am 03.08.09 - 13:40:17
 If view.EntryCount = 0 Then
    Messagebox "No documents in view",, "View empty"
end if

Grüsse

Dau-in
Titel: Re: Fehler abfangen
Beitrag von: RvM am 03.08.09 - 13:52:52
THX!!