Problème de code pour "supprimer" en vb
raro
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
-
btissam2 Messages postés 22 Statut Membre -
btissam2 Messages postés 22 Statut Membre -
salut à tous!
je suis en train de faire une petite application du genre "visdata" et je n'arrive pas à coder correctement "supprimer".
voici mon code:
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"
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"
2 réponses
-
salut
pour ta commande de suppression je te suggéres ce ptit simple code :
dans ta procédure
'tu déclare une variable
dim rep as string
rep=msgbox ("êtes vous sûr de vouloir supprimer",vbokcancel+vbquestion,"supprimer")
if rep =vbok then
rs3.delete
end if
'aprés tu ajoute tes procédure de déplacement
j'éspère que ça va marcher -
