Domino 9 und frühere Versionen > Entwicklung

Dokumente aus Ordner entfernen

(1/2) > >>

skywook:
Hallo,
habe einen Ordner "Suche" in diesen werden die Dokumente von einer Collection eingestellt. Vorher soll dieser noch geleert werden.

Bekomme leider eine Fehlermeldung: Object variable not set
Für einen Tipp wäre ich dankbar.

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
   
Set db = session.CurrentDatabase
Set ws = New notesuiworkspace
Set uidoc = ws.currentDocument
   
If  uidoc.fieldGetText("SucheKK") = "" Then
Messagebox "Keine Suchkriterium angegeben" , 0 + 16, "Fehler"
Exit Sub      
End If
   
Dim keys(1) As String
keys(0) = uidoc.fieldGetText("Bestand")
keys(1) = uidoc.fieldGetText("SucheKK")
   
If uidoc.fieldGetText("DSuche") = "Kunden-Nr.(alt)" Then
   Dim foldercollection As notesdocumentcollection
   Dim folderview As notesview
   Set folderview = db.GetView("Suche")
   Set vc = folderview.AllEntries
   Call foldercollection.RemoveAllFromFolder( "Suche" )
End If
   
......

Axel:
Hi,

so beim schnelle überfliegen ist mir aufgefallen, das die Variable vc nicht deklariert ist.

If uidoc.fieldGetText("DSuche") = "Kunden-Nr.(alt)" Then
   Dim foldercollection As notesdocumentcollection
   Dim folderview As notesview
   Set folderview = db.GetView("Suche")
   Set vc = folderview.AllEntries
   Call foldercollection.RemoveAllFromFolder( "Suche" )
End If

Axel

koehlerbv:
Solche Fehlermeldungen bitte immer nur mit Angabe der fehlerhaften Zeile posten !! Das Axel sich die Mühe gegeben hat und die Stelle auch noch gleich gefunden hat, war ausgemacht freundlich.

Bernhard

skywook:
- Danke Axel für die schnelle Antwort.

- Sorry, Bernhard mein Fehler.

Aber der Debbuger meckert immer noch mit der gleichen Fehlermeldung. Und zwar an dieser Stelle:

Call foldercollection.RemoveAllFromFolder( "Suche" )

Axel:
Hi,

du hast zwar die Variable foldercollection deklariert, aber du füllst sie nirgends.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite