Concaténation variable publique

Version imprimable

Bonjour,

J'ai 5 variables publiques : SousPerimetre1 à SousPerimetre5, auxquelles j'ai déjà affecté des valeurs. Je voudrai leur donner la valeur nulle en fonction de la valeur de la case à cocher correspondante. Les cases à cocher sont nommées Case_1 à Case_5. J'ai essayé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Image_Valider_Click() For i = 1 To 5 If Forms![03ChoixPerimetre].Controls("Case_" & i).Visible = True And _ Forms![03ChoixPerimetre].Controls("Case_" & i).Value = 0 Then SousPerimetre & i = "" End If Next i DoCmd.Close acForm, "03ChoixPerimetre" DoCmd.OpenForm ("04ConstructionOuSuivi") End Sub
Il ne fonctionne pas, j'aimerai savoir si la concaténation est possible sur une variable publique. J'ai essayé les parenthèses, et plein d'autres choses mais rien ne fonctionne. Pouvoir concaténer des variables me serait utile dans d'autres codes également...

Bonjour

Un tableau semble plus adapté

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public SousPérimètre(4) as string 'Quel est le type de SousPérimètre ???
 
Private Sub Image_Valider_Click()
Dim i as long
 
For i = 1 To 5
 
   If Forms![03ChoixPerimetre].Controls("Case_" & i).Visible = True And _
   Forms![03ChoixPerimetre].Controls("Case_" & i).Value = 0 Then
 
          SousPerimetre (i-1)=""  
 
   End If
 
Next i

Cordialement

11/04/2012, 15h36
chidori-san

Merci pour cette réponse si rapide, le problème c'est que ces variables (type chaîne) sont déjà utilisées dans pas mal de codes et proviennent du résultat d'une requête. J'ai une cinquantaine de formulaires donc il faudrait que je regarde dans chaqun d'eux pour tout changer. Existe-t-il une autre solution?

PS : Comment faire pour afficher l'extrait du code comme vous le faites avec les numéros de lignes, je suis encore novice en access et ce serait plus lisible pour mes futures questions
11/04/2012, 15h45
Pepito78

Citation:

Envoyé par chidori-san

Existe-t-il une autre solution?

Personnellement, je ne vois pas sans beaucoup plus de détails sur votre application...

Pour faire apparaître votre code, il faut utiliser la balise [Code], dans la fenêtre de rédaction, dans la barre d'outils, vous avez un icone #.
11/04/2012, 17h41
chidori-san

En fait, plusieurs utilisateurs utilisent la BDD. Certains d'entre eux, les responsables, ont un périmètre de responsabilité, découpé en un ou plusieurs (maximum 5) sous périmètres. Donc, quand ils s'identifient afin d'accéder à la base, je retiens les informations donc j'ai souvent besoin après : nom, prénom, périmètre, sous-périmètre,...
La BDD sert , entre autres, à restituer des états analysant les frais réels, à faire des demandes de modification de budgets, à construire ces derniers,...
Donc j'ai créé un accès pour les responsables : ils arrivent sur un formulaire dans lequel s'inscrivent leurs sous-périmètres de responsabilité (sauf s'ils n'en n'ont qu'un, dans ce cas, ils passent directement au formulaire suivant). Ils doivent cocher ceux qui les intéressent à l'instant t, pour que tous les formulaires suivants puissent être pré-remplis.

Merci encore une fois de m'aider. Sinon, comme il n'y a pas beaucoup de choix, je peux faire une fonction public dépendant de i avec Select case (case 1, vider SousPerimetre1,...) puis appeler la fonction dans le code du formulaire de choix? Ce n'est pas la première fois que j'ai envie de concaténer des variables, et chaque fois je passe par autre chose. Il n'y a pas une fonction ou autre qui permette de le faire?
11/04/2012, 18h34
Pepito78

Citation:

Envoyé par chidori-san

Sinon, comme il n'y a pas beaucoup de choix, je peux faire une fonction public dépendant de i avec Select case (case 1, vider SousPerimetre1,...) puis appeler la fonction dans le code du formulaire de choix? Ce n'est pas la première fois que j'ai envie de concaténer des variables, et chaque fois je passe par autre chose. Il n'y a pas une fonction ou autre qui permette de le faire?

En effet, si toute votre application est construite sur cette base...

Un select case, sinon, personnellement, je ne vois pas... à part remettre votre base d'aplomb !

Pour la "concaténation", il ne me semble pas avoir déjà vu quelque chose de ce type.

Désolé :calim2:, peut-être quelqu'un d'autre ?
12/04/2012, 09h18
chidori-san

En tous cas merci pour toutes vos réponses
16/04/2012, 13h18
Benoit6000

Citation:

Envoyé par chidori-san

