Discussion :

[Daniel-Gérald]

Bonjour à tous, de retour ici après 2 années de maladie, donc j'ai beaucoup perdu mon access.

Voici mon problème.

J'ai un formulaire (A) basé sur une table(C) qui contient 3 champs (IdProduit, Produit et Checkbox)
J'ai un autre formulaire (B) basé sur une autre table(D) qui contient plusieurs champs ainsi que les champs (IdProduit et Checkbox) ce formulaire est en mode continue
Lorsque j'ouvre ma base de données j'ai une macro autoexec qui ouvre mes formulaire A et B

Dans les détails de mon formulaire (B) j'ai une liste déroulante basé sur la table (C)

Ce que je voudrait faire c'est la procédure événementielle (Après MAJ) qui mettra la valeurs -1 dans le checkbox du formulaire (A) au bon record set

Voici mon code qui ne fonctionne pas:

Code :

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

1
2
3
UPDATE[Forms]![F_A].CheckBox = -1
WHERE Me.IdProduit = [Forms]![F_A].IdProduit
[Forms]![F_A].Requery

Merci

[ClaudeLELOUP]

Bonjour et bon rétablissement,

Vois l’exemple en annexe.

Une requête de mise à jour de ta tableC, en fonction de la valeur de la zone de liste du formulaireB (requête enregistrée dans l'exemple) :

Code :

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

1
2
UPDATE TableC SET TableC.checkbox = -1
WHERE (((TableC.Produit)=[Formulaires]![FormulaireB]![LaZoneDeListe]));

Et ceci comme code associé à l’événement Après mise à jour de la zone de liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub LaZoneDeListe_AfterUpdate()
  DoCmd.SetWarnings False 'pour éviter le message
  DoCmd.OpenQuery "UneRequête" 'pour exécuter la requête
  DoCmd.SetWarnings True 'pour rétablir les messages
  Forms!FormulaireA.Requery 'pour actualiser le formulaireA
 
End Sub