cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 2013
-
16 sept. 2005 à 10:12
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 2013
-
16 sept. 2005 à 10:40
salut
je coince sur ce message, que j'ai dans le cas suivant:
fonction cont
If rcont1.RecordCount <> 0 Then
Do While Not rcont1.EOF
monresul = InStr(1, Trim(sourceM(q)), rcont1(0), 1) : invalid use of null
If monresul = 1 Then
txtcode.Text = txtcode.Text & " " & "{anxiété:" & " " & rcont1(0) & "}"
cont = 1
Exit Do
End If
rcont1.MoveNext
Loop
End If
Set rcont1 = Nothing
appel de la fonction
sourceM() = Split(sourceA, " ")
MsgBox sourceM(0) & sourceM(1)
For u = 0 To UBound(sourceM)
Select Case cont(sourceM(u))
je précise que ca marchait très bien jusqu'à ce que je fasse des modifications dans d'autres fonctions qui utilisent le même code et qui marchent toujours très bien.
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 20131 16 sept. 2005 à 10:40
OK j'ai trouvé, c'est bien le rcont1(0), car j'ai déclarer la variable comme boolean pour les autres fonctions, alors que dans ce casds, elle est integer.
merci à vous.
VBFranceBlub
Messages postés27Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention19 septembre 2005 16 sept. 2005 à 10:20
Salut;
Soit ton Trim(sourceM(q)) te renvoie un Null soit c'est ton InStr...mets un point d'arrêt sur cette ligne et espionnes les valeurs de tes fonctions pour en avoir le coeur net.
cs_lacomm
Messages postés298Date d'inscriptionlundi 14 juin 2004StatutMembreDernière intervention 5 juillet 20131 16 sept. 2005 à 10:36
en fait, j'ai déjà eu ça quand la cellule était vide, ou alors comme si la référence 0 n'était pas possible.
si je fais msgbox rcont1(0) : même message.
je ne comprends pas si le message veut dire que le null est en entrée ou en sortie ou si ca peut être les deux;