Discussion :

[alex77140]

j ai 2 tables:
• une table département ou est référencé 2 départements (78 et 91) mais il doit etre possible d'en rajouté
• une table commune avec toute les communes des 2 départements et un identifiant que j ai appeler (com lien dep) et qui corespond au numéroauto du département auquel la commune apartient

j aimerai dans un champ texte affiché la totalité des communes apartenant a l'un des 2 départements qui aura été choisi auparavant.

par exemple si je choisi 78 dans mon formulaire et que je clique sur un bouton OK j aimerai qu il aparaisse dans mon champ texte la totalité des communes apartenant au 78 séparé d'un point virgule.

j ai essayer d'utilisé dlookup mais il ne m affiche que la premiere commune comment faire pour avoir les autres?

je suis assez débutant en VBA

j en suis la pour le moment:

Code :

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

1
2
3
4
5
If Nz(Texte0, "") = "" Then
Texte0 = DLookup("[commune]", "commune", "[com lien dep]=" & [dep id]) & ";"
Else
Texte = Texte0 & ...
End If

je ne sais pas quoi mettre a la place des "..." pour demander le deuxième enregistrement et il faudrait aussi crée une boucle mais je ne connais pas le language je crois savoir qu'il faut utilisé "loop" mais ou et quand?

je n'est pas réussi a trouver dans la FAC

si quelqu'un d'entre vous pourrez m aider a me débloquer

[jimay]

Salut,

bienvenue dans ce joyeux monde du VBA

ce que je peux te conseiller déjà, si tu veux afficher une liste de commune, c'est de ne pas utiliser de champ texte mais de lui preferer le champ créé pour ces besoins, càd les Listes.

si tu insère une liste dans ton formulaire, tu pourras avoir accès à plusieurs méthodes et notement

Code :

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

Me.TaListe.RowSource

Ceci permet de modifier la source des données affichées dans la liste, et là dedan tu peux mettre du SQL et notement dans ton cas:

Code sql :

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

SELECT Commune from Commune WHERE [com lien dep]= & [dep id]

Ceci devrait t'afficher dans ta liste toutes tes comunes dont le lien est égal à [dep id]

Si par contre tu veux toujours garder ta zone de texte tu peux modifier un peu ton code

Code :

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

1
2
3
4
5
6
7
dim rs as recordset
if Nz(Texte0, "") = "" then
    set rs = currentdb.OpenRecordset("SELECT Commune from Commune WHERE [com lien dep]=" & [dep id])
    while not rs.EOF
        Texte0 = Texte0 & vbcrlf  & rs.fields("Commune")
    wend
End If

voilou, si tu as des questions hésite pas

[alex77140]

tu avais oublier le:

Code :

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

rs.movenext

au faite a quoi sert le:

Code :

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

vbcrlf  &

parce que sans sa fonctionne et avec j ai pas l impression

a moin que sa serve a sauté une ligne?
enfin sa me servais pas j ai modifier le code pour que mes communes apparaisse en ligne séparé d'un point virgule!!

merci beaucoup je connaissais pas très bien la syntaxe pour les boucles!!
maintenant si.

[jimay]

tu as raison pour le deux ^^

désolé pour le moveNext, ça a dû faire une jolie boucle infinie ^^

et oui VbCrlf est une constante vba pour le retour à la ligne comme le vbTab pour la tabulation

a+

[alex77140]

merci beaucoup

ouai j ai vu access buguer je me suis dit oups il y a un truc qui manque la!!

(c'est la solution la plus simple que j ai trouver pour imprimer tous mes enregistrement en ligne plutôt qu'en colonne et sa marche impec.)

a + et encore merci