ACCESS Concatenation

Résolu/Fermé
DJ_OAKLEY - 8 avril 2005 à 09:57
 dj_oakley - 25 avril 2005 à 20:41
slt à tous,

voila j'ai un formulaire qui ne s'appuie sur aucune table ou requete avec:
1 zone indépendante avec le nom : destinataire
ou j'aimerai concatener tous les champs que j'aurai selectionné de la zone de liste sous cette forme mail1,mail2,mail3,mail4,etc... dans cette zone

1 zone de liste avec le nom : MAIL
avec le critère suivant SELECT [SQL_Mail_jour_nuit].[mail] FROM SQL_Mail_jour_nuit;

Est ce possible? ou avez vous une autre solution?

Dans l'attente de vos réponses.

Cdt.

3 réponses

Utilisateur anonyme
8 avril 2005 à 10:42
Salut,

Ce que tu veux faire est possible avec du code VBA.
Par exemple:
Tu crées un bouton et le code pour l'event "on click":

Private Sub Bouton_Click()
    Dim strItems As String
    Dim intCurrentRow As Integer
    For intCurrentRow = 0 To MAIL.ListCount - 1
        strItems = strItems & MAIL.Column(0, intCurrentRow) & ","
    Next intCurrentRow
    destinataire.value = strItems

End Sub


0
random Messages postés 1612 Date d'inscription vendredi 26 novembre 2004 Statut Membre Dernière intervention 30 mars 2006 155
8 avril 2005 à 17:35
il faut faire précéder de
if mail.selected(intCurrentRow)
0
Slt dsl pour la reponse tardive mais ça fct.

Merci à tous.
0