Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: skywook am 25.01.05 - 10:48:19

Titel: Dokumente aus Ordner entfernen
Beitrag von: skywook am 25.01.05 - 10:48:19

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
   
......

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: Axel am 25.01.05 - 10:58:22

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

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: koehlerbv am 25.01.05 - 11:03:34

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

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: skywook am 25.01.05 - 11:10:55

- 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" )

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: Axel am 25.01.05 - 11:13:22

Hi,

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


Axel

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: skywook am 25.01.05 - 11:28:23

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

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: Axel am 25.01.05 - 11:35:43

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

Titel: Re: Dokumente aus Ordner entfernen
Beitrag von: koehlerbv am 25.01.05 - 11:36:56

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