Guten Morgen.
Ich habe da ein Problem (scheinbar) mit einem Ordner. Ich füge gewisse Dokumente in einen Ordner ein, und lassen dann diesen Ordner in eine Picklist auslesen. Nun kommt ab und zu diese Fehlermeldung.
Notes error: Alle zugehörigen Antwortdokumente werden zusammen mit ihren Hauptdokumenten aus dem Ordner entfernt. (NrAuswahl)
Kennt die Jemand und weiß jemand woran dies liegt, bzw. wie man dieses Problem lösen kann??
Hier noch der Code für das löschen und auslesen des Ordners:
Set viewsuche=db.Getview("NrAuswahl")
If Not viewsuche Is Nothing Then
If viewsuche.IsFolder Then
Set collection = viewsuche.AllEntries
If collection.count > 0 Then
Call collection.RemoveAllFromFolder( "NrAuswahl" )
End If
End If
End If
doc.NGefunden = ""
If dc.Count = 0 Then
Messagebox("Es wurden keine Dokumente gefunden")
Else
Call dc.PutAllInFolder("NrAuswahl")
Set collection = workspace.PickListCollection(1, False, _
"[Server]","[Diese DB]","NrAuswahl","Auswahl", _
"Bitte wählen Sie eine Produktionsanweisung aus")
End If
Danke schonmal im vorraus
CU
CT
HI@all
ich muss dieses alte Thema nochmal neu aufwärmen...
ich kriege immernoch den selben Fehler wie ganz oben genannt.
folgender Code steht im query open:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set viewsuche=db.Getview("aSuche")
If Not viewsuche Is Nothing Then
If viewsuche.IsFolder Then
Set collection = viewsuche.AllEntries
If collection.count>0 Then Call collection.RemoveAllFromFolder( "aSuche" )
End If
End If
Bei der Zeile
f collection.count>0 Then Call collection.RemoveAllFromFolder( "aSuche" )
kommt der oben genannte Fehler. Hat wer ne Ahnung woran das liegen mag?
DANKE EUCH CT