Ho provato sia con dao che con ado ma mi da il seguente problema:
Impossibile aggiungere o modificare il record. Nella tabella "pazienti" è necessario un record correlato.
Posto il codice (la macro1 fa aprire la mschera al record corrispondente):


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

' Cerca il record

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

If Not (RS.NoMatch) Then
MsgBox "Terapia già inserita"
DoCmd.RunMacro "Macro1"
Exit Sub
Else

RS.AddNew
RS!ID_PAZIENTE = Me!ID_PAZIENTE
RS.Update
DoCmd.RunMacro "Macro1"
End If

RS.Close