Hallo Axel,
danke für Deine Hilfe. Ich habe das ja alles schon ausprobiert, aber es klappt einfach nicht. Auf einem Rechner arbeitet die Funktion einwandfrei, auf einem anderen Rechner versucht Notes auf den gemeinsamen Ordner zuzugreifen.
Ich habe hier mal den Code eingefügt. Der Ordner "folder_PrivateSearch" ist Gemeinsam, bei erster Nutzung persönlich.
If (ws.DialogBox("subform_Search", True, True, True, False, False, False, "Suchen", dialog, True, True)) Then
Call ws.SetTargetFrame("frame_Main")
Call ws.CurrentDatabase.OpenView("folder_PrivateSearch")
Set docs = db.Search(dialog.s_Formula(0), Nothing, 0)
' Call db.GetView("folder_PrivateSearch").Remove... funktioniert nicht
Call ws.CurrentView.View.AllEntries.RemoveAllFromFolder("folder_PrivateSearch")
Call docs.PutAllInFolder("folder_PrivateSearch")
Call profile.Save(False, False)
End If
Vielleicht fällt irgend jemandem ein grober Fehler meinerseits auf.
Danke,
Joachim