Ciao a tutti.
Sto provando a inserire un record nuovo solo se non già presete, ma mi da qualche errore...mi aiutate?


Private Sub Comando6_Click()

Dim RS As Recordset

' apre la tabella
Set RS = CurrentDb.OpenRecordset("ANNO1")

' Cerca il record

RS.Index = "ID_PAZIENTI"
RS.Seek "=", Me!ID_PAZIENTI

If RS!ID_PAZIENTI = Me!ID_PAZIENTI Then
MsgBox "Attenzione codice già esistente"

Else
RS.AddNew
RS!ID_PAZIENTI = Me!ID_PAZIENTI
RS.Update

End If

RS.Close

' aggiorna la form
Me.Requery

DoCmd.OpenForm ("ANNO1")

End Sub