Access: Code VBA

Version imprimable

Access: Code VBA

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.

09/04/2013, 09h39
issoram

Bonjour,

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

Code:

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

Bonne journée.
09/04/2013, 15h03
johndi

1 pièce(s) jointe(s)

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
09/04/2013, 15h32
madefemere

Bonjour,

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

Code:

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

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

Bonne continuation

Bonjour,

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

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

Code:

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

Code:

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!!!