Discussion :

[MAMANHOU]

Bonjour,
Je me creuse la tête sans succés pour faire une amélioration à ma base.
Dans le champ texte "région" de mon formulaire, je voudrais pouvoir saisir plusieurs région en les séparant par des ";".
Je voudrais imposer une liste de régions pour la saisie alors j'ai créé une table avec les noms "T_région".
Avez vous une idée sur la manière dont je m'y prendre ?
Merci d 'avance
Mamanhou

[Dolphy35]

Salut,

tu peux utiliser une zone de liste avec une sélection multiple, tu récupère chaque sélection que tu sépare par ;


Dolphy

[MAMANHOU]

voilà j'ai un peu avancé :
Je me suis servie d'un code trouvé dans les tutos ...

Code :

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

1
2
3
4
Private Sub Liste0_AfterUpdate()
    Texte48 = Liste0.Column(1) 'J'ai mis 1 comme numéro de colonne mais
                  'le numéro réel doit être le numéro de la colonne affichant les initiales moins 1.
End Sub

Super le champ "région" est bien alimenté mais uniquement par le nom de la 1ère ligne et les autres sélectionnés ne s'affichent pas ...
Pourquoi ??

Merci pour votre aide
Mamanhou

[FreeAccess]

Bonjour,

....le champ "région" est bien alimenté mais uniquement par le nom de la 1ère ligne et les autres sélectionnés ne s'affichent pas ...

Jusqu'à là c'est normal, puisque c'est ce que tu demande au code d'effectuer...uniquement d'afficher dans ta zone de texte la valeur d'une seule sélection de ta zone de liste..

Comme te le disait Dolphy, il faut récupérer chaque sélection et l'ajouter à la précédente en les séparant par un ";"..
Ce qui donne ceci...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Liste0_AfterUpdate()
Dim i As Variant
Dim StrResultat As String
'Ici, tu récupère toutes les lignes sélectionnées que tu stocke dans
'la variable StrResultat
For Each i In Me.Liste0.ItemsSelected
'Ici StrResultat contient la valeur sélectionnée à laquelle 
'on ajoute un point-virgule
    StrResultat = StrResultat & Me.Liste0.ItemData(i) & ";"
Next i
'Puis tu affecte à ton contrôle texte la valeur de la variable StrResultat
Me.Texte48.Value = StrResultat
 
End Sub

....en espérant répondre complétement à ta question.....

[MAMANHOU]

Bonjour,

c'est tout à fait ce qu'il me fallait ... Merci encore pour tout
A Bientôt
Mamanhou

[MAMANHOU]

Bonjour,

J'ai encore apporté une autre modif.
Ma zone de texte qui receptionne ma selection n'est pas sur le même formulaire donc j'ai modifié le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Liste0_AfterUpdate()
Dim i As Variant
Dim StrResultat As String
'Ici, tu récupère toutes les lignes sélectionnées que tu stocke dans
'la variable StrResultat
For Each i In Me.Liste0.ItemsSelected
'Ici StrResultat contient la valeur sélectionnée à laquelle 
'on ajoute un point-virgule
    StrResultat = StrResultat & Me.Liste0.ItemData(i) & ";"
Next i
'Puis tu affecte à ton contrôle texte la valeur de la variable StrResultat
[forms]![frm_Cible]![Texte48].Value = StrResultat
 
End Sub

cela ne marche pas il me dit erreur 2450, il ne trouve pas le formulaire "frm_cible"...
Pour situer :
Dans mon formulaire "frm_cible" j'ai un bouton de commande qui ouvre le formulaire "F_Selection" où se trouve mon champ "Liste0".

Merci pour votre aide
Mamanhou

[FreeAccess]

Bonjour,

Si ton formulaire frm_Cible est effectivement ouvert, alors le code suivant passe bien ta sélection dans ton contrôle Texte48.....

Code :

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

Forms!frm_cible!Texte48.Value = StrResultat

...

[MAMANHOU]

Bonjour FreeAccess,
Je viens de vérifier mon formulaire "Frm_cible" n'est pas fermé et pourtant il ne le trouve pas ?? erreur 2450...
Je ne comprend plus

merci
Mamanhou

[MAMANHOU]

Bonjour,

J'ai parlé de formulaire pour frm_Cible mais en fait c'est un ssformulaire lié à un formulaire principal.
Est ce pour cela que ca ne marche pas ?

Mamanhou

[FreeAccess]

Bonjour,

...mais en fait c'est un ssformulaire lié à un formulaire principal

......Gagné........

Effectivement si ton contrôle texte est situé dans un sous-formulaire, il faut le préciser dans ton code...

Pour exemple, si dans ton Form "frm_Cible" tu insére un sous-formulaire "S_Form_frm_Cible" sur lequel est situé le contrôle "Texte48":

Code :

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

Forms!frm_Cible!S_Form_frm_Cible!Texte48.Value = StrResultat

..maintenant tu ne devrais plus avoir de problème...

[MAMANHOU]

Merci cela marche
Mamanhou