l'errore credo ti appaia quando inserisci un nuovo paziente, infatti la scritta che ti appare indica una violazione della chiave primaria, ovvero tenti di inserire dei record su una tabella correlata senza che ci sia un record principale. per ovviare al problema apri la maschera "privato" in visualizzazione struttura --> tasto desto sul pulsante "inserimento multiplo" --> proprietà --> ti si aprirà una maschera a schede --> evento --> su click --> sulla destra dovrebbe esserci un piccolo pulsantino con tre puntini, lo clicchi --> ti si apre l'editor di vba e dovresti vedere questo:
Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "m_inser_multiplo"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando31_Click:
Exit Sub

Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click

End Sub
ora aggiungi la scritta in rosso esattamente dove l'ho messa.

Private Sub Comando31_Click()
On Error GoTo Err_Comando31_Click
DoCmd.RunCommand acCmdSaveRecord
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "m_inser_multiplo"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando31_Click:
Exit Sub

Err_Comando31_Click:
MsgBox Err.Description
Resume Exit_Comando31_Click

End Sub
fammi sapere se funziona.

ciao