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")