[AC-2007] Code VBA: Enlever les espaces

Code VBA: Enlever les espaces

Bonjour a tous,

Voici mon code:

Code:

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.

Afin de convertir des chaines nulles en chaine vide tu peux à partir d'Access 2007 utiliser la fonction Nz bien plus rapide que le test et la transformation de ta variable :

http://officesystemaccess.seneque.net/vba/nz.htm

Pour les espaces tu peux utiliser la fonction replace

Code:

NewString = replace("Enleve les espaces"," ","")

JimBoLion

Salut,

Peux-tu mettre un ou plusieurs exemple de ce que tu as en entrée et que tu veux en sortie ?

@+.