Base de données vérouillée
Juliaz
-
Juliaz -
Juliaz -
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:
L'erreur se produit à la ligne de code en gras et italique. 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
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:
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
<gras>db.Execute ("INSERT INTO [Lecture] SELECT * FROM [MS Access;Database=" & CurrentProject.FullName & "].[Saisie]</gras><ital></ital> '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 en gras et italique. 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
A voir également:
- Base de données vérouillée
- Fuite données maif - Guide
- Base de registre - Guide
- Supprimer les données de navigation - Guide
- Tnt base de données vide - Forum TNT / Satellite / Réception
- Formules mathématiques de base - Télécharger - Études & Formations
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir, si je comprends bien, tu fais ceci:
- ton code se trouve dans la base1
- ton code ouvre la base2 dans un workspace
- ton code ordonne à la base2 d'ouvrir une table dans la base1.
c'est bien cela?
As-tu essayé de faire plus simple, par exemple:
- ton code se trouve dans la base1
- ton code ouvre la base2 dans un workspace
- ton code ordonne à la base2 d'ouvrir une table dans la base1.
c'est bien cela?
As-tu essayé de faire plus simple, par exemple:
Dim SQL As String SQL = "INSERT INTO [MS Access;Database=\\dossier\Access\Base2.mdb].Lecture SELECT * FROM Saisie" DoCmd.RunSQL SQL
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
1 584
ou bien: