Discussion :

[CmzxNene]

Bonjour,

Je cherche à mettre du code sur un bouton qui, avant d'ouvrir un formulaire, me mettrait à jour un champ par rapport à un autre.

Je m'explique :
- sur formulaire Accueil j'ai un bouton qui me charge un formulaire
- avant cette commande, je voudrais mettre à jour ma table "Données" et en particulier le champ "Test" au regard du champ "DateLivraison"
soit si "DateLivraison" = Date alors "Test" = 3 et ceci pour tous les enregistrements.

Je pense qu'il faut faire une boucle, mais je n'en ai jamais fait.

Merci de votre aide
Cdt

[tee_grandbois]

bonjour,
Une boucle est inutile si cela concerne tous les enregistrements. Avant l'instruction Docmd.Openform (qui ouvre le formulaire) exécute cette requête de mise à jour:

Code :

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

1
2
3
dim strSQL as string
strSQL = "Update [données] set [Test]=3 where [DateLivraison] = date();"
Currentdb.execute strSQL, Dbfailonerror

[CmzxNene]

Bonjour tee

Et merci pour ce code
Je l'ai adapté et cela fonctionne parfaitement
C'est plus simple qu'une boucle.
Je vais pouvoir utiliser cette idée sur d'autres applications

Encore merci
Bien cordialement