GetDocumentbyKey . . .

[Zsolt_Hermann]

Hallo Leute,

gibt es eine Möglichkeit abzufragen, ob ein Doc initialisiert wurde oder nicht.

Folgender Hintergrund:

Ich möchte prüfen, ob ein Dokuemt bereitsvorhanden ist oder nicht.

Dim session As New Notessession
Dim db As Notesdatabase
DIm view As Notesview
Dim doc As NotesDocument

Set db = session.Currentdatabase
Set view = db.GetView("XYZ")
Set doc = view.GetDocumentByKey("ABCDEF")

If ????????? then
 Messagebox "Doc not found"
Else
 weiter machen . . . . . . .
End IF

Habt Ihr eine Lösung für mich ?

Danke und Gruß

Zsolt Hermann

[Christopher]

Ja gibt es.

While Not (doc Is Nothing)
Wend

[Axel]

Hi,

wenn du nur ein Dokument hast, dann gehts auch so:

If Not (doc Is Nothing) Then
' doc initialisert
Else
'doc nicht initialisiert
End If

Für dein Beispiel würde das so aussehen:

If doc Is Nothing then
 Messagebox "Doc not found"
Else
 weiter machen . . . . . . .  
End IF


Axel