Discussion :

[challe1976]

Bonjour

J'aimerais transférer deux tables d'une base de données à un autre en cliquant sur un bouton.

Voici mon code:

Il me donne un erreur aux endroits en rouge

Pouvez-vous me dire quel est le problème ?

Merci beaucoup.

Catherine

Code :

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

1
2
3
4
5
6
7
8
9
10
11


Private Sub btnTransferer_Click()
        CurrentDb.Execute "SELECT * INTO [" & STA220 & "] FROM STA220 & " - " & txtCyclePaiement"
        CurrentDb.Execute "SELECT * INTO [" & STA01234 & "] FROM STA01234 & " - " & txtCyclePaiement"
        DoCmd.TransferDatabase acExport, "Microsoft Access", K:\41500\_SDLR_REVISION\Inventaire\waysource.accdb, acTable, TableName, TableName
        DoCmd.DeleteObject acTable, TableName
        
        MsgBox "Transfert terminé"
End Sub

[marot_r]

Bonjour

à mon avis cela vient des - dans les noms et du manque de guillemets.

Essaye cela :

Code :

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

1
2
3
4
5
6
7
8
Private Sub btnTransferer_Click()
        CurrentDb.Execute "SELECT * INTO [STA220] FROM [STA220 - " & txtCyclePaiement & "]"
        CurrentDb.Execute "SELECT * INTO [STA01234] FROM [STA01234 - " & txtCyclePaiement & "]"
        DoCmd.TransferDatabase acExport, "Microsoft Access", "K:\41500\_SDLR_REVISION\Inventaire\waysource.accdb", acTable, TableName, TableName
        DoCmd.DeleteObject acTable, TableName
 
        MsgBox "Transfert terminé"
End Sub

Pour les noms d'objet il est recommandé de se limiter aux lettres de A à Z (majuscules, minucules, sans accent et cédille), aux chiffres et au souligné (_).
Même si Access accepte les autres caractères, ils sont source de bugs vicieux et sournois.
Quand un nom utilise des caractères plus "exotiques", il est prudent de l'encadrer avec des crochets ([]) pour s'assurer que Access comprend bien que c'est un nom.

A+