Voici le code que j'ai mis sur un bouton pour confirmer la suppression d'enregistrements: MsgBox "Voulez vous vraiment supprimer le poste de la base ?", vbYesNo, "Confirmation de la suppression" If response = vbYes Then DoCmd.RunSQL "delete [poste].* from poste where nom = lstnom" DoCmd.RunSQL "delete [janvier].* from janvier where nom = lstnom" DoCmd.RunSQL "delete [fevrier].* from fevrier where nom = lstnom" DoCmd.RunSQL "delete [mars].* from mars where nom = lstnom" DoCmd.RunSQL "delete [avril].* from avril where nom = lstnom" DoCmd.RunSQL "delete [mai].* from mai where nom = lstnom" DoCmd.RunSQL "delete [juin].* from juin where nom = lstnom" DoCmd.RunSQL "delete [juiller].* from juillet where nom = lstnom" DoCmd.RunSQL "delete [aout].* from aout where nom = lstnom" DoCmd.RunSQL "delete [septembre].* from septembre where nom = lstnom" DoCmd.RunSQL "delete [octobre].* from octobre where nom = lstnom" DoCmd.RunSQL "delete [novembre].* from novembre where nom = lstnom" DoCmd.RunSQL "delete [decembre].* from decembre where nom = lstnom" Form_DEluser.Refresh End If
Que je reponde oui ou noo sur la msgbox il me supprime l'enregistrement, pq?
Marsh Posté le 27-04-2002 à 20:55:39
Voici le code que j'ai mis sur un bouton pour confirmer la suppression d'enregistrements:
MsgBox "Voulez vous vraiment supprimer le poste de la base ?", vbYesNo, "Confirmation de la suppression"
If response = vbYes Then
DoCmd.RunSQL "delete [poste].* from poste where nom = lstnom"
DoCmd.RunSQL "delete [janvier].* from janvier where nom = lstnom"
DoCmd.RunSQL "delete [fevrier].* from fevrier where nom = lstnom"
DoCmd.RunSQL "delete [mars].* from mars where nom = lstnom"
DoCmd.RunSQL "delete [avril].* from avril where nom = lstnom"
DoCmd.RunSQL "delete [mai].* from mai where nom = lstnom"
DoCmd.RunSQL "delete [juin].* from juin where nom = lstnom"
DoCmd.RunSQL "delete [juiller].* from juillet where nom = lstnom"
DoCmd.RunSQL "delete [aout].* from aout where nom = lstnom"
DoCmd.RunSQL "delete [septembre].* from septembre where nom = lstnom"
DoCmd.RunSQL "delete [octobre].* from octobre where nom = lstnom"
DoCmd.RunSQL "delete [novembre].* from novembre where nom = lstnom"
DoCmd.RunSQL "delete [decembre].* from decembre where nom = lstnom"
Form_DEluser.Refresh
End If
Que je reponde oui ou noo sur la msgbox il me supprime l'enregistrement, pq?