Recherche:

Bonjour,

peux-tu nous décrire la mise à jour que tu souhaite faire par la requête automatique pour pouvoir t'aider ?

Bonjour,

ton besoin n'est pas expliqué clairement.

tu souhaite calculer les quantités en stock de chaque produit?

Salut,
Voilà le code que j'ai déjà posté:


If Ageclient.Value < 20 Then
DoCmd.OpenReport "etat1", acViewPreview, , "Noclient=" & Noclient.Value
Else
If...

Bonjour,

peux tu nous préciser la ligne à laquelle l'erreur se produit ?

Il suffit de:
1) Mettre le code dans l'évènement Click de ton bouton
2) Enlever le paramètre (no client) de ta requête.

et ça doit marcher.

Salut,
Oui c possible avec VBA, voilà un exemple:


If Ageclient.Value < 20 Then
DoCmd.OpenReport "etat1", acViewPreview, , "Noclient=" & Noclient.Value
Else
If...

Salut,

On doit suivre une démarche pour trouver la source du problème.

Commences par tester qu'est ce que ça donne le code suivant:


msgbox(Me.Modifiable597)

Bonjour,

Tu peux mettre comme source du champs la formule suivante:


=VraiFaux(EstNull([champ_de_la_table]);"En cours";[champ_de_la_table])

Attention, ce champ ne doit pas avoir le même nom...

Bonjour Lincoln911,

Essayes d'utiliser la méthode findNext au lieu de la propriété RecordSource :


Private Sub ChampFormA_Click()

Dim rs As Recordset
Set rs =...