Discussion :

[jmde]

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 :

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

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

Code :

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

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

[subnox]

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 :

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

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

Ajouter cette ligne dans ton code

Code :

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

 lstr_DateC = lstr_DateC & ","

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

Code :

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

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

[jmde]

Bonsoir subnox,

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

Salutations

[Heureux-oli]

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

Code :

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

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

J'aurais fait

Code :

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

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

[Heureux-oli]

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

[mout1234]

Bonsoir,

Essaie:

Code :

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

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

[jmde]

Bonjour,

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

Code :

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

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

et

Code :

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

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

[LedZeppII]

Bonjour,

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

en suivant la suggestion de Mout1234, essaie

Code :

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

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+

[jmde]

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 :

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

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

Mais comment faire ?

Salutations

[LedZeppII]

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 vb :

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

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 vb :

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

lstr_DateC = DateUS(txtDateC.Value)

A+

[jmde]

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 :

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

1
2
3
4
5
If IsNull(lstr_DateC) Then
          lstr_DateC = 0
      Else
        lstr_DateC = "'" & txtDateC.Value & "'"
      End If

Salutations.

[LedZeppII]

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 :

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

   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 :

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

   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+

[jmde]

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