Dokumente aus Ordner entfernen

[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

[skywook]

Habe jetzt den Code geändert. Aber gleiche Meldung.
Was mache ich falsch?

If uidoc.fieldGetText("DSuche") = "Kunden-Nr.(alt)" Then
   Dim vs As notesviewentrycollection
   Dim folderview As notesview
   Set folderview = db.GetView("Suche")
   Set vc = folderview.AllEntries
   Call vs.RemoveAllFromFolder( "Suche" )   => hier meckert der Debugger

[Axel]

Hi,

du hast vs deklariert und verwendest auch vs zum entfernen der Dokumente aus dem Ordner. Gefüllt wird aber die Variable vc, dass kann nicht funktionieren.

Da müsste so aussehen:

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


Axel

[koehlerbv]

Du hast kein Option Declare gesetzt - schreibe nie eine Zeile Code ohne diese Option.
Du deklarierst vs, instantiierst es aber nicht, sondern statt dessen vc.

HTH,
Bernhard