Discussion :

[josephadam]

Bonsoir à tous,
J'ai dans un formulaire un champ A Numérique d'un format 000 (ex : quand je tape 1 je reçois : 001) et une liste déroulante(cmb1) dont les valeurs sont : 670, 671 ,672, 673.
je veux concaténer dans un champ B le champs A et la valeur choisi de liste déroulante de telle façon que si je choisi de (cmb1) :671 et je tape dans champ A : 1 il s'affiche dans le champ B la valeur : 671001.
Merci.

[madefemere]

Bonsoir,

Du genre :

Code :

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

=[cmb1] & Format([ChampA];"000")

Bonne continuation

[jimbolion]

josephadam

Sur l’événement après mise à jour de cmb1

Code :

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

Me.Champ_B =  Me.cmb1 &  Right("000" & Trim(Str(Me.Champ_A)), 3)

JimBoLion

[jimbolion]

Oups désolé madefemere

Ta technique est plus condensé

Bonne soirée

[josephadam]

Bonjour,
ou dois je mettre le code ? est ce sur l'evenement AfterUpdate() de chmap B?
j'ai essaye avec ce code :

Code :

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

1
2
3
Private Sub champA_AfterUpdate()
Me.champA= [cmb1] & Format([champA], "000")
End Sub

mais le code ne va plus. je suis dans un formulaire A ou il y a un (cmb1) et un sous formulaire B ou il y a les champ A et B.
Merci.

[madefemere]

à la source du champB normalement. T'as pas besoin de code. Parce qu'à mon avis le champB est le résultat d'une opération donc n'a pas à être enregistré dans la table.

Si tu veux l'enregistrer, donc ChampB est bien dans la table il faut mettre sur les évènements AfterUpDate des champs ChampA et du cmb1 :

Code :

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

Me.champB= [cmb1] & Format(Me.[champA], "000")

@+

[josephadam]

BONSOIR,

Si tu veux l'enregistrer, donc ChampB est bien dans la table il faut mettre sur les évènements AfterUpDate des champs ChampA et du cmb1 :

oui si ce que je cherche mais je reçois une erreur sur ce code :

Code :

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

Me.champB= [cmb1] & Format(Me.[champA], "000")

peut être une question de préciser dans (me) formulaire et sous formulaire.
Merci.

[madefemere]

Contexte pas clair !!!!

Peux- tu mieux expliquer ton histoire de formulaire et sous-formulaire?

@+

[josephadam]

bonsoir,
voici un exemple simplifier de mon problème.

[jimbolion]

JosephAdma,

Pour faire référence à un formulaire Parent utilises cela :

Code :

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

Me.NumEmatric = Me.Parent![cmb1] & Format(Me.[iOuvr], "000")

J'ai vu dans ton exemple que sur la propriété après MAJ de ton contrôle cmb1 tu as inséré également un code. Ce contrôle n'a pas lieu d'être à ce niveau et doit être uniquement porté sur ton sous-formulaire.

JimBoLion

[josephadam]

Bonsoir ,
c'est parfait.
merci beaucoup.