OVH Cloud OVH Cloud

MàJ d'un champ apres selection d'un autre champ

13 réponses
Avatar
Eric
Salut a tous,
Depuis plusieurs jours je bloque la dessus. La mise a jour d'un deuxième
champ ( Ref) après la sélection dans une liste de la (designation) du
produit.
J'ai deux tables une T_Principale et une autre T_Appareil avec des colonnes
"Designation" & "Ref" et un formulaire basé sur la table principale. Dans ce
formulaire j'ai deux champs, une liste déroulante "Lis_Designation" qui est
le nom de la liste du champ "Designation" et un champ "Ref". Quand je
sélectionne la désignation d'un produit j'aimerais que le champ "Ref" se
remplisse automatiquement

En fouillant sur le net j'ai trouve des solutions mais ça ne marche pas.

SOLUTION 1 trouve chez http://access.seneque.free.fr/bases_exemples.htm

Private Sub Lis_Designation_Exit(Cancel As Integer)
'Pour la mise a jour du champ ref par rapport designation'
varref = DLookup("[Ref]", "T_ Appareil", "[Designation]='" &
Forms![F_Entretien]![Lis_Designation].Value & "'")
End Sub

SOLUTION 2 trouve dans un livre et dans un forum

varref =DLookup ("[Ref]", "T_Appareil", "[Designation] = ' " &
[Lis_Designation]&" ' " )
Me! [Ref] = varref

Ils n'explique pas ou les mètres moi je l'ai mis dans le champ "Designation"
Propriété, événement, après mise à jour, procédure événementielle et je ne
sais pas s'il faut faire quelle chose dans le champ "Ref"

3 réponses

1 2
Avatar
Raymond [mvp]
Bonjour.

ça m'a l'air bon, je ne vois apparemment pas d'erreur de syntaxe dans cette
fonction.
peux-tu mettre des points d'arrêt dans l'exécution du code et vérifier la
valeur des champ dans le dlookup ?

si tu ne trouves pas passe moi ta base par mail en fichier zip en enlevant
le XYZ. de mon adresse.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Eric" a écrit dans le message de
news:
Je n'ai pas trop compris ta réponse, voila ce que me donne le code
Me![Ref] = DLookup("[Ref]", "T_ Appareil", "[Designation] = '" &
[Lis_Designation] & "'" & " And [Appareil ID] = " & Me.Appareil ID)

Appareil ID étant le nom de la colonne de ma table T_ Appareil contenant
la

clé numérique

A demain, merci





Avatar
3stone
Salut,

"Raymond [mvp]"
ça m'a l'air bon, je ne vois apparemment pas d'erreur de syntaxe dans cette
fonction.



le Me.Appareil ID à la fin est bizarre, non ?


& " And [Appareil ID] = " & Me.[Appareil ID])

devrait le faire.



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Eric
Ca n marche toujours pas même avec les [, ce n'est pas trop grave je vais
donner des détails en plus dans désignation pour éviter de me tromper. Ce
n'est peu être pas plus mal ça évitera les confusions.

Merci de votre aide et de votre patience
1 2