Discussion :

[SylvainJ]

Bonjour,

J'essaie de creer une fonction tres simple afin de remplir un champ VersionExterne pour tous les enregistrements d'une table a partir d'un autre champ VERSION_EXTERNE:

Si VERSION_EXTERNE n'est pas vide, on le recopie dans VersionExterne
sinon on met la chaine "na" dans VersionExterne

Voici la fonction:
Function VersionExt(x As String) As String

If x <> "" Then
VersionExt = x
Else
VersionExt = "na"
End If

End Function

Quand je l'utilise avec Access, pour les champs VERSION_EXTERNE non nuls, je recopie bien la chaine dans VersionExterne mais pour les autres j'obtiens #Erreur au lieu de "na".

Exemple:

VERSION_EXTERNE VersionExterne
G01R06C05 G01R06C05
G01R06C05 G01R06C05
G03R00C02 G03R00C02
G03R00C03 G03R00C03
#Erreur
#Erreur
#Erreur
#Erreur

J'ai beau tourner la fonction dans tous les sens, je ne comprend pas d'ou vient le pb.
Il y a peut-etre plus simple pour fait ca.

Merci de votre aide,
Sylvain

[random]

isnull
est different de ="" et de isempty

[SylvainJ]

Helas,

J'ai essaye les 2 et j'ai exactement le meme resultat.

Function VersionExt(x As String) As String

If IsNull(x) Then
VersionExt = "na"
Else
VersionExt = x
End If

End Function

Je ne comprend pas, c'est peut etre Access le pb

[Muhad'hib]

Salut,

Essaye comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function VersionExt(x As String) As String
 
If len(x & "") = 0  Then
     VersionExt = "na"
Else
     VersionExt = x
End If
 
End Function

A+

[SylvainJ]

Ca ne marche pas non plus.
J'ai l'impression que le pb est plus du cote d'Access que de la fonction elle meme.

Je me complique peut-etre la vie en voulant utiliser une fonction, il y a peut etre plus simple, mais je ne connais pas bien Access encore.
Si qq1 a des suggestions pour realiser ce que je veux: remplacer les champs vide par "na", je suis preneur.

Ciao,
Sylvain

[Muhad'hib]

Regarde l'aide de la fonction NZ

A+

[catoucat]

Oui essaye ca:

Code :

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

1
2
3
4
5
6
Function VersionExt(x As String) As String
 
' x s'il est non null, et na si x est null
     VersionExt = nz(x,"na") 
 
End Function

[SylvainJ]

Merci pour le tuyau,
La fonction me donne le meme resultat que precedemment (?!!!) mais en faisant directement NZ(VERSION_EXTERNE;"na") j'obtiens bien ce que je voulais.

Merci a tous,
Sylvain

[Muhad'hib]

Un flag alors ?