Valeur Null dans un Insert into

Bonjour,

Lorsque j’exécute le insert into et si la date n’est pas renseigné dans txtDateC j’ai une erreur "Incompatibilité de type" sur cette ligne.

Code:

---

lstr_DateC = IIf(IsNull(DateUS(txtDateC.Value)), "", DateUS(txtDateC.Value))

---

Code:

---

1 2 3 4 5 6 7 8

lstr_DateC = IIf(IsNull(DateUS(txtDateC.Value)), "", DateUS(txtDateC.Value))   StrSql = "INSERT INTO [tbl Chèques] (RéfAdhérent, Emetteur, Banque, Montant, N°Chèque, DateC, ObservationsC)" & _ "values('" & lstr_RéfAdhérent & "'," & Chr(34) & Nz(lstr_Emetteur) & Chr(34) & "," & Nz(lstr_Banque) & ",'" _ & Nz(lstr_Montant) & "'," & Chr(34) & Nz(lstr_N°Chèque) & Chr(34) & "," & Nz(lstr_DateC) & "," _ & Chr(34) & Nz(lstr_ObservationsC) & Chr(34) & ");"   DoCmd.RunSQL (StrSql)

---

Comment exécuter le Insert Into si txtDatec n'est pas renseigné ?

Merci pour votre aide.

Salutations

Hello,

Le problème est que si ta date est nulle, alors dans la requête SQL, il y a 2 virgule "," qui se suivent ce qui ne veut plus rien dire...

donc tu pourrais faire quelque chose comme ca:

Code:

---

lstr_DateC = IIf(IsNull(DateUS(txtDateC.Value)), "", DateUS(txtDateC.Value))

---

Ajouter cette ligne dans ton code

Code:

---

lstr_DateC = lstr_DateC & ","

---

Et dans ton code SQL supprimer le Nz() et la "," après lstrDateC

Code:

---

1 2 3 4 5 6 7

StrSql = "INSERT INTO [tbl Chèques] (RéfAdhérent, Emetteur, Banque, Montant, N°Chèque, DateC, ObservationsC)" & _ "values('" & lstr_RéfAdhérent & "'," & Chr(34) & Nz(lstr_Emetteur) & Chr(34) & "," & Nz(lstr_Banque) & ",'" _ & Nz(lstr_Montant) & "'," & Chr(34) & Nz(lstr_N°Chèque) & Chr(34) & "," & Nz(lstr_DateC) & "," _ & Chr(34) & Nz(lstr_ObservationsC) & Chr(34) & ");"   DoCmd.RunSQL (StrSql)

---

Voilà en espérant t'avoir aider un peu

Bonsoir subnox,

Merci pour ta réponse, mais en faisant de cette manière j'ai une erreur de synthase.

Salutations

Je ne comprend pas pourquoi tu utilises la fonction NZ dans ton SQL et pas là

Code:

---

lstr_DateC = IIf(IsNull(DateUS(txtDateC.Value)), "", DateUS(txtDateC.Value))

---

J'aurais fait

Code:

---

lstr_DateC = NZ(DateUS(txtDateC.Value), "")

---

Peux-tu ne rien mettre dans le champ date de ta table, si le vide n'est pas autorisé, c'est peine perdue.
Essaie de mettre une date bidon en Nz pour voir, par exemple 1-1-1900

Bonsoir,

Essaie:

Code:

---

lstr_DateC = NZ(DateUS(txtDateC.Value), "NULL")

---

Bonjour,

J'ai l'erreur "Incompatibilité de type" en faisant:

Code:

---

lstr_DateC = NZ(DateUS(txtDateC.Value), "")

---

et

Code:

---

lstr_DateC = NZ(DateUS(txtDateC.Value), "NULL")

---

J'ai crée un enregistrement dans la table sans mettre de valeur au champ date et cela à marché.

Salutations

Bonjour,

J'ai l'impression que la fonction DateUS ne renvoie pas la valeur Null.

en suivant la suggestion de Mout1234, essaie

Code:

---

lstr_DateC = IIf(IsNull(txtDateC.Value), "Null", DateUS(txtDateC.Value))

---

Si la zone de texte est vide IIF renvoie "Null", sinon IIF renvoie le résultat de la fonction DateUS

A+

Bonjour LedZeepII,

Suite à tes explications sur l'autre Post sur une ligne de code similaire, j'ai essayé en mettant le "Null" mais ça ne passe pas.

Par contre je pense comme tu le dis que c'est la fonction ci-jointe que j'utilise qui ne renvoie pas la valeur Null.

Code:

---

1 2 3

Function DateUS(ByVal DateFR As Date) As String DateUS = "#" & Month(DateFR) & "/" & Day(DateFR) & "/" & Year(DateFR) & "#" End Function

---

Mais comment faire ?

Salutations

Si ma ligne de code ne fonctionne pas, c'est que txtDateC.Value n'est ni Null ni une date.

On peut changer DateUS comme ceci :

Code:

---

1 2 3 4 5 6 7

Function DateUS(ByVal DateFR As Variant) As String If IsDate(DateFR) Then DateUS = "#" & Month(DateFR) & "/" & Day(DateFR) & "/" & Year(DateFR) & "#" Else DateUS = "Null" End If End Function

---

et la ligne qui pose problème devient simplement

Code:

---

lstr_DateC = DateUS(txtDateC.Value)

---

A+

Bonsoir LedZeepII,

Avec retard je te remercie pour ton aide.

Pour que ma ligne passe j'ai du faire ce code, et j'aimerais savoir ce que tu en pense.

Code:

---

1 2 3 4 5

If IsNull(lstr_DateC) Then lstr_DateC = 0 Else lstr_DateC = "'" & txtDateC.Value & "'" End If

---

Salutations.

Bonsoir jmde,

je pense que ma proposition du 15/09/2007 avec la fonction dateUS modifiée est plus "propre" car elle respecte la syntaxe SQL Access en ce qui concerne les dates.

Code:

---

lstr_DateC = 0

---

0 est valeur numérique littérale, convertie en "0" car lstr_DateC est de type String.
Dans la requête on va donc insérer 0 dans un champ Date.
Tu auras au final 30/12/1899 00:00:00 comme date dans ton champ.
Moi, je prefère Null.

Code:

---

lstr_DateC = "'" & txtDateC.Value & "'"

---

Les simples guillemets font qu'on va insérer une chaîne de caractère dans un champ Date.
Le moteur de base de données va essayer de le convertir en date.
Ca peut marcher, mais ce n'est pas sur à 100%

Tout ça pour dire que je préfère de loin quand c'est mon code qui fait effectue de manière explicite des conversions de type ou de format, plutôt que de laisser faire Access ou Jet avec des règles que je ne maitrise pas.

A+

Bonjour LedZeepII,

Je suis d'accord pour dire que la fonction DateUS est plus propre, mais dans mon cas je n'arrive pas à faire passer ma ligne.

Mais bon j'ai tellement de souci avec une fonction DLookup, que je verrais plus tard pourquoi ma ligne ne passe pas.

Bonne journée.

Salutations