Discussion :

[LeXo]

Bonjour

Sous access
voila j'ai une table facture avec
un id
l'id de la societe
et une date qui est le dernier jour du mois

par cette fonction :

Code :

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

1
2
3
Public Function GetLastDayOfThisMonth(annee As Integer, moislettre As Integer) As Date
     GetLastDayOfThisMonth = DateSerial(annee, moislettre + 1, 0)
 End Function

et il me fait une erreur

Code :

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

base.Execute "INSERT INTO facture (idsociete,date) VALUES (2," & GetLastDayOfThisMonth(CmbAnnee, CmbMois.ListIndex + 1) & ");", dbFailOnError

et il me faite une erreur 3134 erreur de syntaxe dans le INSERT INTO

j'affiche mon GetLastdayOfthisMonth

et j'ai bien une datesous la forme: 28/02/2006

[Le Pharaon]

Si la base de données (à préciser prochainement) est ACCESS il faudra ajouter des ##

Code :

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

base.Execute "INSERT INTO facture (idsociete,date) VALUES (2,#" & GetLastDayOfThisMonth(CmbAnnee, CmbMois.ListIndex + 1) & "#);", dbFailOnError

[wape]

Bonsoir,

"date" est un mot réservé d'Access. Il faut donc le mettre entre crochets dans la requête d'insertion :

Code :

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

base.Execute "INSERT INTO facture (idsociete,[date]) VALUES (2,#" & GetLastDayOfThisMonth(CmbAnnee, CmbMois.ListIndex + 1) & "#);", dbFailOnError

wape

[LeXo]

ah oui un mot clé réservé

qu'est ce queje peux etre myope parfois

BOn merci

@ ++