Discussion :

[lionski]

Bonjour,
Je fais une fonction dans une requête dans access qui fait la fusion de deux champ.

Le problème c'est que lorsque je fais directement cette fusion (concatiner) dans le générateur d'expression de la requête ça marche bien :
Chaine1 & " ----- " & Chaine2 & " "


Mais quand je passe par VBA :

Code :

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

1
2
3
Public Function Fusion_note(Chaine1 As String, Chaine2 As String) As String
Fusion_note = "" & Chaine1 & " ---- " & " " & Chaine2
End Function

j'obitient un message (#Erreur) comme résultat lorsque le champ1 ou le champ2 ou les deux sont vide ?


merci de me répondre

[philben]

bonjour,

je pense qu'en passant des variants à la fonction ca devrait fonctionner :

Code :

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

1
2
3
4
Public FUNCTION Fusion_note(Chaine1 AS Variant, Chaine2 AS Variant) AS String
Fusion_note = "" & Chaine1 & " ---- " & " " & Chaine2
End FUNCTION

cordialement,

Philippe

[Bqrt37]

Tu peut aussi utiliser la fonction Nz pour remplacer tes valeurs nulles par la valeur 0, ou "" dans ton cas

Code :

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

Nz(Chaine1;"")

ça marche avec les entiers en tous cas

[lionski]

bonjour,

je pense qu'en passant des variants à la fonction ca devrait fonctionner :

Code :

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

1
2
3
4
Public FUNCTION Fusion_note(Chaine1 AS Variant, Chaine2 AS Variant) AS String
Fusion_note = "" & Chaine1 & " ---- " & " " & Chaine2
End FUNCTION

cordialement,

Philippe

merci, mais il y a toujours la valeur "#Erreur" lorsque un des champ est vide :?

[Bqrt37]

Tu as essayé la fonction Nz ?

[lionski]

Tu as essayé la fonction Nz ?

voici un exemple de ma requête : exemple.zip
dans la requête j'ai illustré le cas en passant par une fonction de VBA et le cas en utilisant le générateur d'expression.

a+

[philben]

bonjour,

j'ai testé ma solution et ça fonctionne, je n'ai plus d'erreur...
J'utilise Access 2003.

Je vous propose ça mais sans aucune certitude : On retourne aussi un variant et on utilise NZ (comme proposé par bqrt37)

Code :

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

1
2
3
4
 
Public Function Fusion_note(Chaine1 As Variant, Chaine2 As Variant) As Variant
Fusion_note = Nz(Chaine1, "") & " ---- " & Nz(Chaine2, "")
End Function

En espérant que...

philippe

[lionski]

bonjour,

j'ai testé ma solution et ça fonctionne, je n'ai plus d'erreur...
J'utilise Access 2003.

Je vous propose ça mais sans aucune certitude : On retourne aussi un variant et on utilise NZ (comme proposé par bqrt37)

Code :

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

1
2
3
4
 
Public Function Fusion_note(Chaine1 As Variant, Chaine2 As Variant) As Variant
Fusion_note = Nz(Chaine1, "") & " ---- " & Nz(Chaine2, "")
End Function

En espérant que...

philippe

merci c'est parfait....