Discussion :

[outilsuiviedegestion]

Bonjour,

j'essaye d'écrire un code en VBA qui exécutera les lignes suivantes :
1) si l'utilisateur a rempli le champ dans le formulaire B
2) alors la valeur de ce champ est reporté dans le champ du formulaire A

1') si l'utilisateur n'a pas rempli le champ dans le formulaire B
2') alors la valeur de ce champ n'est pas reporté dans le champ du formulaire A
3') le champ du formulaire A - garde sa valeur initiale si il a été rempli au préalable ou - reste vide si il n'a pas été rempli au préalable

Pour l'instant j'ai écris ça :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CHAMP_B_BeforeUpdate(Cancel As Integer)
If Forms("[CHAMP B]").Controls("[CHAMP B]") = 1 Then
   Forms("[CHAMP A]").Controls("[CHAMP A]") = 1
End If
If Forms("[CHAMP B]").Controls("[CHAMP B]") =  "" Then
   Forms("[CHAMP A]").Controls("[CHAMP A]") =  '???? : la valeur ne se modifie pas 
End If
End Sub

Comment je peux remplacer 1 et définir une variable ?
Comment je peux faire 3') ?

[Ric500]

Salut,

Pour commencer j'utiliserais l'événement "After_Update",

Et j'y mettrais si ChampB reçoit une valeur numérique:

Code :

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

If nz([Champ B],0)<>0 then forms![Champ A]![Champ A]=[Champ B]

Si champB reçoit une valeur AlphaNumérique:

Code :

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

If nz([Champ B],"")<>"" then forms![Champ A]![Champ A]=[Champ B]

J'espère que j'ai bien compris ta question

[outilsuiviedegestion]

Merci Ric500, ça marche impécablement. J'ai repris ton code et ça fonctionne même quand les champs sont des dates et quand les champs sont des prix.
Après j'ai laissé le BeforeUpdate car avec le AfterUpdate j'obtenais l'erreur suivante :

"L'expression Après Maj entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure de même nom."