Discussion :

[papy_tergnier]

Bonjour à tous,

j'ai un petit sushi : dès l'ouverture de ma base, j'ouvre un petite formulaire qui me permet de choisir une année (ex : 2005). Le résultat du choix est alors stocké dans une varaible globale qui me servira tout au long de la base.
Jusqu'ici pas de problème. Le souci vient du fait que des fois ma base bugge (car elle a mal été développé au départ) et donc cela m'ouvre une fenetre de débogage vba. Les utilisateurs sont au courant et précédemment ils pouvaient fermer cette fenetre et utiliser d'autres fonctionnalités de la base moisn buggées
Cependant à chaque debogage vba, l'appli me relance l'initialisation de la variable stockant l'année.

Est ce normal ? Si oui, existe-t-il un moyen pour garder cette valeur malgré l'ouverture d'une fenêtre de debogage

merci d'avance

[cafeine]

Hello, et si tu stockais cette valeur dans une table ?

[papy_tergnier]

salut,

c'est vrai que c'est une bonne alternative. En plus vu que j'utilise des fonctions GetAnnee() et SetAnnee() je n'ai pas à redévelopper toutes mes requetes où figure cette variable.

Merci pour l'idée par contre je laisse ce post encore une journée Non Résolu juste pour savoir si c'est un comportement normal d'Access et si il existe une astuce pour garder ma variable.

[Didier L]

Effectivement c'est un comportement normal d'access.
A chaque "plantage de l'appli" le fait de répondre à la boîte de dialogue réinitialise tout le code pour ignorer l'erreur et repartir d'un bon pied (quand l'erreur est récupérable. sinon plus d'access )
La seule façon de garder la variable est effectivement de la stocké quelque part, une table, un fichier, la base de registre etc ...

[papy_tergnier]

ok merci. C'est exactement la réponse que je cherchais.

Merci à vous 2.

[random]

tu peux aussi ajouter une propriété à ta base et te servir de

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
 
Function creprop(x As Variant) As Integer
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties.Append (x)
End Function
 
Function litprop(x As String) As Date
Dim u As Database
Set u = CurrentDb
litprop = u.Containers!Databases.Documents("userdefined").Properties(x).Value
End Function
 
Function ecritprop(x As String, y As Variant) As Boolean
Dim u As Database
Set u = CurrentDb()
u.Containers!Databases.Documents("userdefined").Properties(x).Value = y
End Function