Discussion :

[franckimmo]

Bonjour à tous,

Le but de ce code est de transférer les données de la TABLE3 vers la table TransfertdeCegecom. Avant de transférer les données le code ci-dessous va d'abord supprimer la table TransfertdeCegecom puis va créer une nouvelle table TransfertdeCegecom avec les données de TABLE3.

Mon problème c'est :

Si la table TransfertdeCegecom n'existe pas il y a une erreur, pour que ce code fonctionne il faut que la table TransfertdeCegecom existe déjà dans la base de données.
Je souhaitrais donc trouver la syntaxe qui pourrait chercher si la table TransfertdeCegecom existe déjà et si elle existe alors la supprimer et ensuite copier les données de la TABLE3 dans une nouvelle table TransfertdeCegecom créer pour le transfert des données de la table3.
Si quelqu'un peut me venir en aide il est le bienvenue
Merci

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
Private Sub Bascule0_Click()
MaBD As Database
 
TransfertdeCegecom As TableDef
 
' supprime la table nommée "TransfertdeCegecom"
DoCmd.DeleteObject acTable, "TransfertdeCegecom"
 
'Ma BD fait référence à la base de donnée en cours
Set MaBD = CurrentDb()
 
'Création d'une nouvelle table "transfertCegecom" dont les données proviennent de la "TABLE3"
MaBD.Execute "SELECT TABLE3.* INTO " _
        & "[TransfertdeCegecom] FROM TABLE3;"
 
'Indique le nombre d'enregistrements insérés par une boîte message
MsgBox "La création de la nouvelle table s'est déroulée avec succès. " & MaBD.RecordsAffected & " enregistrements", vbInformation, "Opération réussie"
 
'Ferme l'objet database
MaBD.Close
 
End Sub

[FreeAccess]

Bonjour,

"Mille fois la tu consultera........"

...la syntaxe qui pourrait chercher si la table TransfertdeCegecom existe déjà...

Comment savoir si une table existe ?
Comment tester l'existence d'une table avec ADO ?

....et encore mieux.
Comment supprimer une table si elle existe ?

Bonne lecture....