Fonction replace limité ? mal utilisé ? [Résolu]

[ReaseT]

Bonjour à tous,

J'ai depuis deux jour l'erreur suivante dans une applie qui marchait bien auparavant, certains enregistrements de la base contiennent des espaces (3 ou 4) que je retire avant comparaison

Pour info la ligne 165 correspond au temprdv = Replace(temprdv, " ", "")

Donc, voici l'erreur qui sort :

Microsoft VBScript runtime erreur '800a005e'

Invalid use of Null: 'Replace'

tableau_facturable.asp, ligne 165

et le code :

Code :

1
2
3
4
5
6
7
8
9
10
 
do while not recordset_2("date") = datefin
 temprdv = recordset_2("rdv")
 num_projet = Replace(num_projet, " ", "")
 temprdv = Replace(temprdv, " ", "")
   if temprdv = num_projet Then						
      conteur_jour=conteur_jour + 1
   end if
 recordset_2.movenext
loop

Voila, quelques choses de mal dans ce code ? Je pige pas pourquoi tout aller bien jusque la et d'un coup, c'est le bordel.

Merci pour votre aide

Greg

[ReaseT]

C'est bon, j'ai résolu le pbm trés simplement

Code :

1
2
3
4
 
If temprdv <> null then
temprdv = Replace(temprdv, " ", "")
End If

[J1]

Attention, ton idée de test est la bonne, mais on ne peut pas tester Null de cette manière. Dans l'état actuel de ton code, la ligne

Code :

temprdv = Replace(temprdv, " ", "")

ne sera jamais exécutée, même si temprdv n'est pas Null.

Je te conseille de remplacer ton test

Code :

If temprdv <> null then

par

Code :

If Not IsNull(temprdv) Then

Pour en savoir plus, tu peux consulter le dernier paragraphe de cette page.

[ReaseT]

Je viens de m'en rendre compte aprés un bug.

Merci a toi, tu m'as apporté la solution avant meme que je ne sois en face du probléme.