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 |
Partager