Discussion :

[LeXo]

BonJour,

je veux mettre une variable pour toute ma base

chemin = application.currentproject.path&"\Nom_Bdd"

j'ai essayer de le mettre mais il me sort une erreur meme si je mets "option explicit" avant

voila j'ai besoin de cette variable dans toute les formulaires comme vous aurez compris.

merci d'avance


et super ce nouveau forum

[Jeffboj]

hello,
tu le mets dans un module et tu le déclare public

Jeff

[Tofalu]

L'utilisation de variable publique est quand même assez déconseillée

[LeXo]

Salut

merci pour ta réponse bien que je la trouve un peu vague

parce que c'est ce que j'ai essayer de faire

Code :

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

1
2
3
option explicit
public chemin
chemin = application.currentproject.path &"Nom_Bdd"

et il me fait une erreur de compilation sur 'application' me disant 'instruction incorrecte a l'extérieur d'une procédure
???

[Tofalu]

Tout d'abord, toutes les variables doivent être typées.

Ensuite une variable ne peut pas etre initialisée lors de sa déclaration. Tu devras donc la valoriser par exemple à l'aide d'un code qui s'ouvrira au démmarage de la base de données.

Mais à quoi correspond cette varaible chemin ? Au chemin du fichier actuel ?

[LeXo]

Reuu
oui c pour quand j'accède a ma base de donné via

Code :

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

1
2
3
4
5
6
7
chemin = Application.CurrentProject.Path & "\AMICALE MURET.mdb"
'chercher le dernier Id de la table
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(chemin)
    sSQL = "Select count(*)as NbVoyage From VOYAGE"

alors voila j'aimerais déclaré une seule fois chemin pour toutes les procédures de tous mes fomulaires : créer une variable globale, une constante

si je la mets en private il me faudra alors créer une méthode d'accèes
getChemin du genre:

Code :

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

1
2
3
4
5
6
 option explicit
private chemin
chemin = application.currentdb.path &"\Nom_Bdd"
public sub getChemin ()
return chemin
end sub

je chauffes ?

[Tofalu]

Et pourquoi ne pas utiliser CurrentDb ?

Code :

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

1
2
 
Set Db=CurrentDb

[LeXo]

je n'ai pas compris ce que cela changerait

enfin je mettrais

Code :

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

chemin= application.currentdb.fullname

et ça ira je ne vais pas chipoter pour 3 mots 2 points et '='

[LeXo]

je n'ai pas compris ce que cela changerait

enfin je mettrais

Code :

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

chemin= application.currentdb.fullname

et ça ira je ne vais pas chipoter pour 3 mots 2 points et '='

[Tofalu]

Non tu utiliseras :

Code :

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

1
2
3
4
5
 <div style="text-align: left;">Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = "Select count(*)as NbVoyage From VOYAGE"</div>

Pas besoin d'ouvrir la base de données si currentdb retourne déjà une instance valide

[LeXo]

ah oui ça marche ossi

le bonheur tiens a si peux de chose

merciiiiiiiiiiiiiiiii
PS : je vais quand meme me renseigner sur ces déclarations de variables..


merci encore aller zouuuu je peux enfin aller à la douche tranquille loool