Discussion :

[maxdwarf]

bonjour à tous,
je dispose d'une applic qui tourne bien sur mon poste, seulement je voudrais savoir comment faire pour demander à l'utilisateur, à la première utilisation, le chemin de ma base de données, sans passer par les options access, car je veux l'utiliser avec le runtime. J'ai regarder la FAQ, malgré les quelques sujets là-dessus, je ne trouve pas mon bonheur.

[guigui5931]

il faut que tu lui demande le chemin avec une MsgBox
puis tu execute ce code au chargement de ton premier formulaire, il ouvre la base de donnée distante, et pour chaque table il la lie, et si il y avait déja une table lié du même nom il la supprime avant

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
 
Set db = DBEngine.OpenDatabase(NomBase, True, True)
Dim table As TableDef
For Each table In db.TableDefs
    Dim nom As String
    nom = table.Name
    If Not (Left(nom, 4) = "MSys") Then 'pour ne pas prendre les tables système
        DoTheLink NomBase, nom
    End If
  Next
 
public Sub DoTheLink(strNomBase As String, strNomTable As String, Optional strNomSource)
  Dim db As Database
  Set db = CurrentDb
  On Error Resume Next
  db.TableDefs.Delete strNomTable
  On Error GoTo 0
  If IsMissing(strNomSource) Then strNomSource = strNomTable
  DoCmd.TransferDatabase acLink, "Microsoft Access", strNomBase, acTable, strNomSource, strNomTable, False
End Sub

Moi j'ai fait ça avec un réseau Windows et ça marche nikel, par contre je crois pas que ça marche avec des références relatives (../dosssier/base) il faut mettre des références absolue (//serveur/dossier/base.mdb)

En espérant que ça marchera pour toi

[maxdwarf]

dans le formulaire de saisie, je dois appeler comment la zone de texte où taper le chemin?
désolé mais j'ai besoin d'explications sur du code comme celui-ci...

[guigui5931]

Ben tu met un zone de texte, tu lui donne un nom (par exemple chemin) et tu met dans l'evenement AfterUpdate de ta zone

Code :

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

1
2
3
 
dim NomBase as string
NomBase=chemin.value

+ la suite du code que je t'avais mis
Comme ça dès que le chemin sera ajouté on récuperera le nom de la base

[maxdwarf]

merci pour cette précieuse aide et ce temps passé.