Prob SQL/Access Utilisation non autorisee de Null [Résolu]

cs_krafi 49 Messages postés mardi 11 juin 2002Date d'inscription 28 janvier 2006 Dernière intervention - 14 juil. 2004 à 04:04 - Dernière réponse : asecher 262 Messages postés lundi 20 octobre 2003Date d'inscription 27 avril 2007 Dernière intervention
- 17 juil. 2004 à 11:38
Bonjour,

je rencontre un problème, que je n'arrive pas à resoudre. Lorsque que je parcours les champs de ma bd access, si l'un d'eux est null, ca va m'affichier l'erreur suivante -> "Utilisation non autorisee de Null"....

le code est le suivant :

Dim rs As Recordset
Set rs = New Recordset

With rs
.ActiveConnection = Connect
.Open "select * from GestionAdhérents" '
End With

Do While Not rs.EOF

TotalAd = TotalAd + 1

List1.AddItem rs("Ville") <- l'erreur se fait ici :)

rs.MoveNext

Loop

voilà, je pense pas ke ce soit bien compliqué, alors si quelqu'un aurait une solution, ça m'aiderais énormément

Merci d'avance
Afficher la suite 

7 réponses

cs_krafi 49 Messages postés mardi 11 juin 2002Date d'inscription 28 janvier 2006 Dernière intervention - 16 juil. 2004 à 00:54
+3
Utile
Merci bcp a vous, j'ai pris ta solution ITALIA, et ca marche nikel, ca me debloke bien, je peux continuer maintenant

merci encore
Cette réponse vous a-t-elle aidé ?  
cs_joflo 156 Messages postés mardi 9 juillet 2002Date d'inscription 23 septembre 2011 Dernière intervention - 14 juil. 2004 à 06:33
0
Utile
bojour

ilfaut mettre ceci

if not isnull ("Ville") then List1.AddItem rs("Ville")
cs_krafi 49 Messages postés mardi 11 juin 2002Date d'inscription 28 janvier 2006 Dernière intervention - 14 juil. 2004 à 14:39
0
Utile
Salut joflo,

j'ai essayé ta solution, mais jai tj la meme erreur.

Pourtant ta soluce parraisait logique.

Merci tout de même.

Malgrés ta condition, l'erreur pointe tj sur List1.AddItem rs("Ville")
cs_pluplu 616 Messages postés mercredi 18 décembre 2002Date d'inscription 4 juillet 2012 Dernière intervention - 14 juil. 2004 à 17:07
0
Utile
Essaye ceci cela devrais solutionner ton problème.

Dim rs As Recordset
Set rs = New Recordset

With rs
.ActiveConnection = Connect
.Open "select * from GestionAdhérents" '
End With

On Error goto myerror

Do While Not rs.EOF

TotalAd = TotalAd + 1

List1.AddItem rs("Ville") <- l'erreur se fait ici :)

rs.MoveNext

Loop
Exit sub

myerror:
Resume next

End Sub

Pascal Laurençon
Mieux vaut un petit clic que deux grandes claques..
Mieux vaut un naze bin qu'un naze tout court..
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 15 juil. 2004 à 09:12
0
Utile
oulalalala c un cas classique ca :

List1.AddItem iif(isnull(rs("Ville")),"",rs("Ville"))

It@li@
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 16 juil. 2004 à 09:36
0
Utile
KRAFI alors c mon bouton REPONSE ACCEPT2 qu'il faut selectionner !!!!!

Merci

It@li@
asecher 262 Messages postés lundi 20 octobre 2003Date d'inscription 27 avril 2007 Dernière intervention - 17 juil. 2004 à 11:38
0
Utile
Ca doit marcher aussi avec :
List1.AddItem "" & (rs("Ville"))

Alain 31

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.