Discussion :

[rose0729]

Bonjour,

Mon projet va bientôt voir le jour... mais, il y a toujours un mais

Mon application tourne très bien sur un poste qui a access

mais en runtime, j'ai les requêtes action qui s'affichent ! (insupportable pour l'utilisateur)

et j'ai énormément de requête action

Y a t'il une solution ?

Merci à vous si vous avez une idée

[fevec]

Bonjour,
Les requêtes qui s'affichent... ?
Les avertissements de sécurité ("vous allez éxecuter...") ou le résultat ?

Pour masquer les avertissement de sécurité

Code :

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

DoCmd.SetWarnings False

bonne journée

Cdlt,
fevec

[rose0729]

Bonjour fevec

Je me suis mal exprimée

C'est les messages qui s'affichent "vous allez exécuter..." "vous allez ajouter...."

Ta formule pour masquer ces avertissements, je la met ou ?

[argyronet]

Bonjour,

Dans les options d'Access, tu dois définir si les requêtes action sont à confirmer. du fait qu'elles le sont par défaut.

Mais effectivement, un appel global de la commande VBA proposée par fevec dans une procédure avant exécution te permets d'éviter l'apparition des messages.

Argy

[rose0729]

Dans les options d'access j'ai paramétré que je ne voulais pas d'avertissement pour les requetes action

quand tu dis "un appel global de la commande VBA" : Comment je fais ça ?

Ou je peux mettre cette formule

Code :

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

DoCmd.SetWarnings False

?

avant chaque requete action ? (j'en ai des centaines !)

Merci à toi pour une idée

[argyronet]

Tout dépend comment s'utilise ta base...
Humm, lorsque ta base s'ouvre, il y a bien un formulaire de démarage ou un objet que se charge... ?
Si oui, alors sur un événement de chargement, tu peux poser cette instruction.

Entre (), que tu aies des centaines de requêtes action, pourquoi pas, mais tu aurais du les appeler par une fonction générique...
Par exemple :

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
 
 
Public Function ExecuterRequete(ByVal QuelleRequete As String, ByVal AvecAvertissement As Boolean, ByRef NombreEnr As Long) As Boolean
Dim blnExiste                                          As Boolean
Dim lngErr                                             As Long
Dim strErr                                             As String
 
    DoCmd.SetWarnings AvecAvertissement
 
    Select Case Left$(Trim$(QuelleRequete), 6)
        Case "UPDATE", "INSERT", "DELETE"
            'Requête SQL
            On Error GoTo L_ErrExecuterRequete
            With CurrentDb
                .Execute QuelleRequete, dbFailOnError
                NombreEnr = .RecordsAffected
            End With
        Case Else
            On Error Resume Next
            DoCmd.SelectObject acQuery, QuelleRequete
            If err Then
                lngErr = err.Number
                strErr = err.Description
                err.Clear
                On Error GoTo L_ErrExecuterRequete
                err.Raise lngErr, "Ooops, problème", strErr
            Else
                DoCmd.OpenQuery QuelleRequete
            End If
    End Select
 
    On Error GoTo 0
L_ExExecuterRequete:
    DoCmd.SetWarnings False
    Debug.Print NombreEnr; " a(ont) été affecté(s) par la requête..."
    Exit Function
 
L_ErrExecuterRequete:
    MsgBox err.Description, 48, err.Source
    Resume L_ExExecuterRequete
End Function

Argy

[rose0729]

Merci argyronet pour ta réponse

Donc, il faut que je mette cette fonction sur tous mes formulaires de démarrage ?
et si dans un formulaire j'ai d'autres formulaires, j'applique aussi ?

tu peux me dire : "appeler les requêtes par une fonction générique" on fait comment ?

[argyronet]

La fonction ExecuterRequete doit être inscrite dans un module et appelée depuis n'importe quel formulaire ; elle est Public.
Donc au lieu de faire un :

Code :

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

DoCmd.OpenQuery "MaRequête", 0

tu écris :

Code :

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

1
2
Dim lngEnrgt As Long
Call ExecuterRequete("MaRequête", False, lngEnrgt)

et selon le type de requête, tu peux affecter un label avec le nombre d'enregistrements traités (via lngEnrgt)...

Argy

[rose0729]

Je vais tester tout ça

Merci à toi argyronet

[rose0729]

Je marque résolu, car le temps que je teste tout ça...

merci encore

[argyronet]

Normalement, tu ne mets Resolu que quand c'est vraiment résolu...

Mais bon, si ça va pas, tu reviendras.

Argy