'---- schon gewählt ?
Set view = db.GetView( "(.werhatschon)" )
Set docSearch = view.GetFirstDocument
While Not ( docSearch Is Nothing )
If docSearch.name(0) = doc.name(0) Then
Msgbox "Schon gewählt !"
continue = False
Exit Sub
End If
Set docSearch= view.GetNextDocument( docSearch )
Wend