Discussion :

[car23]

(Niveau plutôt débutant)

Bonjour à tous,

J'ai plusieurs tables identiques, chacune au nom de pays et donc contenant des enregistrements distincts.
Dans ces tables, trois champs : [VOEUX ENVOYES],[VOEUX RECUS],[REP-VOEUX RECUS], contiennent une case à cocher pour chaque enregistrement et un champ texte [CADEAUX].
En fin d'année, je souhaite mettre toutes les cases à cocher de chacun de ces champs à zéro (c-à-d vides) ainsi que le champ texte. Voici mon code (ci-dessous) mais ça ne marche pas. Rien ne se passe. Pourtant, l'année passée ça marchait. Je ne sais pas si le code a été bidouillé.

Quelqu'un peut-il m'aider ?
Grand merci d'avance

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
---------------- Le code :------------
Sub UpdateX()
 
    Dim dbs As Database
 
    ' Modifiez cette ligne pour préciser le chemin de la base de données ADRESSES.mdb.
    Set dbs = OpenDatabase("C:\Users\Ordi\Desktop\ADRESSES.mdb")
 
    ' Attribue la valeur 0 aux champ [VOEUX ENVOYES],[VOEUX RECUS],[REP-VOEUX RECUS], 
    ' de tous les enregistrements dont ce champ a pour valeur le nombre 1.
    'et " " au champ texte [CADEAUX]
 
    dbs.Execute "UPDATE SUISSE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False , [CADEAUX] = '' "
 
    dbs.Execute "UPDATE FRANCE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False ,[CADEAUX] = ''"
 
    dbs.Execute "UPDATE BELGIQUE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False ,[CADEAUX] = ''"
 
dbs.Close
 
End Sub

[User]

Bonsoir,

Dans quel contexte utilisez-vous ce code ?

Depuis quelle application ?

Je présume que le chemin de la base de données "C:\Users\Ordi\Desktop\ADRESSES.mdb" est bon ?

Cdlt,

[car23]

Bonjour,

Comme le suggère le préfixe [AC-2010], il s'agit d'une base de données construite sous Access 2010.
Nous avons, pour chaque pays, une base permanente avec des noms de personnes et coordonnées, etc.
Dans les champs énumérés, nous cochons parfois une case OUI/NON, en fonction de la situation. A la fin de l'année, nous voudrions remettre à zéro toutes les cases cochées des enregistrements de ces 3 champs et vider un champ du texte qu'il contient.
Le chemin de la base de données est parfaitement correct. Nous avons aussi fait plusieurs essais en changeant la base de répertoire et, bien sûr, en indiquant le chemin juste. Rien n'y fait.
car23

[User]

Bonjour,

Si je comprends bien, vous exécutez cette procédure depuis une base sous Access 2010.

Est-ce en cliquant sur un bouton de commande dans un formulaire ou depuis une macro ?

Avez-vous vérifié si les macros sont activées dans votre base 2010 :



Je suis sous 2013, mais la fenêtre ne dois pas être trop différente sous 2010.

Peut-être ajouter l'option dbFailOnError dans le code pour afficher le message d'erreur :

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
 
---------------- Le code :------------
Sub UpdateX()
 
    Dim dbs As Database
 
    ' Modifiez cette ligne pour préciser le chemin de la base de données ADRESSES.mdb.
    Set dbs = OpenDatabase("C:\Users\Ordi\Desktop\ADRESSES.mdb")
 
    ' Attribue la valeur 0 aux champ [VOEUX ENVOYES],[VOEUX RECUS],[REP-VOEUX RECUS], 
    ' de tous les enregistrements dont ce champ a pour valeur le nombre 1.
    'et " " au champ texte [CADEAUX]
 
    dbs.Execute "UPDATE SUISSE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False , [CADEAUX] = '' ", dbFailOnError
 
    dbs.Execute "UPDATE FRANCE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False ,[CADEAUX] = ''", dbFailOnError
 
    dbs.Execute "UPDATE BELGIQUE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False ,[CADEAUX] = ''", dbFailOnError
 
dbs.Close
 
End Sub

Cdlt,

[car23]

Bonjour,

Merci pour ces pistes.
J'ai modifié le module comme suit en éliminant le champ texte [CADEAUX] et en rajoutant votre proposition 'dbFailOnError' :

Code :

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

1
2
3
 dbs.Execute "UPDATE SUISSE " _
        & "SET [VOEUX ENVOYES] = False ,[VOEUX RECUS] = False ," _
        & "[REP-VOEUX RECUS] = False", dbFailOnError

Ça marche, sans message d'erreur : les cases à cocher sont toutes décochées et ce dans toutes les tables. Super.

Mais j'aimerais bien incorporer au code mon champ texte [CADEAUX] (qui semble bugger) pour vider les enregistrements. Une idée pour cela ?
En tout cas merci.
car23

[tee_grandbois]

Bonjour,
As-tu vérifié si la propriété "Chaine vide autorisée" du champ [CADEAUX] était à Oui ?

[Invité]

Bonjour,

Code :

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

[CADEAUX] = Null,

[car23]

Bonjour,


..."Chaine vide autorisée" du champ [CADEAUX] était à Oui ?
Oui : voir fichier joint

je vais testé aujourd'hui : [CADEAUX] = Null,

merci pour votre aide précieuse

[car23]

Bonjour,

Tout est OK, la macro (complète) marche au poil.
Merci à tous!
C'est dingue, comme on va tout de suite mieux derrière un écran...
car23