Dim Db As Database
Dim Qd As QueryDef
Dim TransactionStartDate As Date
Dim Start_Date As Parameter
Set Db = CurrentDb
Set Qd = Db.QueryDefs("Append_Resource_Values") 'query avec
paramètre date. Ce query fait un insert dans une table
TransactionStartDate = ReturnTransactionStartDate() ' recherche de la
date
Qd!Start_Date = TransactionStartDate 'met la date dans le parm du query
Qd.Execute ' crash - overflow
Qd.Close
j'ai une erreur 6 - overflow dans la commande qd.execute.
Quelqu'un a-t-il une idée sur la cause de cette erreur ?
Merci d'avance.
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.
il serait préférable de passer le paramètre à ta requête par la propriété Parameters: Qry.Parameters("Montant") = 700# tu trouveras un exemple de passage des paramètres en dao sur: http://officesystem.access.free.fr/ex_requetes_vba.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean" a écrit dans le message de news:
Bonjour à tous,
dans l'execution du code
Dim Db As Database Dim Qd As QueryDef Dim TransactionStartDate As Date Dim Start_Date As Parameter
Set Db = CurrentDb Set Qd = Db.QueryDefs("Append_Resource_Values") 'query avec paramètre date. Ce query fait un insert dans une table TransactionStartDate = ReturnTransactionStartDate() ' recherche de la date Qd!Start_Date = TransactionStartDate 'met la date dans le parm du query Qd.Execute ' crash - overflow Qd.Close
j'ai une erreur 6 - overflow dans la commande qd.execute.
Quelqu'un a-t-il une idée sur la cause de cette erreur ? Merci d'avance.
Bonsoir.
il serait préférable de passer le paramètre à ta requête par la propriété
Parameters:
Qry.Parameters("Montant") = 700#
tu trouveras un exemple de passage des paramètres en dao sur:
http://officesystem.access.free.fr/ex_requetes_vba.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean" <Jean@discussions.microsoft.com> a écrit dans le message de news:
3670CF5F-70DD-4F05-9E66-7325EA8E359D@microsoft.com...
Bonjour à tous,
dans l'execution du code
Dim Db As Database
Dim Qd As QueryDef
Dim TransactionStartDate As Date
Dim Start_Date As Parameter
Set Db = CurrentDb
Set Qd = Db.QueryDefs("Append_Resource_Values") 'query avec
paramètre date. Ce query fait un insert dans une table
TransactionStartDate = ReturnTransactionStartDate() ' recherche de la
date
Qd!Start_Date = TransactionStartDate 'met la date dans le parm du query
Qd.Execute ' crash - overflow
Qd.Close
j'ai une erreur 6 - overflow dans la commande qd.execute.
Quelqu'un a-t-il une idée sur la cause de cette erreur ?
Merci d'avance.
il serait préférable de passer le paramètre à ta requête par la propriété Parameters: Qry.Parameters("Montant") = 700# tu trouveras un exemple de passage des paramètres en dao sur: http://officesystem.access.free.fr/ex_requetes_vba.htm -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jean" a écrit dans le message de news:
Bonjour à tous,
dans l'execution du code
Dim Db As Database Dim Qd As QueryDef Dim TransactionStartDate As Date Dim Start_Date As Parameter
Set Db = CurrentDb Set Qd = Db.QueryDefs("Append_Resource_Values") 'query avec paramètre date. Ce query fait un insert dans une table TransactionStartDate = ReturnTransactionStartDate() ' recherche de la date Qd!Start_Date = TransactionStartDate 'met la date dans le parm du query Qd.Execute ' crash - overflow Qd.Close
j'ai une erreur 6 - overflow dans la commande qd.execute.
Quelqu'un a-t-il une idée sur la cause de cette erreur ? Merci d'avance.
