Problème de code pour "supprimer" en vb

raro Messages postés 140 Date d'inscription   Statut Membre Dernière intervention   -  
btissam2 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
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: 

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"
A voir également:

2 réponses

Réponse 1 / 2
btissam2 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   4
 
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
0
raro Messages postés 140 Date d'inscription   Statut Membre Dernière intervention   37
 
ça marche!!!!
merci
0
Réponse 2 / 2
btissam2 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   4
 
pas de quoi
0