Discussion :

[johndi]

Bonjour a tous,

Me revoici avec un nouveau post...

Cette fois ci je souhaite concatener un chanps qui fait partie d une liste deroulante. Je m explique,

je possede un champ nomme Codigo Productor:

Sur ce champs je concaten la premiere lettre
- Nombre 1 productor
- Nombre 1 productor
- Apellido 1 productor
- Apellido 1 productor

Et les 4 premiere lettre du champ Comunidad. Ce champs est une liste deroulante lie de mon autre table T_Comunidad. Le souci avec mon code(voir plus loin) c est qu ilme prend son code, cad. pour un nom Comunidad(Alpaca =1) c est ce dernier numero qu il va m affiche dans la concatenation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Organizacion_AfterUpdate()
 
If IsNull(Nombre_1_Productor) Then
Nombre_1_Productor = " "
End If
 
If IsNull(Nombre_2_Productor) Then
Nombre_2_Productor = " "
End If
 
 
If IsNull(Apellido_1_Productor) Then
Apellido_1_Productor = " "
End If
 
 
If IsNull(Apellido_2_Productor) Then
Apellido_2_Productor = " "
End If
 
 
Me!NombreentieraProductor.Value = Me![Nombre_1_Productor] & " " & Me![Nombre_2_Productor] & " " & Me![Apellido_1_Productor] & " " & Me![Apellido_2_Productor]
 
 
codigoProductor = Replace(String(1, Nombre_1_Productor) + String(1, Nombre_2_Productor) + String(1, Apellido_1_Productor) + String(1, Apellido_2_Productor) & "-" & (Comunidad), " ", vbNullString)
 
End Sub

Je vous transmet aussi en piece jointe des print screen.

Merci beaucoup pour votre aide,

[madefemere]

Re-,

Tu peux utiliser les autres colonnes d'une zone de liste avec sa propriété Column.

Par exemple :

Code :

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

Comunidad.column(1)

Fait référence à la deuxième colonne de ta liste déroulante et ainsi de suite.
Attention : la numérotation des colonnes des zones de liste commence à 0

Bonne continuation.

[johndi]

Re,

Merci pour ta reponse...

Mais pourais tu m en dire plus Stp sur le code?

Debutant en VBA...

Merci pour ton aide

[madefemere]

Si j'ai bien compris, tu définis la valeur du champ résultat ici (ligne 25) :

Code :

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

codigoProductor = Replace(String(1, Nombre_1_Productor) + String(1, Nombre_2_Productor) + String(1, Apellido_1_Productor) + String(1, Apellido_2_Productor) & "-" & (Comunidad), " ", vbNullString)

Et bien tu remplaces ton (Comunidad) par Comunidad.column(X)

X étant le numéro de colonne comme indiqué dans mon précédent message.

[johndi]

Merci beaucoup,

c est exactement ce que je cherchais!!!!!

Merci pour ton temps et ta disponibilite...