champ vide et message d'erreur

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:

---

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

bonjour,

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

Code:

---

1 2 3 4

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

---

cordialement,

Philippe

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

Code:

---

Nz(Chaine1;"")

---

ça marche avec les entiers en tous cas :)

Citation:

---

Envoyé par philben

bonjour,

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

Code:

---

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 :?

Tu as essayé la fonction Nz ?

Citation:

---

Envoyé par Bqrt37

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+

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:

---

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

Citation:

---

Envoyé par 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:

---

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....
:D