Discussion :

[mc.schmer]

Bonjour à tous,

Ayant eu énormement de mal à recouper toutes les infos pour parvenir à mes fins, je propose ce poste aux débutants comme moi pour décrire la procédure à suivre:

Données:

• 1 formulaire
• 1 requete enregistrée (en l'occurence R_Raz_Temp)
• 1 bouton qui lance la requete par le code (et non macro!)(ici B_Actualiser)
• 1 table (ici Temp_Postes_Caff)

Il s'agit dans mon cas d'une requete de suppression servant à razer la table sur laquelle je travail et voici le code sur l'événement Click du bouton:

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
Private Sub B_Actualiser_Click()
    Dim i As Integer
 
    'Desactivation des alertes
    DoCmd.SetWarnings False
 
    '#####################################
    'Raz de la table temporaire
    '#####################################
 
    'Définition des attributs de ma progressbar
    ProgressBar.Visible = True 'On fait apparaitre la progressbar
    ProgressBar.Min = 0 'Valeur mini de la progressbar
    ProgressBar.Max = DCount("*", "Temp_Postes_Caff") 'On compte les enregistrements de la table à effacer
 
    i = 1 'Initialisation de ma boucle de traitement
    TxtTraitement = "RAZ table temporaire" 'Mise à jour de la description de l'action en cours
    'Boucle de traitement
    While i <= ProgressBar.Max
        DoCmd.OpenQuery ("R_Raz_Temp") 'Traitement de la requete enregistrée
        DoEvents 'Liberation du système pour d'autres executions eventuelles
        ProgressBar.Value = i 'Incrementation de la valeur de la progressbar
        i = i + 1 'Incrémentation de la boucle de traitement
    Wend
    'Initialisation de l'affichage en fin de traitement
    ProgressBar.Value = 0
    ProgressBar.Visible = False
    TxtTraitement = ""

N'étant bien evidement pas un expert en VBA je suis absolument ouvert à toute critique ou correction éventuelle.

Amicalement

[User]

Salut,

Dans ton code VBA, tu exécutes la requête "R_Raz_Temp", autant de fois qu'il y a d'enregistrements dans la table "Temp_Postes_Caff"...

Est-ce conforme avec ce que tu veux faire ?

A+

[mc.schmer]

Salut User,

En effet non! Ce n'est pas du tout ce que je veux faire...
De plus je viens de constater que les fonctions de domaine tel que "Dcount" ne fonctionne que sur des tables et non sur les requêtes. Elle ne fonctionne plus non plus si le contenu de la table retourne Null.
En conclusion je fini par me demander si je ne ferais pas mieux d'utiliser un recordset DAO pour faciliter la démarche?

[User]

Salut,

Les fonctions de domaine comme DCount ne fonctionnent pas avec du sql comme argument, par contre elle fonctionne bien avec le nom d'une requête enregistrée comme argument, à condition que ce ne soit pas une requête paramétrée.

Que veux-tu dire par:

Elle ne fonctionne plus non plus si le contenu de la table retourne Null.

Si la table est vide DCount renvoie 0.

Par contre si tu as 1 critère comme argument de ta fonction DCount, assure toi qu'il n'y a pas d'erreur dans son expression.

Remarque sur les fonctions domaines:

Les fonctions de domaine permettent de simplifier le code VBA, par rapport au recordset, et sont utiles dans le cas ou on a besoin de renvoyer qu'une valeur: somme pour 1 champ, valeur max pour un champ, valeur précise d'1 champ.

Dans ce cas, elles sont généralement assez performantes dans du code VBA.

Par contre dans les requêtes les fonctions domaines sont généralement moins performantes qu'une sous-requête mais un peu plus simple à écrire.

D'autre part comme source d'1 contrôle je ne les utilise pas directement et préfère mettre à jour indirectement le contrôle avec du VBA et éventuellement une fonction domaine utilisée dans le code.

A+

[mc.schmer]

Bonjour User,

Merci de ta réponse.

Si la table est vide DCount renvoie 0

En fait il m'arrive la chose suivante: si ma table "Temp_Postes_Caff" est vide mon code génère l'erreur suivante

Erreur d'exécution '380':
Valeur de propriété non valide.

J'ais finalement compris que j'affecte 0 à la propriété max de l'objet ce qui est incorrect. Donc je corrige mon code comme ceci:

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
ProgressBar.Min = 0 'Valeur mini de la progressbar
    ProgressBar.Max = DCount("*", "Temp_Postes_Caff") 'On compte les enregistrements de la table à effacer
    If ProgressBar.Max = 0 Then
        GoTo lbl1
    Else
        While i <= ProgressBar.Max
            DoCmd.OpenQuery ("R_Raz_Temp")
            DoEvents
            'SysCmd acSysCmdUpdateMeter, i 'Définit le texte à afficher et la valeur actuelle de la jauge.
            ProgressBar.Value = i
            i = i + 1
        Wend
    End If
    ProgressBar.Value = 0
lbl1:
    'Initialisation de l'affichage en fin de traitement
    ProgressBar.Value = 0
    ProgressBar.Visible = False
    TxtTraitement = ""

Dernière question, dois remonter l'instruction au dessus de ma boucle while afin de ne pas la répéter?

Amicalement.

[User]

Salut,

Dernière question, dois remonter l'instruction au dessus de ma boucle while afin de ne pas la répéter?

Oui mais dans ce cas tu ne risques pas d'obtenir le résultat escompté :

La barre de progression, ne va pas progresser durant l'exécution de la requête, mais après il me semble

A+