Discussion :

[Gloirez]

Bonjour,

Je suis confrontée depuis cette semaine à un problème sur lequel je viens demander votre aide.
J'ai en effet deux bases de données différents: base1 et base2.
la base1 a une table nommée Saisie et la base2 a une table nommée Lecture.
Les deux bases ne sont pas au même endroit.

Grâce à un bouton j'importe les données de la table Saisie de la Base1 vers la table Lecture de ma base2.
Le code a toujours marché et à ma grande surprise j'ai aujourd'hui une erreur d'exécution 3734 qui me dit ceci:
" la base de données a été placée par l'utilisateur<Admin> sur<nom du poste> dans un étant l'empêchant d'être ouverte ou verrouillée."

J'ai remarqué que quand je redémarre l'application, le code marche à nouveau.

Ci-dessous mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Test_Click()

Dim wksp As Workspace
Dim db As Database

Set wksp = CreateWorkspace("", "admin", "")
Set db = wksp.OpenDatabase("\\dossier\Access\Base2.mdb")  ' chemin d'accès à la base2
db.Execute ("Delete * FROM [Lecture]")  ' supprime les données de la table Lecture se trouvant à la base 2
db.Execute ("INSERT INTO [Lecture] SELECT * FROM [MS Access;Database=" & CurrentProject.FullName & "].[Saisie] 'je remplie la table Lecture de la base 1 grâce à la table Saisie de la base1
db.close

MsgBox " les données ont été exportées"
End Sub

L'erreur se produit à la ligne de code colorée en jaune.Je précise que j'ai mis CurrentProject.FullName car l'appli va être distribuée à d'autre utilisateurs et je souhaiterais qu'il s'adapte suivant le chemin de chacun.

Je viens solliciter vos lumières.
Merci d'avance

[Invité]

Bonsoir,

CurrentDb correspond à la base 1 et testeRd.accdb à la base 2

Code :

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

1
2
3
4
5
 
sub test()
CurrentDb.execute "DELETE toto.* from toto  in 'C:\Users\Robert\Desktop\testeRd.accdb'"
CurrentDb.execute "INSERT INTO toto in 'C:\Users\Robert\Desktop\testeRd.accdb' SELECT toto.*FROM toto;"
end sub

[Gloirez]

Merci dysorthographie ,

Ce code me convient bien!!

Bonne soirée