Discussion :

[Flo88]

Bonjour à tous,

Dans mon logiciel je choisi dans une liste déroulante la base à chargée. Ensuite l'application redémarre avec la bonne base chargée. J'aimerai affiché dans un Label le nom de la base connectée mais je n'y arrive pas à cause du redémarrage de l'application.

si quelqu'un a une solution...

[frogs]

bonjour,,

tu stock le nom de la base dans une autre table et à l'ouverture du charge le contenu de ta tabledans l'affichage.

Frogs

[Flo88]

je suis chiant mais est ce la seule solution ?

[Domi2]

Bonjour,

je suis chiant mais est ce la seule solution ?

Non !

2 lignes de VBA...

Ne pas oublier de remplacer tblUneTable par une table de tes dorsales...

Code :

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

1
2
3
4
5
6
7
Dim CheminCompletDorsale As String

'Recherche le nom du répertoire dans lequel est installée la base de données dorsale
CheminCompletDorsale = CurrentDb.TableDefs("tblUneTable").Connect
CheminCompletDorsale = Right(CheminCompletDorsale, Len(CheminCompletDorsale) - InStr(1, CheminCompletDorsale, "DATABASE=") - 8)

MsgBox CheminCompletDorsale

Domi2

[Flo88]

Merci beaucoup
Cela marche
mais j'aimerai comprendre le fonctionnement de cette ligne de code :

Code :

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

CheminCompletDorsale, Len(CheminCompletDorsale) - InStr(1, CheminCompletDorsale, "DATABASE=") - 8)

Merci d'avance

[Domi2]

Bonjour,

La première instruction attribue à la variable une valeur du type ";Database=C:\..."

Instr renvoie une valeur de type Variant (Long) indiquant la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne.

On compare donc la chaîne initiale avec "Database=". On obtient 2.

Ensuite on détermine avec Len la longueur de la chaîne à récupérer à partir de la droite avec la fonction Right, soit la longueur totale de la chaîne - 2 caractères - 8 caractères ("Database=" ayant 10 caractères).

Pour plus d'info, tu peux l'aide sur ces trois fonctions, c'est assez complet.

Domi2