Discussion :

[johndi]

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.

[issoram]

Bonjour,

Avec la fonction Trim (supprime les espaces à droite et à gauche d'une chaîne) :

Code :

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

NombreentieraProductor = Trim((Nombre_1_Productor) + " " + (Nombre_2_Productor)) + " " + Trim((Apellido_1_Productor) + " " + (Apellido_2_Productor))

Bonne journée.

[johndi]

Hola,

Merci pour vos reponses.

La fonction Trim aurait pu correspondre a mon besoin. Cependant le probleme c est qu il se px que un productor n a qu un seul apellido ou un nombre.

Mon probleme lorsque la formule s execute et que tous les control ne sont rempli, le resulta est avec un espace en trop.

Ce que je voudrais c est en fait presiser que lorsque un champs n est pas rempli, tu passe a l autre ou bien avoir une fonction qui me permetrait de concatener ts les champs mais qui suprimerai les espace en trop. Car dans mon cas je souhaite tjrs garder un espace entre les mots...

Merci pour votre aide...

voici mon formulaire

[madefemere]

Bonjour,

Est-ce que la fonction Replace ne donnerait pas le résultat escompté par :

Code :

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

NombreentieraProductor = Replace (NombreentieraProductor,"  "," ")

après la ligne 19. Remplacer les 2 espaces par 1 seul espace.

Bonne continuation

[nico84]

Bonjour,

Ce n'est pas automatique, il faut le programmer (ou faire une petite fonction) :

Code :

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

1
2
3
4
Nombre_*_Productor = trim(nz(Nombre_*_Productor))
...
 
NombreentieraProductor = Nombre_1_Productor + iif(len(Nombre_2_Productor)>0, " " + Nombre_2_Productor, "") + ...

[johndi]

Code :

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

1
2
3
Nombre_1_Productor = Trim(Nz(Nombre_1_Productor))
 
NombreentieraProductor = Nombre_1_Productor + IIf(Len(Nombre_2_Productor) > 0, " " + Nombre_2_Productor, "") + IIf(Len(Apellido_1_Productor) > 0, " " + Apellido_1_Productor, "") + IIf(Len(Apellido_2_Productor) > 0, " " + Apellido_2_Productor, "")

Merci pour ton aide. Cependant au lieu de m enlever les espaces il m en rajoute... Auais tu une solution?

Dsl je suis vraiment debutant sur le VBA...

Merci pour ton aide

[johndi]

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
28
29
30
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
 
Nombre_1_Productor = Trim(Nz(Nombre_1_Productor))
Nombre_2_Productor = Trim(Nz(Nombre_2_Productor))
Apellido_1_Productor = Trim(Nz(Apellido_1_Productor))
Apellido_2_Productor = Trim(Nz(Apellido_2_Productor))
 
NombreentieraProductor = Nombre_1_Productor + IIf(Len(Nombre_2_Productor) > 0, " " + Nombre_2_Productor, "") + IIf(Len(Apellido_1_Productor) > 0, " " + Apellido_1_Productor, "") + IIf(Len(Apellido_2_Productor) > 0, " " + Apellido_2_Productor, "")
 
 
 
End Sub

Merci!!! j ai trouve la solution. en cherchant un peu on y arrive! Merci en ts cas pour votre aide a tous!!!