Attachement des tables
duodiscus
Messages postés
38
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2006
-
25 avril 2005 à 20:43
ISABELLE6558 Messages postés 15 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 1 mars 2007 - 14 mai 2005 à 18:34
ISABELLE6558 Messages postés 15 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 1 mars 2007 - 14 mai 2005 à 18:34
A voir également:
- Système standard d attachement hexa
- Loi normale standard - Forum Visual Basic 6
- Systeme geolocalisation vehicule - Forum Java
- Système de cache - Conseils pratiques -PHP
- Couleur hexa - Forum C# / .NET
- Système de pointage - Forum PHP
3 réponses
ISABELLE6558
Messages postés
15
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
1 mars 2007
25 avril 2005 à 22:06
25 avril 2005 à 22:06
Une petite fonction qui permet de lier une base access selon le chemin choisi
Sub MàJ_Chemin(sChemin as String)
Dim maBD As Database, maTable As TableDef, s As String
Dim Fichier As String, c As String, i As Integer
Set maBD = CurrentDb()
For Each maTable In maBD.TableDefs
If Len(maTable.Connect) > 0 Then
s = maTable.Connect
Fichier = ""
c = Right(s, 1)
i = 1
Do While c <> ""
Fichier = c & Fichier
c = Mid(s, Len(s) - i, 1)
i = i + 1
Loop
maTable.Connect = Left(s, 10) & sChemin & Fichier
maTable.RefreshLink
End If
Next
Set maBD = Nothing
End Sub
ça marche depuis longtemps !
Bon courrage.
Sub MàJ_Chemin(sChemin as String)
Dim maBD As Database, maTable As TableDef, s As String
Dim Fichier As String, c As String, i As Integer
Set maBD = CurrentDb()
For Each maTable In maBD.TableDefs
If Len(maTable.Connect) > 0 Then
s = maTable.Connect
Fichier = ""
c = Right(s, 1)
i = 1
Do While c <> ""
Fichier = c & Fichier
c = Mid(s, Len(s) - i, 1)
i = i + 1
Loop
maTable.Connect = Left(s, 10) & sChemin & Fichier
maTable.RefreshLink
End If
Next
Set maBD = Nothing
End Sub
ça marche depuis longtemps !
Bon courrage.
duodiscus
Messages postés
38
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2006
26 avril 2005 à 08:57
26 avril 2005 à 08:57
hum
ce serait pas mal
et n'y aurait il pas moyen que je fasse une sorte de formulaire de paramétrage ?
un formulaire où les gens saisiront leur chemin d'accès ?
ça doit être faisable avec le code là
il suffirait de récupérer les chemins et en cliquant sur un bouton de les valider
ce serait pas mal
et n'y aurait il pas moyen que je fasse une sorte de formulaire de paramétrage ?
un formulaire où les gens saisiront leur chemin d'accès ?
ça doit être faisable avec le code là
il suffirait de récupérer les chemins et en cliquant sur un bouton de les valider
ISABELLE6558
Messages postés
15
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
1 mars 2007
14 mai 2005 à 18:34
14 mai 2005 à 18:34
Utilise un contrôle ActiveX commonDialog sur un formulaire
Sur un formulaire insère un contrôle ActiveX : Microsoft Common Dialog Control
Ajout un bouton qui permettra d'accéder à une fenêtre de dialogue de
Répertoire et un contôle texte (Fichier) pour récupérer la valeur
et place le code suivant dans l'évènement Clic de ton bouton, c'est tout.
Private Sub Commande14_Click()
CommonDialog.ShowOpen
Me.Fichier.Value = CommonDialog.Filename
End Sub
Sur un formulaire insère un contrôle ActiveX : Microsoft Common Dialog Control
Ajout un bouton qui permettra d'accéder à une fenêtre de dialogue de
Répertoire et un contôle texte (Fichier) pour récupérer la valeur
et place le code suivant dans l'évènement Clic de ton bouton, c'est tout.
Private Sub Commande14_Click()
CommonDialog.ShowOpen
Me.Fichier.Value = CommonDialog.Filename
End Sub
