Discussion :

[Aliveli]

Bonjour,

Voici mon cas de figure mais cette fois plus explicite et avec plus de code, j'ai du refaire une nouvelle discussion .

j'ai deux tables TBL_ENQUETES et TBL_CONTACTS
le principe est : avertir lorsque des enquêtes arrivent à échéance.

TBL_ENQUETES
Pièce jointe 1342

TBL_CONTACTS
Pièce jointe 1343



Pour chaque contacts vérifier a partir de la table TBL_CONTACTS que le bénéficiaire est actif (CON_DDF =
null), vérifier la date de la dernière enquête et calculer le nombre de jours qui la sépare de la date du
jour. Si le type de l'enquête (ID_CATEGORIE) concernée est "FAMILLE" , il faut retenir l'enregistrement si le
nombre de jours calculé est supérieur à 6 mois.
Si le type est autre que "famille", il faut retenir les enregistrements si le nombre de jours calculé est
supérieur à 365 jours.
Je dois créer un programme qui va avertir par une fenêtre message que les enquêtes doivent être révisées quand
elles sont trop anciennes. Donc les enquêtes qui concernent les "FAMILLES" doivent être révisées tous les 6
mois. Les autres doivent être révisées tous les ans.
Je sais pas mais je pense qu’avec uniquement du code sql on y arrivera pas je comptais faire tout d’abord une
requête sql permettant de chercher la dernière date de l’enquête parmis les plusieurs enregistrements pour UN
seul CONTACTS et ça pour tous les contacts,
Mon code ressemble à ça, n'arrivant pas à réaliser une requête combinant à la fois les dernières dates
d'enregistrements ansi que les béneficiaires,j'ai decomposé en 3 requêtes sql mon code :

Sub Formload()

dim SQLactifs as String 'requête pour sortir les enreg. des contacts toujours actifs
dim SQLfam as String 'requête pour sortir les enreg. des contacts de la Categorie FAMILLE ceux pour
'lesquels l'interval est de 6 mois
dim SQLautr as String 'requête pour sortir les enreg. des autres contacts ceux pour
'lesquels l'interval est de 1 ans
Dim months As Variant
Dim rs As DAO.Recordset

SQLactifs= "SELECT TBL_ENQUETES.ID_ENQUETE, TBL_ENQUETES"
SQLactifs= SQLactifs & ".ID_CONTACT FROM TBL_CONTACTS INNER JOIN"
SQLactifs= SQLactifs & " TBL_ENQUETES ON TBL_CONTACTS.ID_CONTACT = "
SQLactifs= SQLactifs & "TBL_ENQUETES.ID_CONTACT"
SQLactifs= SQLactifs & "WHERE (((TBL_CONTACTS.CON_DDF) Is Null));"
CurrentProject.Connection.Execute SQLactifs
CurrentProject.Connection.Errors.Clear

SQLfam= SQLactifs & "SELECT [TBL_ENQUETES].[ID_ENQUETE]"
SQLfam= SQLfam & ", [TBL_ENQUETES].[ID_CONTACT]"
SQLfam= SQLfam & "FROM TBL_CONTACTS INNER JOIN TBL_ENQUETES ON "
SQLfam= SQLfam & "TBL_CONTACTS].[ID_CONTACT]=[TBL_ENQUETES].[ID_CONTACT]"
SQLfam= SQLfam & "WHERE ((([TBL_ENQUETES].[ENQ_P_A_CATEGORIE])="FAMILLE"));"


'POUR LA CATEGORIE FAMILLE:
Set rs = CurrenDb.OpenRecordset(SQLfam)
rs.MoveLast
rs.MoveFirst
NbrOccurences = rs.RecordCount

' ici je dois travailler sans doute avec SQLfam pour touver les dates de plus de 6
' mois d'intervalle en fesant attention de tenir compte de la dernière date enregistrée pour chaque
' contacts
'LES DERNIERES DATES DE CHAQUES CONTACTS: ? je ne sais pas comment implementer ce code sql dans la procédure

????????

