je suis en train de faire une petite application du genre "visdata" et je n'arrive pas à coder correctement "supprimer".
voici mon code:
Private Sub Commandsupprimer_Click()
'supprimer l'enr courant
'demander confirmation
'si la reponde est égale à oui alors je détruis l'enr courant
If MsgBox("Voulez-vous supprimer l'enregistrement : " & Str(rs3("nom-eleve")), vbYesNo) = vbYes Then rs3.Delete
'se deplacer sur l'enr suivant
rs3.MoveNext
'si je suis à la fin je me positionne sur le dernier enr
If rs3.EOF Then rs3.MoveLast
'synchroniser ecran
p_synchro_ecran
je vous remercie d'avance de l'aide que vous m'apporterez
"Donne un poisson à un homme, il mangera une journée.
Appprends-lui à pêcher, il mangera toute sa vie"
merci