= RS![Code] RSS![Name] = RS![Name] RSS![Taille] = RS![Taille] RSS![Date de néssance] = RS![Date de néssance] RSS![Lieu de néssance] = RS![Lieu de néssance] RSS![Phone] = RS![Phone] RSS![Diplôme 1] = RS![Diplôme 1] RSS![E-mail] = RS![E-mail] RSS![Adresse] = RS![Adresse] RSS![DOM] = RS![DOM] RSS![Profession] = RS![Profession] RSS![Club actuel] = RS![Club actuel] RSS![Niveau] = RS![Niveau] RSS![Zone] = RS![Zone] RSS![Ligue] = RS![Ligue] RSS![fonction] = RS![fonction] RSS![Quelle équipe] = RS![Quelle équipe] RSS![N° Tel du Club] = RS![N° Tel du Club] DoEvents RSS.Update RSS.Requery Case vbNo: RSS.AddNew RSS![N] = "RE" & RS![N] RSS![Prénom] = RS![Prénom] RSS![Code] = RS![Code] RSS![Name] = RS![Name] RSS![Taille] = RS![Taille] RSS![Date de néssance] = RS![Date de néssance] RSS![Lieu de néssance] = RS![Lieu de néssance] RSS![Phone] = RS![Phone] RSS![Diplôme 1] = RS![Diplôme 1] RSS![E-mail] = RS![E-mail] RSS![Adresse] = RS![Adresse] RSS![DOM] = RS![DOM] RSS![Profession] = RS![Profession] RSS![Club actuel] = RS![Club actuel] RSS![Niveau] = RS![Niveau] RSS![Zone] = RS![Zone] RSS![Ligue] = RS![Ligue] RSS![fonction] = RS![fonction] RSS![Quelle équipe] = RS![Quelle équipe] RSS![N° Tel du Club] = RS![N° Tel du Club] DoEvents RSS.Update RSS.Requery Case vbCancel: ' Enter your code here End Select Else RSS.AddNew RSS![N] = RS![N] RSS![Prénom] = RS![Prénom] RSS![Code] = RS![Code] RSS![Name] = RS![Name] RSS![Taille] = RS![Taille] RSS![Date de néssance] = RS![Date de néssance] RSS![Lieu de néssance] = RS![Lieu de néssance] RSS![Phone] = RS![Phone] RSS![Diplôme 1] = RS![Diplôme 1] RSS![E-mail] = RS![E-mail] RSS![Adresse] = RS![Adresse] RSS![DOM] = RS![DOM] RSS![Profession] = RS![Profession] RSS![Club actuel] = RS![Club actuel] RSS![Niveau] = RS![Niveau] RSS![Zone] = RS![Zone] RSS![Ligue] = RS![Ligue] RSS![fonction] = RS![fonction] RSS![Quelle équipe] = RS![Quelle équipe] RSS![N° Tel du Club] = RS![N° Tel du Club] DoEvents RSS.Update RSS.Requery End If DoEvents RS.MoveNext Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRSS.Open "Select * From Table1 where N like '" & RS!N & "'", CN1, adOpenDynamic, adLockOptimistic If RSS.RecordCount > 1 Then .... else ici