Sous Windows XP, avec Access 2000, je veux donner à l'utilisateur
la possibité de saisir la date de la facture.
J'ai écrit le code suivant :
Dim DF As String
DF = InputBox("Indiquez la date de la facture",
CurrentDb.Properties("AppTitle"), Date)
Dim DateFact As Variant
DateFact = "#" & DF & "#"
Dim SQLst As String 'Sélect Tiers
SQLst = "INSERT INTO TL_Factures_Sélect_Tiers ( FST_Clé_Tiers,
FST_Montant_Total_HT, FST_Fact_Num_Max_Précédent, FST_Fact_Date ) " & _
"SELECT R_Prestations_NonFacturées.P_Clé_Tiers,
Sum(R_Prestations_NonFacturées.Montant_HT) AS Montant_Total_HT, " &
FactNumMax & " AS Fact_Num_Max_Précédent, " & DateFact & " AS Dat_Fact " & _
"FROM R_Prestations_NonFacturées " & _
"WHERE ((R_Prestations_NonFacturées.P_ON)=-1) " & _
"GROUP BY R_Prestations_NonFacturées.P_Clé_Tiers, " & FactNumMax
DoCmd.RunSQL SQLst
Si la date du jour saisi est inférieur à 12 il prend la date du jour pour le
mois
pour 05/04/05 il retourne 4 mai 2005
Si la date du jour saisi est supérieure à 12 il retourne la bonne date
pour 21/04/05 il retourne 21 avril 2005
Merci par avance pour votre aide à régler ce problème
Pierre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonsoir.
éternel problème type US.
compte tenu de ta procédure je ferais tout en date comme ceci (pas besoin de DF): dim DateFact As Date DateFact = InputBox("Indiquez la date de la facture", CurrentDb.Properties("AppTitle"), Date) vba traduira lui-même le champ Datefact dans la bonne présentation.
si tu veux indiquer des # il faut traduire la date en type US, ce qui n'est pas nécessaire dans ton cas. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre" <p() a écrit dans le message de news:407195de$0$297$
Sous Windows XP, avec Access 2000, je veux donner à l'utilisateur la possibité de saisir la date de la facture. J'ai écrit le code suivant :
Dim DF As String DF = InputBox("Indiquez la date de la facture", CurrentDb.Properties("AppTitle"), Date) Dim DateFact As Variant DateFact = "#" & DF & "#"
Dim SQLst As String 'Sélect Tiers SQLst = "INSERT INTO TL_Factures_Sélect_Tiers ( FST_Clé_Tiers, FST_Montant_Total_HT, FST_Fact_Num_Max_Précédent, FST_Fact_Date ) " & _ "SELECT R_Prestations_NonFacturées.P_Clé_Tiers, Sum(R_Prestations_NonFacturées.Montant_HT) AS Montant_Total_HT, " & FactNumMax & " AS Fact_Num_Max_Précédent, " & DateFact & " AS Dat_Fact " & _
Si la date du jour saisi est inférieur à 12 il prend la date du jour pour le
mois pour 05/04/05 il retourne 4 mai 2005
Si la date du jour saisi est supérieure à 12 il retourne la bonne date pour 21/04/05 il retourne 21 avril 2005
Merci par avance pour votre aide à régler ce problème Pierre
Bonsoir.
éternel problème type US.
compte tenu de ta procédure je ferais tout en date comme ceci (pas besoin de
DF):
dim DateFact As Date
DateFact = InputBox("Indiquez la date de la facture",
CurrentDb.Properties("AppTitle"), Date)
vba traduira lui-même le champ Datefact dans la bonne présentation.
si tu veux indiquer des # il faut traduire la date en type US, ce qui n'est
pas nécessaire dans ton cas.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre" <p()foucaud@hotmail.com> a écrit dans le message de
news:407195de$0$297$7a628cd7@news.club-internet.fr...
Sous Windows XP, avec Access 2000, je veux donner à l'utilisateur
la possibité de saisir la date de la facture.
J'ai écrit le code suivant :
Dim DF As String
DF = InputBox("Indiquez la date de la facture",
CurrentDb.Properties("AppTitle"), Date)
Dim DateFact As Variant
DateFact = "#" & DF & "#"
Dim SQLst As String 'Sélect Tiers
SQLst = "INSERT INTO TL_Factures_Sélect_Tiers ( FST_Clé_Tiers,
FST_Montant_Total_HT, FST_Fact_Num_Max_Précédent, FST_Fact_Date ) " & _
"SELECT R_Prestations_NonFacturées.P_Clé_Tiers,
Sum(R_Prestations_NonFacturées.Montant_HT) AS Montant_Total_HT, " &
FactNumMax & " AS Fact_Num_Max_Précédent, " & DateFact & " AS Dat_Fact " &
_
compte tenu de ta procédure je ferais tout en date comme ceci (pas besoin de DF): dim DateFact As Date DateFact = InputBox("Indiquez la date de la facture", CurrentDb.Properties("AppTitle"), Date) vba traduira lui-même le champ Datefact dans la bonne présentation.
si tu veux indiquer des # il faut traduire la date en type US, ce qui n'est pas nécessaire dans ton cas. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre" <p() a écrit dans le message de news:407195de$0$297$
Sous Windows XP, avec Access 2000, je veux donner à l'utilisateur la possibité de saisir la date de la facture. J'ai écrit le code suivant :
Dim DF As String DF = InputBox("Indiquez la date de la facture", CurrentDb.Properties("AppTitle"), Date) Dim DateFact As Variant DateFact = "#" & DF & "#"
Dim SQLst As String 'Sélect Tiers SQLst = "INSERT INTO TL_Factures_Sélect_Tiers ( FST_Clé_Tiers, FST_Montant_Total_HT, FST_Fact_Num_Max_Précédent, FST_Fact_Date ) " & _ "SELECT R_Prestations_NonFacturées.P_Clé_Tiers, Sum(R_Prestations_NonFacturées.Montant_HT) AS Montant_Total_HT, " & FactNumMax & " AS Fact_Num_Max_Précédent, " & DateFact & " AS Dat_Fact " & _
Pourquoi a t on ce format US ? N'y a t il pas moyen de tout avoir au format jj/mm/aa ?
Merci,
Raymond [mvp] wrote:
Bonjour.
exact .
juste une remarque, le cvdate n'est plus indispensable. pour pierre, tu peux faire donc comme ceci: DateFact = "#" & Format(DF, "dd/mm/yyyy") & "#"
Raymond [mvp]
VBA ne connait que le format US, alors comme nous sommes dociles et compréhensifs si on veut utiliser # il faut utiliser le format US. je n'ai pas testé la totalité de la procédure mais si on utilise des formats date (comme je pensais dans mon 1er post) pour les variables il n'y a pas besoin d'utiliser le format US. à confirmer tout ça.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JC" a écrit dans le message de news:
Salut,
Pourquoi a t on ce format US ? N'y a t il pas moyen de tout avoir au format jj/mm/aa ?
VBA ne connait que le format US, alors comme nous sommes dociles et
compréhensifs si on veut utiliser # il faut utiliser le format US.
je n'ai pas testé la totalité de la procédure mais si on utilise des formats
date (comme je pensais dans mon 1er post) pour les variables il n'y a pas
besoin d'utiliser le format US. à confirmer tout ça.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"JC" <mysecret@netcourrier.com> a écrit dans le message de
news:4072A198.7080509@netcourrier.com...
Salut,
Pourquoi a t on ce format US ?
N'y a t il pas moyen de tout avoir au format jj/mm/aa ?
VBA ne connait que le format US, alors comme nous sommes dociles et compréhensifs si on veut utiliser # il faut utiliser le format US. je n'ai pas testé la totalité de la procédure mais si on utilise des formats date (comme je pensais dans mon 1er post) pour les variables il n'y a pas besoin d'utiliser le format US. à confirmer tout ça.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JC" a écrit dans le message de news:
Salut,
Pourquoi a t on ce format US ? N'y a t il pas moyen de tout avoir au format jj/mm/aa ?
Pierre
Merci à vous deux pour vos bonnes réponses qui m'ont permis de régler ce blème ! A+
Merci à vous deux pour vos bonnes réponses
qui m'ont permis de régler ce blème !
A+
