AladinRaja
Messages postés6Date d'inscriptionmercredi 20 octobre 2010StatutMembreDernière intervention16 novembre 2010
-
21 oct. 2010 à 19:11
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
21 oct. 2010 à 23:27
Bonjour,
Je sais pas c'est quoi mon erreur?
Private Sub Commande20_Click()
DateDe = Me.txtDebut.Value
DateA = Me.txtFin.Value
CurrentDb.QueryDefs("Aladureétoute").Sql = "SELECT commandes.NoContrat, Employés.Prenom, Employés.Nom, commandes.DateExpedition, DateDiff(h,[DateReception],[DateExpedition]) AS [Durée en heure] FROM commandes INNER JOIN Employés ON commandes.NoEmploye=Employés.NoEmploye WHERE (((commandes.NoContrat)>0) AND ((commandes.DateReception) Between GetDateDe() And GetDateA()));"
AladinRaja
Messages postés6Date d'inscriptionmercredi 20 octobre 2010StatutMembreDernière intervention16 novembre 2010 21 oct. 2010 à 21:54
Bonjour,
Ce que j'ai faite c'est aller en mode SQL dans ma requete Aladureétoute et j'ai copier le code SQL que j'ai coller par la suite a ma procédure évenementiel de mon bouton qui est dans formulaire.
GetDateDe() et GetDateA() je l'ai mis aussi dans un critere de ma requete comme suis : Entre GetDateDe() Et GetDateA()
L'erreur est : element non trouvé dans cette selection, la selection c'est le code SQL
AladinRaja
Messages postés6Date d'inscriptionmercredi 20 octobre 2010StatutMembreDernière intervention16 novembre 2010 21 oct. 2010 à 22:37
Apres avoir faite les modifications j'ai pas d'erreur mais j'arrive pas a afficher la colone Durée en heure dans mon état les autres colonne s'affiche.
voici mon code:
Private Sub Commande20_Click()
DateDe = Me.txtDebut.Value
DateA = Me.txtFin.Value
CurrentDb.QueryDefs("Ala_dureétoute").Sql "SELECT commandes.NoContrat, Employés.Prenom, Employés.Nom, commandes.DateExpedition, commandes.DateReception, DateDiff('hour',[DateReception],[DateExpedition]) AS [Durée en heure] FROM commandes INNER JOIN Employés ON commandes.NoEmploye Employés.NoEmploye WHERE (((commandes.NoContrat)>0) AND ((commandes.DateReception) Between GetDateDe() And GetDateA()));"
DoCmd.OpenReport "Ala_dureétoute", acPreview