Discussion :

[emeraudes]

Bonjour,

Voila mon problème.
J'ai une table avec des champs ayant des contraintes de clé étrangère et je voudrais pouvoir insérer des champs Null.
Exemple :

Code :

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

1
2
 
insert into matable(id, nom, prenom) values (1,'TATA',Null)

Cette requête marche tres bien quand je la fais directement sous Access mais je voudrais faire cette meme requête sous VBA. et la ca pose problème car VBA n'accepte pas la valeur Null.

Comment doit je faire?

Code :

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

1
2
3
4
 
dim req as string
 
req = "insert into matable(id, nom, prenom) values (1,'"+tb_nom+"','"+IIf(IsNull(tb_prenom), Null, CStr(tb_prenom))+"')"

Voila mon code et ca ne fonctionne pas.
Il me dit: "Utilisation incorrecte de la valeur Null"

Aidez moi svp !!!!

[boubignole]

Salut

déjà tu peux remplacer les + par des &.

ensuite vaut peut etre mieux remplacer la fonction IIF par NZ.

[Tofalu]

Il s'agit de NULL SQL et non NULL VBA

C'est donc une chaine de caractère qui doit être interprétée dans VBA

Code :

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

1
2
3
 
req = "insert into matable(id, nom, prenom) values (1,'" & _
        tb_nom & "','" & IIf(IsNull(tb_prenom), "Null", CStr(tb_prenom)) & "')"

PS : L'opérateur de concaténation est le & et non le +

[emeraudes]

Merci pour vos réponses. Elles m'ont permis de trouver la solution (un collègue m'a aussi aidé)
Voilà le code que j'ai mis et qui fonctionne :

Code :

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

1
2
3
 
req = "insert into matable(id, nom, prenom) values (1,'" & _
     tb_nom & "'," & IIf(IsNull(tb_prenom), "Null", "'" & tb_prenom & "'") & ")"

Il fallait que j'enlève les cotes qui encadrée le IIF, et que je les rajoute à "'" & tb_prenom & "'" sans le Cstr()

Voilou
Bonne continuation et merci de m'avoir répondu

[zoidy]

de rien

[emeraudes]

ya pa de quoi mon chéri
looool

alors ta vu comme j'ai bien résolu le problème??