Discussion :

[macroute92]

Bonjour,
J'ai fais un menu déroulant de date dans un formulaire qui s'auto-incrémente à chaque mise à jour des tables et je voudrais utiliser ce menu déroulant pour effectuer un delete dans mes tables.

Exemple je sélectionne la date du 14/07/2012 dans mon menu déroulant et en cliquant sur un bouton 'Supr' de mon formulaire je voudrais supprimer dans ma table toutes les lignes inférieur ou égale à cette date.

Quelqu'un aurait-il une idée de comment faire la manipulation

Merci d'avance pour vos réponse

[jimbolion]

Macroute92 bonjour

Plusieurs techniques peuvent répondre à ton cas mais en voilà une efficace :

Tu crées une requête de type suppression grâce à l'assistant. Tu sélectionnes le champ date concerné souhaité et ajoute un filtre (condition) du type :

<forms![MonForm]![Monchamp] ou <= si la date sélectionnée doit être prise en compte

Tu enregistres cette requête et lui donne un nom (ex. R_deleteDate)

ensuite dans l’événement <SurClic> associé à ton bouton de suppression tu insères entre le sub et le end sub cette portion de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim qry As DAO.QueryDef
DoCmd.SetWarnings False   ' pas de confirmation de la suppression
Set qry = CurrentDb.QueryDefs("R_deleteDate")
qry.Execute
DoCmd.SetWarnings True

Cordialement

Jimbolion