Bonjour à tous,

Voici mon problème....
Un bouton "Export" qui lorsque l'on clique copie tous les entrées d'une table dans une BDD et qui l'envoie vers la même table se trouvant dans une autre BDD..
Le but? sauver les données dans une autre BDD..

Mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandExport_Click()
 
Dim MaDB As DAO.Database
Set MaDB = CurrentDb()
On Error GoTo SendError
MsgBox ("Before exporting all datas, be sure that the computer is connected to the harddrive/server!")
CurrentDb.Execute "INSERT INTO  tblPatientAdmins IN 'C:\Users\dnr\Desktop\20131029(3)FWDatabaseAccess2010\LARAdminV1.accdb' SELECT * FROM tblPatientAdmins"
SendError:
    MsgBox ("A problem occured with the connection to the server, close the database and try again!")
    Exit Sub
 
End Sub
Mon problème?
Eh bien, rien ne se passe et pourtant la localisaton de la seconde BDD est bien C:\Users\dnr\Desktop\20131029(3)FWDatabaseAccess2010\LARAdminV1.accdb' SELECT * FROM tblPatientAdmins

Alors que se passe-t-il?
Faut il activer une librairy ou mon code est il faux?

Merci à vous...