Do until object = nothing ?
17.08.2005 16:49:15
Dominic
benötige wieder Eure Hilfe!
Ich lese aus einer Lotus Notes datenbank alle einträge im ACL aus. So weit so gut. Mein problem ist das wenn alle Einträge abgearbeitet werden dann gibt mir das Object "aclentry" Nothing aus. Daher habe ich es mit der Zeile
Do Until aclentry = Nothing
versucht eine Schleife zu machen, leider ist dies "unzulässig". Wer hat da eine Idee wie kann die SChleife verlassen?
Sub check_ACL()
Dim app As Object
Dim db As Object
Dim acl As Object
Dim aclentry As Object
Dim name As String
Dim a As Variant
'On Error Resume Next
Set app = CreateObject("Notes.NotesSession")
Set db = app.getdatabase("..........", "............")
Set acl = db.acl
Set aclentry = acl.GetFirstEntry
name = aclentry.name
Do Until aclentry = Nothing
Set aclentry = acl.GetNextEntry(aclentry)
name = aclentry.name
'MsgBox name
Loop
Set acl = Nothing
Set db = Nothing
Set app = Nothing
End Sub
Vielen Dank im Voraus!
Gruß
Dominic
Anzeige