Variables publiques dans un module

Bonjour,

me revoilà :(

Je vais avoir besoin de gérer des sessions (du genre apache), mais sous Access.

Le souci, c'est que je bloque directement lors de la déclaration.

J'ai mis dans un module "session", le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Compare Database Option Explicit   ' ici on définit les variables de 'session' Public les_destinataires As String 'les destinataires Public le_mail_perso As String 'le corps du mail à envoyer   Public la_requete As String 'on va la remplir plus tard..     'test les_destinataires = "lui@toi.invalid"

---

J'ai de suite une erreur "instruction incorrecte à l'extérieur d'une procédure"

sur la ligne "les_destinataires". En cas de msgbox sur cette ligne, idem.

Merci si vous pouvez me dépatouiller !

A+

Pour info,

le module global à l'air de "fonctionner", enfin d'être porté aux foms, car j'ai ce message à chaque ouverture de formulaire...

Merci

Bonjour

Tu dois mettre ton affectation dans une routine (sub) pour initialiser ta variable, ensuite tu appelles cette routine quand tu veux.

Il n'y a que les déclarations qui peuvent être mises directement dans un module.

Philippe

Bonjour et Merci,

je souhaite avoir une variable tout le long de l'ouverture de la base.

Peux-tu m'en dire plus sur ce que je dois mettre dans le module stp ?

Merci.

A+

Re

Dans ton module il te faut une routine du style :

Code:

---

1 2 3

Public Sub InitVariable() les_destinataires = "lui@toi.invalid" End Sub

---

Ensuite tu peux appeler par exemple celle-ci au démarrage de ton premier formulaire :

Code:

---

Call InitVariable

---

Voilà un exemple.

Philippe

Bonjour,
Dans ton cas il s'agirait plutôt d'une constante!
A moins que la valeur soit susceptible d'évoluer en cours de programme!

Code:

---

Public const les_destinataires = "lui@toi.invalid"

---

Si non mais je suis moins féru dans ce genre de sujet mais l'autoexec d'Access devrait permettre l'initiation!

Re

Salut rdurupt :coucou:

Je dirais même que ce genre d'infos (Email) devrait être stockée dans une table car c'est une information qui peut-être modifiable dans le temps.

Philippe

Bonjour Philippe,
Je te plussois!

Effectivement une table suffit, bien sur il est utile de pouvoir la modifier par un formulaire mais il n'y a pas d'urgence à gérer la partie administration!

par exemple, mois je définis une table four-tous, ou je stock mais données!

à partir d'une fonction je récupère la valeur, si la valeur recherché n'existe pas je la rajoute avec sa valeur par défaut!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub test() les_destinataires = GetDefault("les_destinataires", "lui@toi.invalid") End Sub Public Function GetDefault(fld, Def) Dim Sql As String Dim Rs Sql = "SELECT * FROM TableDefaults WHERE defName = '" & safeEntry( fld) & "'" Set Rs = con.OpenRecordSet(Sql) If Not Rs.EOF Then GetDefault = Trim(Rs("defValue")) Else   con.Execute "INSERT INTO TableDefaults(defName,defValue) VALUES('" & safeEntry( fld) & "','" & safeEntry(Def)& "')" GetDefault = Def End If Set Rs = con.CloseRecordSet(Rs) End Function Public Function safeEntry(Txt) As String safeEntry = Txt safeEntry = Replace(safeEntry, "'", "''") safeEntry = Replace(safeEntry, Chr(34), Chr(34) & Chr(34)) End Function

---

Bonjour et merci à vous,

pour info, oui la variable va évoluer, d'où variable...

J'ai mis dans un module nommé "sessions", le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Compare Database Option Explicit   ' ici on définit les variables de 'session' Dim le_corps_mail As String Dim les_destinataires As String     Public Sub InitVariables() les_destinataires = "lui@toi.invalid" End Sub

---

Dans l'évènement load() d'un formulaire, j'ai mis :

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() 'on va récupérer les variables de 'sessions' via le module 'session' Call InitVariables   MsgBox les_destinataires   End Sub

---

Mon msgbox me renvoie une chaîne vide...

Une idée ?

Merci encore.

A+

Bon, après tests, j'ai "trouvé".

Au lieu des "dim", j'ai mis "public"

Voici le code du module :

Code:

---

1 2 3 4 5 6

Option Compare Database Option Explicit   ' ici on définit les variables de 'session' Public le_corps_mail As String Public les_destinataires As String

---

Les formulaires, d'après les 1ers tests effectués, récupèrent bien les variables définies par "public" au lieu de "dim".

A+

Bon, je me doutais bien que j'allais revenir ici !

Donc, j'ai mon module :

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Option Explicit   ' ici on définit les variables de 'session' Public le_corps_mail As String Public les_destinataires As String   Public Sub InitVariables() les_destinataires = "lui@toi.invalid" End Sub

---

Quand j'ouvre mon formulaire, voici ce que j'ai mis pour débugger l'affaire :

Code:

---

1 2 3 4 5 6

Private Sub Form_Load() 'on va récupérer les variables de 'sessions' via le module 'session' Call InitVariables   MsgBox "voici la variable en début de session : " & vbCrLf & vbCrLf & les_destinataires, , "Paroles de Poètes" end sub

---

Cela fonctionne !

Mais voici le hic ! Je souhaite modifier (ajouter) ma variable, au moment d'un clic sur un bouton du form ; voici le code, rien de + simple, je pense :

Code:

---

1 2 3 4 5 6

If Cocher30 = True Then 'on rajoute le mail à la variable de session les_destinataires = les_destinataires & ";" & Me.E_mail   MsgBox "voici la variable en cours de session : " & vbCrLf & vbCrLf & les_destinataires, , "Paroles de Poètes"   End If

---

Le msgbox me montre bien la variable incrémentée du mail...

Tout va bien, mais non...

Quand je ferme mon formulaire et que je le réouvre (sans être sorti d'Access), la variable "récupère" sa première valeur, déclarée dans le module, soit "lui@toi.invalid"

Donc j'ai un souci de conservation de la valeur.

Je ne vois franchement pas où.

Merci à qui peut m'aider.

A+

S'il faut passer par une table, je le ferai, mais j'aurai l'impression de réinventer la "roue"...

Aussi, donc vous aurez compris que je crée une variable avec un mail à l'ouverture de mon appli, et qu'en cas de case cocher à vrai (case cochée true), j'incrémente le mail. Cela fonctionne, mais jusqu'à la fermeture du formulaire, alors que je souhaiterais que la variable garde sa nouvelle valeur jusqu'à la fermeture Access...


Pour incrémenter la variable, voici ce que je mets :

Code:

---

1 2 3 4 5 6

If Cocher30 = True Then 'on rajoute le mail à la variable de session les_destinataires = les_destinataires & ";" & Me.E_mail   MsgBox "voici la variable en cours de session : " & vbCrLf & vbCrLf & les_destinataires, , "Paroles de Poètes" 'test   End If

---

Par la suite, j'aimerai aussi, si je décoches la case 'cocher30', enlever de la variable me.e-mail. Là je crois que je complique le truc !

Merci

Bon, je pense savoir où se situe le pb.

A chaque fois que j'appelle la sub dans le formulaire, celui-ci reprend la valeur par défaut que j'ai définie :

Code:

---

1 2 3

Public Sub InitVariables() les_destinataires = "lui@toi.invalid" End Sub

---

Donc, tant que le form reste ouvert, la valeur les_destinataires s'incrémente. Mais au moment où je remets ce code, elle retourne à la valeur définie dans la sub...

Comment garder la valeur, that is my question !

Merci

Re

Ce qui se passe est un comportement normal, et cela ne vient pas d'Access, c'est le cas dans tout logiciel de programmation.

Si tu veux conserver la modification de la variable, il faut la stocker quelque part (table, fichier texte, etc...) et la rappeler quand tu as besoin.

C'est ce que l'on te disait dans les précédents messages de cette discussion.


Philippe

Merci de ta réponse,

mais entre temps, je viens juste de solutionner mon souci (le premier, il me restera la fonction pour enlever un élément de la variable au cas où je décoche) :

Le module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Compare Database Option Explicit   ' ici on définit les variables de 'session', j'ai donc changé en 'global' Global le_corps_mail As String Global les_destinataires As String   Public Sub InitVariables()   les_destinataires = les_destinataires   End Sub

---

Dans mon form, at load ()

Code:

---

1 2 3 4 5

'on va récupérer les variables de 'sessions' via le module 'session' Call InitVariables     MsgBox "voici la variable destinataires de session : " & vbCrLf & vbCrLf & les_destinataires, , "Paroles de Poètes"

---

La msgbox est vide, normal

Dans mon form, sur clic d'une case :

Code:

---

1 2 3 4 5 6 7 8 9 10

Call InitVariables If Cocher30 = True Then 'on rajoute le mail à la variable de session If les_destinataires = "" Then 'au début, pour empêcher d'avoir un ; au début de la variable... les_destinataires = "moi@moi.fr" End If les_destinataires = les_destinataires & ";" & Me.E_mail 'on rajoute à la variable globale   MsgBox "voici la variable de session Rolanderies : " & vbCrLf & vbCrLf & les_destinataires, , "Paroles de Poètes"   End If

---

Cela fonctionne super.

Donc mon souci venait des "global" au lieu des "public"..

A+