Discussion :

[darknain]

Bonjour,

J'ai importé une table que j'ai appelé ATB à partir d'un fichier excel, la table est lié au fichier excel pour que les données ne soient modifiés qu'à partir d'excel.
Cependant je ne peux donc pas faire de clé primaire dans ma table ATB parce qu'elle n'est modifiable que par excel.
J'aimerais donc qu'au démarrage d'accès que les données issues de ma table ATB ( qui sera à jour grâce au fait qu'elle soit lié au fichier excel) soient automatiquement copié dans une table ATB2 sur laquelle je baserais mes formulaires.
Je ne sais pas du tout comment je dois faire en VBA, je n'ai jamais codé dessus pourriez vous m'aider ?

Merci,

[marot_r]

Bonjour.

Est-ce une copie simple, c-à-d que toutes les données de ATB remplacent toutes les données existantes dans ATB2 ?

Ou Est-ce une copie/MAJ c-à-d que

• tu vas mettre à jour les enregistrements qui existent déjà dans ATB2
• tu vas ajouter les enregistrement qui n'y sont pas
• tu vas supprimer les enregistrements qui n'y sont plus.

A+

[darknain]

Bonjour,

J'aimerais que ATB2 soit une copie parfaite des données de la table ATB. Du coup si la table ATB2 possède déjà des données, il faudrait tout remplacer par les nouvelles données.

Cordialement,

[marot_r]

OK donc c'est assez facile.

1. Tu crées une requête de suppression pour vider ATB2 : reqViderATB2.
2. Tu crées une requête d'ajout pour remplir ATB2 à partir de ATB : reqRemplirATB.
3. Tu lances le code suivant pour l'exécuter automatiquement :
   
   

   Code :

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

   1
   2
   3
   4
   5
   6
   public sub CopierATB()
      dim db as dao.database:set db=currentdb
      db.querydefs("reqViderATB2", dbFailOnError)
      db.querydefs("reqRemplirATB2", dbFailOnError)
      db.close:set db=nothing
   end sub

A+