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,