En fait, plusieurs utilisateurs utilisent la BDD. Certains d'entre eux, les responsables, ont un périmètre de responsabilité, découpé en un ou plusieurs (maximum 5) sous périmètres. Donc, quand ils s'identifient afin d'accéder à la base, je retiens les informations donc j'ai souvent besoin après : nom, prénom, périmètre, sous-périmètre,...
La BDD sert , entre autres, à restituer des états analysant les frais réels, à faire des demandes de modification de budgets, à construire ces derniers,...
Donc j'ai créé un accès pour les responsables : ils arrivent sur un formulaire dans lequel s'inscrivent leurs sous-périmètres de responsabilité (sauf s'ils n'en n'ont qu'un, dans ce cas, ils passent directement au formulaire suivant). Ils doivent cocher ceux qui les intéressent à l'instant t, pour que tous les formulaires suivants puissent être pré-remplis.

Merci encore une fois de m'aider. Sinon, comme il n'y a pas beaucoup de choix, je peux faire une fonction public dépendant de i avec Select case (case 1, vider SousPerimetre1,...) puis appeler la fonction dans le code du formulaire de choix? Ce n'est pas la première fois que j'ai envie de concaténer des variables, et chaque fois je passe par autre chose. Il n'y a pas une fonction ou autre qui permette de le faire?

Si j'ai bien compris chaque fois qu'un utlisateur se connecte sur ta db; il sélectionne dans un formulaire "un sous-périmètre" puis ouvre un autre formulaire?. A la fermeture du 1er formulaire il est possible d'écrire la valeur que tu cherche dans une variable public pour la concaténer.
19/04/2012, 10h51
chidori-san

Bonjour,

En fait, le formulaire se remplit avec les sous-périmètres de l'utilisateur. Ces derniers sont stockés dans des variables publiques. L'utilisateur coche les sous-périmètres qui l'intéressent puis valide. En faisant cela, les variables correspondantes aux cases non cochées sont remises à zero. Les autres sont conservées et pré-remplissent d'autres formulaires.

Une solution au Pb de concatenation de variable : créer un dictionnaire

J'ai vu plusieurs fils sur Developpez.com dont je me suis inspiré pour trouver cette solution pour un petit jeu romain que je construits (XII Scripta).
J'espère qu'il pourra vous aider. (Il y a d'autres posts qui posent des questions semblables, celui-ci me semble le plus approchant, la solution marche aussi en VBA Excel).

Donc, je me suis basé sur un dictionnaire via lequel je peux appeler chacune des variables par un libellé concaténé, voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 'Déclarations Public VarDict 'Le fameux dictionnaire en fait un tableau Public JetonsPotA As Integer 'nom de variable codifié en 2 parties Public JetonsPotB As Integer 'autre nom de variable codifié en 2 parties Public AleaJactaEst As Boolean 'Alea jacta est : Les dés sont jetés Dim Lettre As String 'Initialisations JetonsPotA = 15 JetonsPotB = 10 Lettre = "A" 'Création du "dictionnaire" Set VarDict = CreateObject("Scripting.Dictionary") VarDict.Add "AleaJactaEst", AleaJactaEst VarDict.Add "JetonsPotA", JetonsPotA VarDict.Add "JetonsPotB", JetonsPotB 'Message de test MsgBox "Nombre de jetons dans le pot " & Lettre & " : " & VarDict("JetonsPot" & Lettre)
>> Nombre de jetons dans le pot A : 15

A mon tour je pose une question est-il pertinent d'utiliser des noms de variable codifiés ? D'une manière générale, il y a-t-il une solution plus élégante, avec des tableaux par exemple ?

Bonjour,

Effectivement, le mieux serait un tableau mais il faut le prévoir dès le début. Pour contourner le problème, je suis passée par un code public contenant un select case.

Donc dans mon formulaire, j'ai écrit:

Code:

1
2
3
4
5
6
For i = 1 To 5
    If Forms![03ChoixPerimetre].Controls("Case_" & i).Visible = True And _
    Forms![03ChoixPerimetre].Controls("Case_" & i).Value = 0 Then
        Call ViderSousPerimetre(i)
    End If
Next

Et le code public:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub ViderSousPerimetre(indice As Integer)
 
Select Case indice
    Case 1
        SousPerimetre1 = ""
    Case 2
        SousPerimetre2 = ""
    Case 3
        SousPerimetre3 = ""
    Case 4
        SousPerimetre4 = ""
    Case 5
        SousPerimetre5 = ""
End Select
 
End Sub

Merci pour votre réponse.

02/11/2012, 01h03
francis60
Bonsoir et merci,

De mon côté, mon dictionnaire ne rend pas vraiment le service attendu, il faut régulièrement le réactualiser (car le dictionnaire est renseigné par valeur et non par référence).
Avec un langage objet je pense que l'on pourrait créer un véritable dictionnaire de variables.

J'ai essayé de créer un "function" qui retournerait un type Object mais VBA n'en veut pas.

Sinon, je me suis résolu au même genre de truchement que toi en passant par une fonction publique qui assure la conversion Texte (éventuellement concaténé) vers la valeur de la variable publique.
Code:

1 2 3 4 Public Function ValeurTexte(Texte As String) As Integer If Texte = "JetonsPotA" Then ValeurTexte = JetonsPotA If Texte = "JetonsPotB" Then ValeurTexte = JetonsPotB End Function
C'est dommage de créer un nommage codifié et de ne pas pouvoir l'utiliser directement. Heureusement , ces petits artifices permettent de retomber sur nos pattes.

Cordialement,