SELECT TBL_ENQUETES.ID_CONTACT, Max(TBL_ENQUETES.ENQ_DATE) AS ENQ_DATE
FROM TBL_CONTACTS INNER JOIN TBL_ENQUETES ON TBL_CONTACTS.ID_CONTACT = TBL_ENQUETES.ID_CONTACT
GROUP BY TBL_ENQUETES.ID_CONTACT;

????????

do listbox.item.add (DateDiff( "m", rs!ENQ_Date , Getdate() ) )
rs.movenext
loop until rs.eof


' ensuite les contacts dont l'intervalle est de 1 an
'POUR LES AUTRES CATEGORIES:

SQLautr= SQLactifs & "SELECT [TBL_ENQUETES].[ID_ENQUETE]"
SQLautr= SQLautr & ", [TBL_ENQUETES].[ID_CONTACT]"
SQLautr= SQLautr & "FROM TBL_CONTACTS INNER JOIN TBL_ENQUETES ON "
SQLautr= SQLautr & "TBL_CONTACTS].[ID_CONTACT]=[TBL_ENQUETES].[ID_CONTACT]"
SQLautr= SQLautr & "WHERE ((([TBL_ENQUETES].[ENQ_P_A_CATEGORIE])<>"FAMILLE"));"

Set rs = CurrenDb.OpenRecordset(SQLautr)..


??????
....


End Sub


Voici en gros, est-ce que le code que j'ai fait est bon? Je n'arrives pas à implementer le code sql qui sélectionne la date la plus récente ?


Pour la suite:
-Je devrais comparer ces dates à la date d'aujourd' hui
et donc calculer une difference de temps et en fonction de la categorie
enquête (ENQ_CAT) si cette difference est supérieur à 6 mois ou 1 an
faire un message pour faire une nouvelles equête pour les contacts
concernés.
-Ensuite par regroupement envoyer le résultats avec les coordonnées et
dernière date d'enquête des personnes vers un rapport Etat pour Inmpression
à partir d'un bouton sur un formulaire.

Merci de m'aider c'est fort urgent.

[philben]

Bonjour,

cette requête peut résoudre le problème posé :

Code :

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

1
2
3
4
5
6
7
 
 
SELECT tbl_contacts.id_contact, tbl_enquetes.enq_p_a_categorie, Max(tbl_enquetes.enq_date) AS [Date de la dernière enquête qui doit être révisée]
FROM tbl_contacts INNER JOIN tbl_enquetes ON tbl_contacts.id_contact = tbl_enquetes.id_contact
WHERE (((tbl_contacts.con_ddf) Is Null))
GROUP BY tbl_contacts.id_contact, tbl_enquetes.enq_p_a_categorie
HAVING (((Max(tbl_enquetes.enq_date))<=IIf([enq_p_a_categorie]="famille",Date()-180,Date()-365)));

[Aliveli]

Bonjour,

Merci Philben, c'est parfait je l'ai tester, effectivement ce code permet non seulement de choisir les personnes actifs mais également, selon la catégorie, faire le calcul d’échéance c génial !!!. Le code sql se simplifie pas besoin de faire plusieurs requêtes.


Juste une precision , pour avoir un peu plus de precision sur la requete par exemple
En ajoutant le nom et prenom de la personne a partir du TBL_CONTACTS serait plus parlant pour la personne qui vera cette liste. Parlant de liste cette requête je devrais le mettre dans une listebox dans un formulaire. Et comme je vois qu’il y a bcp d’enquêtes à à mettre à jour, à réaliser ! La bonne solution sera de faire quoi ?

Voici ce à quoi j’arrive est-ce bon ?:

Sub Formload()


Dim Id_Arg As Integer
Dim Reference As Integer
Dim Localisation As StringRoman
‘Dim Argument As String
'Dim Description As String


Dim SQL as String
Dim rs As DAO.Recordset

