Requête et intervalle de tempsRésolu

Question

Bonjour, 
malgr&#233; mes (tr&#232;s) faibles connaissances en programmation gr&#226;ce aux conseils des membres du site je parviens &#224; monter ma base de donn&#233;es ACCESS 2003 pour une petite association scolaire ; j'ai une table "Membres" (avec les champs Noms, Pr&#233;nom, etc... , jai ajout&#233; une table "Pr&#233;sences" avec les champs 'Date', 'Pr&#233;sent', 'Absent', 'Excus&#233;' (les trois derniers sous forme de cases &#224; cocher) li&#233;e &#224; la Table "Membres", j'ai &#233;galement r&#233;alis&#233; une requ&#234;te Somme qui me donne les Pr&#233;sents, Absents et Excus&#233;s les jours de r&#233;union, je peux donc dans mon formulaire principal savoir si Untel est pr&#233;sent ou absent &#224; telle date ; voila mon probl&#232;me  : 

je souhaite cr&#233;er un petit formulaire avec deux textbox et deux boutons, 
les deux textbox me permettront d'entrer deux dates et, 

- quand j'appuierai sur le bouton 1, une feuille de donn&#233;es s'affichera en me donnant la Somme des Pr&#233;sents, Excus&#233;s et Absents pour chaque date dans l'intervalle des dates entr&#233;es dans les textbox (avec message d'erreur si l'intervalle est erron&#233;) 

- quand j'appuyerai sur le bouton 2, un &#233;tat graphique s'affichera correspondant aux donn&#233;es pr&#233;c&#233;dentes 

Est-ce possible ? 
Si oui, merci de votre aide, je rame depuis des heures sans le moindre r&#233;sultat

aieeeuuuuu · Accepted Answer

c'est pour generer ta requete que tu as besoin d'aide ?

en fait c'est tout simple, tu utilises tes variables VB pour cr&#233;er ta requete SQL


par exemple


strRequete "SELECT count(*) FROM presence WHERE present true AND date between (" & textBoxDate.text & " AND " & dteFin & ") GROUP BY date"


il faudra pour cela que tu calcule avant la valeur de la variable dteFin et que tu formate correctement tes variables de dates en fonction de ton SGBD

aieeeuuuuu · Answer

salut

sur quel point as tu besoin d'aide ?

est-ce sur la requete SQL, sur le code, ... ?


qu'est ce que tu as deja fait. quels sont les erreurs/bug que tu rencontre ?

bip54 · Answer

je ne sais pas comment faire communiquer mes deux textbox (qui contiendront les dates de l'intervalle) et ma requ&#234;te "Pr&#233;sences" et je ne sais pas non plus comment utiliser ces deux dates pour g&#233;n&#233;rer l'&#233;tat graphique (ce dernier point sera sans doute plus facile &#224; r&#233;soudre quand j'aurai r&#233;solu le premier point)
Je n'ai donc pondu aucune ligne de code..
avec mes excuses et mes remerciements

bip54 · Answer

bip54 · Answer

merci beaucoup de ton aide

bip54 · Answer

J'ai cr&#233;e un petit formulaire nomm&#233; Recherches pr&#233;sences avec pour source Req_Compte Pr&#233;sence qui est ma requ&#234;te qui affiche et groupe  les pr&#233;sences et les absences en fonction de la date (ex: 15/08/2005 pr&#233;sent 7, absents 3 etc...), j'ai ajout&#233; &#224; ce formulaire Texte0 et Texte2 (les 2 textbox sont au format date abr&#233;g&#233;e)pour saisir les dates de ma fourchette, j'ai ajout&#233; un bouton Commande4, puis j'ai rentr&#233; dans Recherches pr&#233;sences le code suivant :

Private Sub Commande4_Click()


    Dim datedeb As Date
    dated&#233;b = Texte0.Text
    Dim datefin As Date
    datefin = Texte2.Text


strRequete "SELECT count(*) FROM Req_Compte Pr&#233;sence WHERE pr&#233;sent true AND date between (" & datedeb & " AND " & datefin & ") GROUP BY date"

End Sub

quand je clique sur Commande4, j'ai le message d'erreur :
'erreur d'ex&#233;cution 2185'
Impossible de faire r&#233;f&#233;rence &#224; une propri&#233;t&#233; ou de la d&#233;finir pour un contr&#244;le si ce dernier n'est pas activ&#233;

merci

aieeeuuuuu · Answer

sur quelle ligne as tu cette erreur ?

ou as tu plac&#233; le code ci dessus ?

bip54 · Answer

J'ai essay&#233; ceci

Private Sub Commande4_Click()


Dim rs As DAO.Recordset
Dim db As DAO.Database


Dim datedeb As Date
datedeb = Me.Texte0.Value
Dim datefin As Date
datefin = Me.Texte2.Value


strRequete "SELECT count(*) AS Nb FROM Req_Compte Pr&#233;sence WHERE Pr&#233;sent true and date between (" & CLng(datedeb) & " AND " & CLng(datefin) & ") GROUP BY date"



Set db = CurrentDb


Set rs = db.OpenRecordset(strRequete)


If rs.EOF Then
    MsgBox "aucun r&#233;sultat"
Else
    MsgBox "nombre de pr&#233;sents : " & rs.Fields("Nb")
End If

rs.Close

End Sub

mais j'ai un message d'erreur : erreur de syntaxe 3131
'erreur de syntaxe dans FROM'

aieeeuuuuu · Answer

la clause FROM doit contenir des noms de table ou de vue.

la tu place une requete c'est ca ?

ou c'est une procedure stock&#233;e ?

si tu as deja fait une requete qui fonctionne, tu peux la reutiliser dans VB.

bip54 · Answer

ok merci

Requête et intervalle de temps

10 réponses

Discussions similaires