Bonjour à tous,
Le sujet a surrement déjà été traité mais je n'en ai trouvé aucun qui ressemblait point pour point à mon soucis.
Le Contexte :
Je suis en entreprise et je travail sur un poste avec Access d'installé (Les autres postes ne l'ont pas). J'ai créé une application VBA Excel qui utilise Access comme base de données et j'y accéde parfaitement sur mon pc MAIS les autres postes de l'entreprise ne possédant pas Access ne peuvent pas y accéder.
Les contraintes sont :
Je ne peux pas acheter d'autres licences Access
Je ne peux pas utiliser d'autres bases de données
Je ne peux pas me passer d'Access
Je ne peux pas installer Access sur un Windows Server
Ce que j'ai actuellement :
la connection à ma base de données s'effectue via un module de classes :
Voilà, si la solution est de passer par autre chose que DAO je suis preneur tout en sachant que j'aimerai garder un maximum de code tel quel (La DeadLine est pour bientôt, et je preferai pas changer la syntaxe de toutes mes requetes et/ou structure de mon application.. ^^)
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
23 Public db As DAO.Database Public rst As DAO.Recordset Public wrkCurrent As DAO.Workspace Public dbname As String Public Sub class_initialize() Dim message 'Instanciation variable dbname = ThisWorkbook.Path & "\Application\BDD\RA.accdb" 'Déclaration de la variable de connexion On Error Resume Next Set db = OpenDatabase(dbname) Set wrkCurrent = DBEngine.Workspaces(0) If err.Number <> 0 Then message = MsgBox("Impossible de se connecter à la base de données. Application inutilisable !", vbCritical, "erreur base de données") End If End Sub
Partager