Bonjour a tous,

Voici mon code:

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
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
 
NombreentieraProductor = (Nombre_1_Productor) + " " + (Nombre_2_Productor) + " " + (Apellido_1_Productor) + " " + (Apellido_2_Productor)
 
codigoProductor = String(1, Nombre_1_Productor) + String(1, Nombre_2_Productor) + String(1, Apellido_1_Productor) + String(1, Apellido_2_Productor) + "-" + Mid(Comunidad, 1, 4)
 
End Sub
Il se px que mon productor ne possede qu un seul nom de famille et un seul prenom. Dans le cas present cela me donne des espaces en trop et je souhaiterai les suprimer...

Pourriez vous me dire m indiquer la methode a suivre SVP?

Merci pour votre aide.