Discussion :

[arjo54]

Bonjour à Tous

J'ai une requête Mise à Jour qui exécuter toute seule, fonctionne très bien.
Par contre quand je la met dans mon code VBA, rien ne ce passe.

Code :

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

1
2
 
DoCmd.OpenQuery "MAJ_Asolder", AcViewNormal, AcEdit

J'ai essayé avec AcAdd, mais pareil
Merci de votre aide
Joël

[mout1234]

Bonjour,

Même si on peut parfois l'utiliser pour des requeêtes action, la méthode OpenQuery est destinée çà l'utilsiation avec des requêtes SELECT.

Essaie:

Code :

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

Currentdb.Execute "MAJ_Asolder", dbFailOnError

[helas]

tout simplement

Code :

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

1
2
 
DoCmd.OpenQuery ("MAJ_Asolder")

[arjo54]

Bonjour à tous

merci de vos conseils.
Je viens d'essayer les deux solutions, mais aucune ne fonctionne.
Je ne comprend pas pourquoi.
Si vous avez une solution ???
Merci
Joël

[Invité]

Bonjour

As-tu essayé avec

Code :

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

DoCmd.RunSql ...

voir

Starec

[arjo54]

Je viens de regarder dans l'aide, mais je ne vois pas trop comment faire la commande DoCmd.RunSql avec ma requête
Ma requête MAJ contient ce qui suit :
Champ : Mis_en_Solde
Table : Asolder (qui est une requête extrayant tous les enregistrements ayant N dans le champ Mis_En_Solde de la base NoelPourTous
Mis à Jour : [Mis_en_Solde]="O"

Autrement j'ai essayé ce qui suit :

Code :

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

1
2
3
 
SQL = "UPDATE NoelPourTous SET Mis_en_Solde = 'O' WHERE Mis_en_Solde = 'N"
DoCMD.RunSQL SQL

Sachant que je doit remettre à O tous les enregistrements qui ont N dans le champ Mis_En_Solde

Mais poujours pas de mise à jour de ma base

Merci de votre aide

Joël

[Kloun]

Code :

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

1
2
3
SQL = "UPDATE NoelPourTous SET Mis_en_Solde = 'O' WHERE Mis_en_Solde = 'N'"
Currentdb.Execute SQL, dbFailOnError
Msgbox Currentdb.recordsaffected

Ca dit quoi ?

[arjo54]

Merci de votre aide

Je viens de m'appercevoir que c'est ma condition qui ne marche pas

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
 
reponse = MsgBox("Mise à Jour des Soldes ???", vbYesNo, "MAJ des Soldes")
 
    If Response = vbYes Then
 
        MsgBox ("Bonjour Oui")
        Rem CurrentDb.Execute "MAJ_Asolder", dbFailOnError
        Rem DoCmd.OpenQuery ("MAJ_Asolder")
        Rem DoCmd.RunSQL SQL
 
        CurrentDb.Execute SQL, dbFailOnError
        MsgBox CurrentDb.recordsaffected
 
        Rem Me!Recette_CCP = 125
 
    Else
        MsgBox ("Bonjour Non")
        DoCmd.Close
    End If

Je passe toujours dans Non quelque soit ma reponse
Je ne vois pas ce qu'il y a, car j'ai pris l'exemple sur le forrum!!!!!
J'ai mis également IF reponse = 6 Then, car quand j'affiche reponse si j'ai cliqué sur Oui ça me renvoie 6
Merci

[Kloun]

1 - Rajouter

Code :

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

1
2
Option Compare Database
Option Explicit

dans chaque module.
2 - Response <> Reponse

[arjo54]

merci à tous de votre aide

Hé oui, on peut parfois chercher bien loin alors que la solution est évidente.