Problem mit einem Ordner

[C_T]

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:

Code

	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

[Axel]

Ich hatte solche Meldungen schon mal in Verbindung mit Speicher- und Replizierkonflikten.

D.h. es gab damals zu den Dokumenten die in einem Ordner abgelegt waren Konfliktdokumente. Prüf mal in die Richtigung.

Axel
 

[C_T]

Ne Speicher und Replezierkonflikte habe ich nicht.

[Axel]

Hast du den Ordner mal gelöscht und neu erstellt? Vielleicht liegt das noch irgendwelcher Schrott rum.


Axel

[C_T]

kann ja eignetlcih nicht sein, da der Inhalt des Ordners ja immer wieder gelöscht wird.

[Axel]

Ich hab' eigentlich schon Pferde k.... sehen.


Axel

[C_T]

Ich will den Tag zwar nich vor dem Abend loben aber,

bis jetzt ist der Fehler nicht wiederaufgetreten, wobei der voher auch nur sporadisch aufgetauacht ist.

Schonmal Danke viellecht melde ich mich bezüglich dieses Fehlers nochmal

[Axel]

Hast du irgendwas gemacht?


Axel

[C_T]

ich habe nochmal den ordner gelöscht und neu angelegt, wie gesagt das war nen sporadischer fehler der bei mir nur ab und an aufgetaucht ist. Ich will mal hoffen das es geklappt hat....

[C_T]

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:

Code

	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

Code

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

[Tode]

Wenn in dem Ordner nur Dokumente einer "Dokumentenart" abgelegt sind, dann deaktiviere mal die Option "Antwortdokumente hierarchisch anzeigen" des Ordners. Damit sollte die Fehlermeldung nicht mehr kommen.

Wenn Du eine Antwort- Hierarchie benötigst, dann wird es sowieso schwierig, weil es ziemlich übel ist, Dokumente (besonders als Collection) in einen solchen Ordner hinein oder aus einem solchen Ordner heraus zu bekommen...

Gruß
Tode

[koehlerbv]

Dieser "Fehler" ist eher ein Warnhinweis, erzeugt aber tatsächlich eine Fehlernummer und lässt dadurch den eigenen ErrorHandler (oder den Notes-internen) losschlagen.
Sie kommt nur, wenn es tatsächlich innerhalb der Collection Dokumente mit Antwortdokumenten gibt.
Und man kann diesen "Fehler" nicht verhindern.

Mir ist kein anderer Weg bekannt, als kurzzeitig vor der Zeile mit RemoveAllFromFolder den ErrorHandler ausser Betrieb zu setzen (On Error Resume Next) und danach den alten Handler wieder in Amt und Würden zu setzen.

Bernhard

[C_T]

kannst du mir nen code posten wie das mit dem error handling geht?

habe mit dem noch nciht so viele erfahrungen...


P.S.
scheint mit dem nicht anzeiegn der antwortdokumente funktioniert zu haben...

[Axel]

Guckst du hier:  Best Practices: Error Handling in Lotus Script


Axel

[koehlerbv]

Resume Next wurde auch hier diskutiert: [LS-Optimierung] Resume Next und Errorhandling

Bernhard

[C_T]

Nochmals DANKE