Discussion :

[gentoo]

Bonjour

que peut-on mettre dans la partie "Option compare database"?


Est-ce qu'on y déclare çà par exemple:

Code :

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

1
2
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("TestSave", dbOpenTable)

[marot_r]

Tu peux déclarer des constantes et des variables globales de portée module ou projet mais tu ne peux pas faire d'assignation (comme le montre ton exemple).

Les assignations doivent être faîtes dans des procédure (Sub) ou des fonctions (Function).

A+

[gentoo]

Merci ce serait plutôt cà:

Code :

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

1
2
3
Dim oRst As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim oDb As DAO.Database

[marot_r]

Oui, ça ca va marcher.

Une petite note en passant, les pratiques recommandées conseillent de ne pas utiliser les variables globales qui sont une source de bugs vicieux.

A+

[jpg75014]

Bonjour,

Je me permets de relancer ce post (très tardivement).
En fait, j'aimerais bien ajouter dans Option Compare Database (de mon formulaire) une notion du répertoire courant de la base. Afin de m'en servir pour chaque événement de mon form sans avoir à retaper le code suivant à chaque fois :

Code :

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

rep = Application.CurrentProject.Path

Est-il possible de le stocker là ?

Merci beaucoup pour votre aide

JPG

[marot_r]

Non, désolé mais tu peux simplement déclarer la variable Rep.

Code :

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

dim rep as string

et quelque part dans ton code il va falloir faire l'assignation

Code :

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

1
2
 
rep = Application.CurrentProject.Path

A+