Discussion :

[hoaxpunk]

bonsoir,

j'ai un petit soucis au niveau de la gestion des valeurs dans mon recordset.
j'ai des tables dont les champs peuvent(accidentelement) etre vide, du coup, mon recordset l'est aussi (pour ce champs).

et lorsque je recupere ceci :

Code :

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

1
2
 
W_Doc.Bookmarks("Bkm_Besoin_Rayon").Range.Text = nullTest(RS_Recordset!Tbl_Besoin_Rayon)

j'ai une erreur :

invalid use of null

du coup pas possible de remplir mon bookmark car ca plante.

auriez vous une idée de comment faire en sorte que cette erreur ne se produise plus.

PS :
la fonction "nullTest" est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function nullTest(StringTest As String) As String    
 
 
 
    If IsNull(StringTest) Then
    nullTest = ""
    End If
 
 
End Function

[Heureux-oli]

essaie avec la fonction NZ.

Elle est plus simple à utiliser !

[Tofalu]

Le prototype de la fonction n'est pas bon. Un string ne peut être null (sans jeu de mots ). Vu que ton champ t'impose des null dans ton recordset, il te faut déclarer un variant dans ta fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function nullTest(StringTest As Variant) As String    
 
 
 
    If IsNull(StringTest) Then
    nullTest = ""
    End If
 
 
End Function

Mais ce que tu as fait c'est ni plus ni moins que de recréer la fonction Nz :

Code :

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

W_Doc.Bookmarks("Bkm_Besoin_Rayon").Range.Text = Nz(RS_Recordset!Tbl_Besoin_Rayon)

[hoaxpunk]

edit :

merci je viens de tester ca a l'air de fonctionner.

merci bcp

[mout1234]

edit :

merci je viens de tester ca a l'air de fonctionner.

merci bcp

Dans ce cas , n'oublies pas de cliquer sur