Axels Sache kommt ins Event QuerySave der Maske rein.
Basiert auf dem View ALL und auf dem Feldnamen Geraetename.
Wenn eine vorhande Nummer gefunden wird, soll das Speichern abgebrochen werden, das kommt dann als continue=false hier dazwischen rein:
...
If doc.IsNewNote Then 'Prüfung auf doppelte Dokumente nur wenn Dokument neu
Set tmpdoc = view.GetDocumentByKey( doc.Geraetename(0) )
If tmpdoc Is Nothing Then
'Gerät noch nicht vorhanden
Else
'Gerät bereits in der Datenbank vorhanden
continue=false
msgbox "AHA, erwischt!!!"
exit sub
End If
End If
...