Discussion :

[chelmi95]

Bonjour,

J'ai créer une bdd pour un client. Pour l'instant pour mettre à jour la base il me l'envoi en fin de journée pour que je puisse la modifier dans la soirée et ensuite je la renvoie. Pour une meilleure mise à jour je souhaite la scindée. Mon problème c'est que la personne utilise la base avec le runtime et ne peut donc pas accéder au gestionnaire des tables liées.

Je sais qu'il est possible de rétablir la liaison via DAO mais je ne maitrise pas trop le code.

Est ce quelqu'un peut m'aider .

Merci d'avance.

[sylvain.thibault]

Bonjour,

Tu trouveras ci-joint un code qui te permet de sélectionner le chemin d'accès de tes tables en fonction de l'endroit où se trouve l'application.

A adapter suivant tes besoins.

Par contre, j'ai de mon côté une question. Je souhaiterais moi aussi utiliser le runtime access afin d'éviter l'installation d'access sur tous les postes. Quels sont les prérequis ? Une installation d'Office version développeurs sur mon poste ? Où la trouver ? Merci de tes lumières

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Function ActualiserAttaches() As Boolean
' Actualise les attaches à la base de donnée spécifiée.
' Retourne Vrai si tout s'est bien passé.
 
Dim dbs As Database
Dim entCompteur As Integer
Dim tdf As TableDef
 
If CurrentProject.Path Like "*X:\*"  Then
    chNomFichier = "X:\"
Else
    chNomFichier = "K:\"
End If
' Boucle sur toutes les tables de la base de données.
Set dbs = CurrentDb()
For entCompteur = 0 To dbs.TableDefs.count - 1
    Set tdf = dbs.TableDefs(entCompteur)
    ' Si la table possède une chaîne de connexion,
    ' c'est une table attachée.
    If Len(tdf.Connect) > 0 Then
        If tdf.Connect Like "*infocentre*" Then
        Else
            Attache = chNomFichier & "data.mdb"
            tdf.Connect = ";DATABASE=" & Attache
            err = 0
            On Error Resume Next
            tdf.RefreshLink 'Rattache la table.
            If err <> 0 Then
                    MsgBox "La table " & dbs.TableDefs(entCompteur).Name & " n'a pas été mise à jour"
            Exit Function
            End If
        End If
    End If
Next entCompteur
 
Set tdf = Nothing
Set dbs = Nothing
MsgBox "Toutes les tables ont été mises à jour"
 
End Function

Sylvain Thibault

[chelmi95]

Merci pour ton code je vais le tester de suite.

Pour le runtime Access 2007 il suffit juste de le télécharger et de l'installer sur les machines qui n'ont pas la version originale. Il est totalement gratuit. je n'ai rien de fait de plus.

[argyronet]

sylvain.thibault, ton code est à revoir...
Dans certains cas, le chemin de connexion est UNC donc pas de lettre de lecteur définissant le serveur mappé... De plus, il est fortement recommandé de définir les liaisons avec cette convention. Chaque poste utilisateur doit en théorie avoir les mêmes lecteurs pour un serveur donné mais ce n'est pas une règle systématiquement adoptée...

De plus, bien qu'il concerne TON projet, ce bloc est inutile :

Code :

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

1
2
3
4
5
If CurrentProject.Path Like "*X:\*"  Then
    chNomFichier = "X:\"
Else
    chNomFichier = "K:\"
End If

Un simple

Code :

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

chNomFichier = Left$(CurrentProject.Path, 3)

suffit...
Enfin, une gestion d'erreur aurait été indispensable pour éviter de faire un Exit Function en cas de table manquante (ce qui peut arriver - les fichiers texte ou excel par exemple) et continuer pour les autres tables pour enfin de procédure, afficher un message listant toutes les tables manquantes de manière à ce l'utilisateur puis réagir...

Argy