SQL= "SELECT TBL_CONTACTS.ID_CONTACT,[/FONT][/FONT]"
SQL= SQL & "TBL_ENQUETES.ENQ_P_A_CATEGORIE,"
SQL= SQL & " Max(TBL_ENQUETES.ENQ_DATE) AS "
SQL= SQL & "[Date de la dernière enquête qui doit être révisée]"
SQL= SQL & "FROM TBL_CONTACTS INNER JOIN TBL_ENQUETES"
SQL= SQL & "ON TBL_CONTACTS.ID_CONTACT = "
SQL= SQL & "TBL_ENQUETES.ID_CONTACT "
SQL= SQL & "WHERE ((( TBL_CONTACTS.CON_DDF) Is Null))"
SQL= SQL & "GROUP BY TBL_CONTACTS.ID_CONTACT, "
SQL= SQL & "TBL_ENQUETES.ENQ_P_A_CATEGORIE"
SQL= SQL & "HAVING (((Max(TBL_ENQUETES.ENQ_DATE))"
SQL= SQL & "))<=IIf([ENQ_P_A_CATEGORIE]="famille""
SQL= SQL & "",Date()-180,Date()-365)));"



CurrentProject.Connection.Execute SQL
CurrentProject.Connection.Errors.Clear


Set rs = CurrenDb.OpenRecordset(SQL)
rs.MoveLast
rs.MoveFirst
NbrOccurences = rs.RecordCount

’ je ne sais pas comment implementer ce code sql dans la procédure
‘ Pour mettre les données de la requête dans une liste d’un formulaire en incluant
aussi les noms des contacts par exemple?:

Set rs = CurrenDb.OpenRecordset(SQL)

do listbox.item.add (rs)
rs.movenext
loop until rs.eof


'permet d’afficher le message d’alerte avec bouton rouge si enquêtes > à 100
sinon simple VBOKonly si inf à 100 et rien du tout si pas d’occurrences du click sur OK

If NbrOccurences >100 Then
Msgbox( …rouge
Formenq.load

ElseIf NbrOccurences <= 100 Then
Msgbox(…

ElseIf NbrOccurences = 0 Then
End IF


Remarque je dois également stocker dans une Table existante TBL_ARGUMENTS,
Les paramètres, les nbs de jours pour les cas des 6 mois et des 12 mois, je sias pas si l’idée est bonne ?

'do listbox.item.add (DateDiff( "m", rs!ENQ_Date , Getdate() ) )
’rs.movenext
’loop until rs.eof

Id_Arg = 0
Reference = 0
Localisation = "FRM_ENQUETE_A_JOUR"

rs.MoveLast
rs.MoveFirst

do
rs.OpenRecordset ("TBL_ARGUMENTS")
rs.AddNew
rs.Fields.Append (Id_Arg)
rs.Fields.Append (Reference)
rs.Fields.Append (Localisation)
rs.Fields.Append (rs![TBL_CONTACTS].[ID_CONTACT])
rs.Fields.Append (DateDiff( "m", rs!ENQ_Date , Getdate() ))
rs.Update
rs.movenext
loop until rs.eof

End Sub

Je m’aperçois que le champ ID_ENQUETE ne figure pas sans doute pour éviter des problèmes quand il y a parfois 2 num ID_ENQUETE pour un même contact et le même jour. Alors dans ce cas serait ce possible de choisir les num ID_ENQUETE les plus récents ?

Merci encore de m'aider.

[Aliveli]

Oups,

J'ai oublié d'ajouter la table argument

Pièce jointe 1353

Encore merci..

[Tofalu]

Un coup tu utilises DAO un coup ADO

Pense à utiliser les balises Code pour mettre tes messages en forme. C'est illisible

[Aliveli]

Bonjour,

Désolé, je suis nouveau en programmation, je dois faire ça en DAO mais je pense que je suis en DAO ?

Merci pour la remarque là j'utilise la balise code , effectivement sinon ça mets un temps fou à devoir mettre en forme convenablement .

Pourriez vous m'aider, s'il vous plaîts, pour ce programme comme vous le voyez je ne maîtrise pas bcp VBA Access pour le moment .

Pour ce qui est de cette partie de code qui concerne la liste qui va récupérer le résultat SQL :

Code :

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

1
2
3
4
5
6
Set rs = CurrenDb.OpenRecordset(SQL)
 
do listbox.item.add (rs)
rs.movenext
loop until rs.eof

-Est-ce que c'est nécessaire? ou pourrais-je peut être directement
prendre le code sql et mettre ça dans la zone de liste d'un formulaire: propriétes -> Données -> Contenu.
Comme ça je n'aurai pas a spécifier le chemin de cette formulaire car
la procédure Formload() je pense la mettre dans un module qui s' éxecutera à l'ouverture de la base, je pense que c'est comme ça ?

-Et si c'est necessaire, tout d'abord dois-je specifier les différentes colonnes ? Car je voudrais mettre le résultat du code SQL c'est à dire plusieurs champs. Et comment je pourrais faire en sorte d'ajouter au code SQL existant en plus le champ ID_ENQUETE et CON_NOM


Voici le code générale:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub Formload()

Dim Id_Arg As Integer
Dim Reference As Integer
Dim Localisation As StringRoman
‘Dim Argument As String
'Dim Description As String

Dim SQL as String 
Dim rs As DAO.Recordset
 
SQL= "SELECT TBL_CONTACTS.ID_CONTACT,[/FONT][/FONT]"
SQL= SQL & "TBL_ENQUETES.ENQ_P_A_CATEGORIE,"
SQL= SQL & " Max(TBL_ENQUETES.ENQ_DATE) AS "
SQL= SQL & "[Date de la dernière enquête qui doit être révisée]"
SQL= SQL & "FROM TBL_CONTACTS INNER JOIN TBL_ENQUETES"
SQL= SQL & "ON TBL_CONTACTS.ID_CONTACT = "
SQL= SQL & "TBL_ENQUETES.ID_CONTACT "
SQL= SQL & "WHERE ((( TBL_CONTACTS.CON_DDF) Is Null))"
SQL= SQL & "GROUP BY TBL_CONTACTS.ID_CONTACT, "
SQL= SQL & "TBL_ENQUETES.ENQ_P_A_CATEGORIE"
SQL= SQL & "HAVING (((Max(TBL_ENQUETES.ENQ_DATE))"
SQL= SQL & "))<=IIf([ENQ_P_A_CATEGORIE]="famille""
SQL= SQL & "",Date()-180,Date()-365)));"


