Discussion :

[Jefty]

Bonjour à tous,

Pour bien finir mon stage, j'aurais souhaiter faire en sorte que la dernière action manuelle qui me reste sur mon application soit automatisé.

Il s'agit de vérifier au démarrage du formulaire Menu si un champ comporte déjà des valeurs dans la BDD pour le mois en cours.
SI c'est le cas, ne rien faire et attendre le prochain mois, si ce n'est pas le cas, inviter l'utilisateur à les créer.
Cette invitation doit durer les 7 premier jours du mois.

J'avais écrit ceci mais je suis certain qu'il y à plein d'erreurs:

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
 
Private Sub form_load()
 
' On donne l'activité à une zone fantôme
Call Me.txtDummy.SetFocus
 
 
 
Dim DateMin As Date
Dim DateMax As Date
Dim DateAjout As Date
Dim NombStat As Integer
' On va compter le nombre de lignes dans la table
    Dim fld As DAO.Field
    Dim rsc As DAO.Recordset
    Dim bd As DAO.Database
    Dim rvv As DAO.Recordset
 
Set bd = CurrentDb()
DateAjout = Now
DateMin = DateSerial(Year(Date), Month(Date), 1)
DateMax = DateSerial(Year(Date), Month(Date), 7)
 
' On constitue la requête qui choisi le champ à compter et à utiliser
    Set rsc = bd.OpenRecordset("SELECT count(NumTypStat) FROM TypeStatistique ", dbOpenForwardOnly, dbReadOnly)
' On incrémente jusqu'à la valeur maximum
    For Each fld In rsc.Fields
        NombStat = fld.Value
    Next
' On constitue la requête qui vérifie si les valeurs existent déjà
    Set rvv = bd.OpenRecordset("SELECT DateDebutStat FROM Statistique WHERE DateDebutStat BETWEEN '" & DateMin & "' AND '" & DateMax & "'", dbReadOnly)
 
If rvv = "" Then
    If MsgBox("Souhaitez vous ajouter les statistiques pour ce nouveau mois?", vbYesNo) = vbYes Then
        ' On ajoute les statistique en fonction du résultat du calcul
    For i = 1 To NombStat
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Statistique (NumTypStat, DateDebutStat) VALUES ('" & i & "', '" & DateAjout & "')"
        DoCmd.SetWarnings True
    Next i
    End If
End If
 
 
End Sub

La 1er requête compte le nombre de NumTypStat dans ma table et retourne la valeur pour savoir combien il y à de insert into à faire par la suite.
Normalement cette requête fonctionne encore puisque je l'avais essayer avant.

Mon problème est la vérification des valeurs existantes pour la date.
Je cherche à savoir si dans ma table, il y a au moins un seul enregistrement avec pour valeur de DateDebutStat le moi et l'année en cours.

Si c'est le cas, ne rien demander mais si il n'y a pas la date correspondante, inviter à faire les insert into.

Si vous avez des solutions, merci d'avance.

[marot_r]

Je suis sur qu'on pourrait faire cela en une seule passe avec une requête et une jointure mais ta solution n'est pas mauvaise non plus.

Quelques suggestions :

* Pour ton test

Code :

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

If rvv = "" Then

je te suggère de le remplacer par

Code :

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

if rvv.recordcount=0 then

car tester si un objet recordset est égale à une chaîne de caractères même si cela marche (as-tu exécuter ce code ?) ce n'est pas très propre.

Attention avec RecordCount, si tu ne fais pas ObjetRecordset.movelast, recordcount renvoit 0 s'il n'y a pas d'enregistrement et 1 si il y a 1 ou des enregistrement. Si tu fais ObjetRecordset.movelast tu as alors le nombre exact d'enregistrements, ne pas oublier de faire un ObjetRecordset.movefirst après si tu veux lire le contenu des enregistrements.

* Pour

Code :

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

1
2
3
4
5
6
' On constitue la requête qui choisi le champ à compter et à utiliser
    Set rsc = bd.OpenRecordset("SELECT count(NumTypStat) FROM TypeStatistique ", dbOpenForwardOnly, dbReadOnly)
' On incrémente jusqu'à la valeur maximum
    For Each fld In rsc.Fields
        NombStat = fld.Value
    Next

rsc ne devrait contenir qu'un seul enregistrement et un seul champ donc le for each fld est un peu 'over-killing'.

Si tu copies ton SQL dans l'éditeur de requête tu vas voir le nom généré automatiquement par Access et tu devrais pouvoir l'utiliser en faisant

Code :

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

nomStat=rsc![NomDuChamp].

* pour la sélection par date il suffit de mettre :

Code :

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

where format(Date(),"yyyy-mm")=format([DateDebutStat],"yyyy-mm")

Cela va t'éviter d'avoir à calculer la date de fin de mois.

* Quand tu as fini d'utiliser un objet Database ou Recordset il est conseillé de le fermer et de le désalouer explictement. Normalement Access s'en occupe mais c'est mieux si tu lui dit de le faire.

donc j'ajouerai :

Code :

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

1
2
3
    rsc.close: set rsc=nothing
    rvv.close: set rvv=nothing
    bd.close:set bd=nothing

avant le exit sub.

A+

[Jefty]

Merci pour l'aide détaillé, je essayer tout ça.
Je te tiens au courant.

[Jefty]

Me revoilà.

Alors pour ObjetRecordset.movelast, je n'en est pas l'utilité, si 1 seul enregistrement est trouver, c'est suffisant.
Je n'ai pas besoin de savoir le nombre qu'il trouve.

J'ai un problème avec:

Code :

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

where format(Date(),"yyyy-mm")=format([DateDebutStat],"yyyy-mm")

Il me dit attente de séparateur de liste ou ). Il me place sur "yyyy"


J'ai reussi à ne plus avoir d'érreur:

Mais aucun résultat.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Set rvv = bd.OpenRecordset("SELECT DateDebutStat FROM Statistique WHERE DateDebutStat BETWEEN #" & DateMin & "# AND #" & DateMax & "#")
 
If rvv.RecordCount = 0 Then
    If MsgBox("Souhaitez vous ajouter les statistiques pour ce nouveau mois?", vbYesNo) = vbYes Then
        ' On ajoute les statistique en fonction du résultat du calcul
    For i = 1 To NombStat
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Statistique (NumTypStat, DateDebutStat) VALUES ('" & i & "', '" & DateAjout & "')"
        DoCmd.SetWarnings True
    Next i
    End If
End If

J'ai fait un pas à pas et j'ai constater que rvv.RecordCount prend pour valeur 1 alors qu'aucune date ne correspond au résultat trouver normalement.

[marot_r]

Essaye cela :

Code :

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

where format(Date();"yyyy-mm")=format([DateDebutStat];"yyyy-mm")

normalement cela ne devrait pas être la bonne solution mais je n'en vois pas d'autre.

A+