Discussion :

[chabagrou]

bonjour,
j'ai une appli access destinée à plusieurs utilisateurs, que j'ai fractionnée en mettant la base dorsale sur un serveur( dans mon poste le serveur est placé sur T:\).
mon prob est que quand je change de poste où quand un autre utilisateur essai d'accéder à l'appli, l'emplacement de la base dorsale change puisque pour lui le bon serveur est sur D par ex et pas T et ducoup pas de connection entre les deux bases.

quelqu'un entre vous aura t'il une idée ou un code qui permet d'établir automatiquement la connection avec la base dorsale quelque soit l'emplacement du serveur sachant que le nom de serveur ne change pas, il est tjr le meme.

merci bcp

[Invité]

Bonjour

Pour ce connecter au serveur ne met pas la lettre, il faut utiliser un chemin UNC

\\NomDuserveur\....

Starec

[chabagrou]

merci Starec
oui je vois ce que vous voulez dire, mais je vois pas où je peux mettre le chemain pour rétablir la connection.
pouviez vous me donner plus d'explications SVP
merci encore une fois

[Invité]

Re

Dans ce cas il faut faire ta liaison dynamiquement, à l'ouverture de la base sur le poste fixe

Voici un exemple de code que j'utilise

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
 
Public Sub LiaisonTable()
'---------------------------------------------------------------------------------------
' Procedure : LiaisonTable
' DateTime  : 04/03/2007 07:04
' Author    :  (STAREC)
' Purpose   : Cette procédure va permettre de crée la liaison entre la base dorsale et la
'             base frontale
'---------------------------------------------------------------------------------------
'
    Call RecupChemin
    Set dbf = CurrentDb
    dbf.TableDefs.Refresh
    Dim rst As DAO.Recordset
    strSql = "SELECT strTable FROM tbl_TableAConnecter;"
    Set rst = dbf.OpenRecordset(strSql)
    While Not rst.EOF
        ' suppression de la table
        On Error Resume Next
        DoCmd.RunSQL "DROP TABLE [" & rst("strTable") & "] ;"
        ' création de la liaisons
        DoCmd.TransferDatabase acLink, "Microsoft Access", strChemBaseDorsal, acTable, rst("strTable"), rst("strTable")
        rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
End Sub

J'ai une table, où j'ai le nom des tables à lier (tbl_TableAConnecter)
Je supprme les tables " DropTable"
Je transfert les tables avec une liaison TransferDatabase acLink
La variable strChemBaseDorsal contient le chemin

J'utilise DAO pour cela, si tu ne connais pas va voir l'excellent tuto sur le site

Starec

[chabagrou]

merci bcp

ya t-il pas d'autres moyens plus pratiques où l'utilisateur n'a pas à aller chercher dynamiquement le fichier de base dorsale pour etablir la liaison

[Invité]

Re

L'utilisateur n'a rien à faire je t'explique.

1 - Tu transformes la sub en function
2 - Tu vires

Code :

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

1
2
 
Call RecupChemin

à la place tu mets

Code :

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

1
2
3
4
5
 
dim strChemBaseDorsal as string
strChemBaseDorsal = "\\nomduserveur\..."
dim dbf As DAO.Database
dim tbl As DAO.TableDef

3 - Tu mets cette fonction dans un module
4 - tu crées une macro que tu nommes AutoExec, cette macro ce lancera automatiquement à l'ouverture de la base
5 - Dans cette macro tu sélectionnes ExecuterCode
6 - La en bas à nom fonction tu cliques sur les ...
7 - Tu sélectionnes fonction intégrés, et la fonction

N'oublie pas de coché DAO 3.6 dans les références

Voilà

Starec

[Herman]

Bonjour,

Je deterre ce sujet parce que j'ai une question là dessus xD

Comment faire en sorte pour que la frontale se lie automatiquement avec la dorsale se trouvant dans le MEME répertoire ?

[Herman]

En fait, j'ai trouvé, je procédais pas comme il fallait =)

Code :

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

strChemBaseDorsal = CurrentProject.Path & "\nombase.mdb"