[Access2000] demande d'explication (code inside)

demande d'explication (code inside) [Access2000] - VB/VBA/VBS - Programmation

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?

Reply

Marsh Posté le 27-04-2002 à 20:55:39   

Reply

Marsh Posté le 27-04-2002 à 21:25:07    

C'est bon g trouvé par contre j'ai tjs aucune idée pour l'autre post

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed