Private Sub Campo2_BeforeUpdate(Cancel As Integer)
Dim Rs As Recordset
Set Rs = DBEngine(0)(0).OpenRecordset("SELECT COUNT(*) AS Doppione FROM anag1 WHERE Campo2='" & Me!Campo2 & "'")
If Rs.Fields("Doppione") > 0 Then
MsgBox "impossibile effettuare l'inserimento perchè" & vbCrLf & "il valore ==> " & Campo2 & " <== è già presente" & vbCrLf & "per il record " & ID, vbCritical, "Attenzione !"
Cancel = True
End If
Rs.Close
Set Rs = Nothing
End Sub