REMPLIR CHAMPS ACCESS

Bonjour,

j'ai une base de données avec seulement une seule table contenant 5 champs IPP(Numero), Nom,Prenom,Naissance,Sexe, Nomjeunefille.

j'aurais souhaité que quant j'insere le Nom et le prenom les autres champs se remplissent automatiquement:

j'ai un code mais il y a des erreurs:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim N As String
Dim P As String
Dim Nom As String
Dim Prenom As String
Dim IPP As Integer
Dim Naissance As Date
Dim Sexe As String
Dim Nomjf As String

Set db = CurrentDb
'sql = "SELECT * FROM PATIENT where Nom = " & Chr(128) & Forms!FORM_PATIENT!Nom & Chr(128) & " AND Prénom = " & Chr(128) & Forms!FORM_PATIENT!Prenom & Chr(34)
N = Forms!FORM_PATIENT!Nom
P = Forms!FORM_PATIENT!Prenom
sql = "SELECT * FROM PATIENT where Nom=" & Chr(34) & N & Chr(34) & "AND Prénom=" & Chr(34) & P & Chr(34)
Set rs = db.OpenRecordset(sql)
rs.MoveFirst
While Not rs.EOF
IPP = rs!IPP
Naissance = rs!Naissance
Sexe = rs!Sexe
Nomjf = rs!Nomjeunefille
rs.MoveNext
Wend
Forms!FORM_PATIENT!IPP = IPP
Forms!FORM_PATIENT!Naissance = Naissance
Forms!FORM_PATIENT!Sexe = Sexe
Forms!FORM_PATIENT!Nomjeunefille = Nomjeunefille
End Sub

quelqun aurait une solution

PS: jai mon champs IPP et NAISSANCE qui integre automatiquementavec de fausse valuers sinon les autres champs ne sinsere pas automatiquement

si quelqun aurai une solution jen serai tres reconnaissant merci