ok, dann geb ich das auf.
und noch Mal: ich habe keine Messagbox in der Maske !!!!!!!
Ich habe zum Test nochmal eine neue jungfräuliche Maske erstellt, nur mit dem Code im Querysave..und wieder kommt beim Ausführen des Stampall der Popup.
Mein Code im Querysave:
Dim note As NotesDocument
Set note = Source.Document
Dim Session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
'Suche alle Dokumente die zu diesem Bereich gehören und aktualisiere Leserfeld
Dim searchformula As String
searchformula = {(Form="Stelle" | Form="Document") & Bereich="}+ note.Stammdatenbereich &{"}
Dim collStelle As NotesDocumentCollection
Set collStelle = db.search(searchformula,Nothing,0)
Call collStelle.StampAll("Tescht",note.BereichLeser)
Und als letztes Wunder: Es tritt auf beim 7.0.2. aber nicht bei 6.5.5