CurrentProject.Connection.Execute SQL
CurrentProject.Connection.Errors.Clear
 
Set rs = CurrenDb.OpenRecordset(SQL)
rs.MoveLast
rs.MoveFirst
NbrOccurences = rs.RecordCount
 
’ je ne sais pas comment implementer ce code sql dans la procédure 
‘ Pour mettre les données de la requête dans une liste d’un formulaire en incluant 
aussi les noms des contacts par exemple?:
 
Set rs = CurrenDb.OpenRecordset(SQL)
 
do listbox.item.add (rs)
rs.movenext
loop until rs.eof

'permet d’afficher le message d’alerte avec bouton rouge si enquêtes > à 100
sinon simple VBOKonly si inf à 100 et rien du tout si pas d’occurrences du click sur OK 
 
If NbrOccurences >100 Then
Msgbox( …rouge
Formenq.load
 
ElseIf NbrOccurences <= 100 Then
Msgbox(…
 
ElseIf NbrOccurences = 0 Then
End IF
 
Remarque je dois également stocker dans une Table existante TBL_ARGUMENTS, 
Les paramètres, les nbs de jours pour les cas des 6 mois et des 12 mois, je sias pas si l’idée est bonne ?

'do listbox.item.add (DateDiff( "m", rs!ENQ_Date , Getdate() ) )
’rs.movenext
’loop until rs.eof
 
Id_Arg = 0
Reference = 0
Localisation = "FRM_ENQUETE_A_JOUR"
 
rs.MoveLast
rs.MoveFirst
 
do
rs.OpenRecordset ("TBL_ARGUMENTS")
rs.AddNew
rs.Fields.Append (Id_Arg)
rs.Fields.Append (Reference)
rs.Fields.Append (Localisation)
rs.Fields.Append (rs![TBL_CONTACTS].[ID_CONTACT])
rs.Fields.Append (DateDiff( "m", rs!ENQ_Date , Getdate() ))
rs.Update
rs.movenext
loop until rs.eof
 
End Sub

Merci beaucoup