Discussion :

[benoit13]

Bonjour,

J'aurais aimé savoir s'il était possible d'afficher dans une seule zone de liste le contenu de plusieurs champs...

Si quelqu'un a une idée...ça m'intéresserait beaucoup!!

Merci d'avance...

[jean-paul lepetit]

Salut,

Oui, il te suffit d'ouvrir le générateur de requêtes et de créer un champ calculé ou composé

Code :

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

Nom & " " & Prenom

ce que le générateur de requête va traduire par

Code :

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

Exp1 :Nom & " " & Prenom

le

Code :

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

& " " &

sert à insérer un espace entre nom et prenom

[benoit13]

Merci, c'est déja une piste mais je souhaiterais que le contenu des champs soient les uns au dessus des autres.

Ce que je veux obtenir, c'est une zone de liste déroulante dans laquelle j'ai plusieurs liens (mais ils ne sont pas enregistrés ds le même champs...). Chaque ligne de la liste serait en fait un champ de ma table.

Est-ce faisable?

Merci d'avance...

[jean-paul lepetit]

Il te faut passer par VBA, ouvrir un recordset et modifier le rowsource de ta liste

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande2_Click()
Dim MaBd As Database
Dim MaTable As Recordset
Set MaBd = CurrentDb
Set MaTable = MaBd.OpenRecordset("Tbl1", dbopendynaset)
MaTable.MoveFirst
Liste1.RowSource = MaTable!id1 & ";" & MaTable!nom
MaTable.Close
End Sub

Ceci est un exemple pour charger le contenu de ta liste à partir du clic sur un bouton, mais tu peux le mettre à l'ouverture du formulaire ou sur changement d'une autre liste

[benoit13]

Merci beaucoup, je sens qu'on s'approche!

Comme j'ai un critère de sélection d'enregistrement j'ai modifié quelque peu le code mais il ne fonctionne pas... ( Pas de message d'erreur, mais rien de n'affiche dans la zone de liste)
Etant novice, cela ne m'étonne pas trop...

Code :

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

1
2
3
4
5
6
7
    Dim base_de_données_géotechnique As Database
    Dim Localisation As Recordset
    Set base_de_données_géotechnique = CurrentDb
    Set Localisation = base_de_données_géotechnique.OpenRecordset("Localisation", dbOpenDynaset)
    Localisation.MoveFirst
    Me.Liens.RowSource = "SELECT  Localisation.[Liens Rapport], Localisation.[Numéro Affaire] FROM Localisation WHERE (((Localisation.[Numéro Affaire])='" & Me.lstresults.Value & "'));" & "SELECT  Localisation.[Liens Rapport 2], Localisation.[Numéro Affaire] FROM Localisation WHERE (((Localisation.[Numéro Affaire])='" & Me.lstresults.Value & "'));"
    Localisation.Close

Avez vous une idée?

Encore un grand merci...

[jean-paul lepetit]

si tu veux afficher les différentes valeurs de tes champs, c'est plutôt ça

Code :

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

1
2
3
4
5
6
7
8
9
    Dim base_de_données_géotechnique As Database
    Dim Localisation As Recordset
Dim StrSQL As String
StrSQL = "SELECT  Localisation.[Liens Rapport], Localisation.[Numéro Affaire] FROM Localisation WHERE (((Localisation.[Numéro Affaire])='" & Me.LstResults.Value & "'));" & "SELECT  Localisation.[Liens Rapport 2], Localisation.[Numéro Affaire] FROM Localisation WHERE (((Localisation.[Numéro Affaire])='" & Me.LstResults.Value & "'));"
    Set base_de_données_géotechnique = CurrentDb
    Set Localisation = base_de_données_géotechnique.OpenRecordset(StrSQL, dbOpenDynaset)
    Localisation.MoveFirst
    Me.liens.RowSource = Localisation![Liens Rapport] & ";" & Localisation![Numéro Affaire]
    Localisation.Close

[benoit13]

Super, merci bcp!!

On y est presque...

J'ai mis le code:

Code :

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

1
2
3
4
5
6
7
8
9
    Dim base_de_données_géotechnique As Database
    Dim Localisation As Recordset
    Dim StrSQL As String
    StrSQL = "SELECT  Localisation.[Liens Rapport],Localisation.[Liens Rapport 2], Localisation.[Numéro Affaire] FROM Localisation WHERE (((Localisation.[Numéro Affaire])='" & Me.lstresults.Value & "'));"
    Set base_de_données_géotechnique = CurrentDb
    Set Localisation = base_de_données_géotechnique.OpenRecordset(StrSQL, dbOpenDynaset)
    Localisation.MoveFirst
    Me.Liens.RowSource = Localisation![Liens Rapport] & ";" & Localisation![Liens Rapport 2]
    Localisation.Close

Lorsque je vais vérifier la source ds les propriétés de la zone de liste, l'adresse du lien est bien présente mais rien ne s'affiche...

Savez vous d'où cela peut provenir?

[jean-paul lepetit]

verifies dans les propriétés de ta liste si le nombre de colonnes est bien à 1 et si la largeur de colonnes n'a pas de valeur

[benoit13]

Non, j'ai vérifié... tout est bon!

L'erreur doit provenir de mon code je pense

Merci quand même de m'aider Jean Paul!

Cordialement

Benoit

[jean-paul lepetit]

ce sont des liens http que tu afficher ?

[benoit13]

Non des liens hypertextes vers des fichiers pdf contenus sur mon intranet...
Quoi qu'il en soit, ils devraient s'afficher (s'ils ne fonctionnent pas ce n'est qu'un détail...je verais après!)

[The_Sloth]

Bonjour,
je pense avoir un peu le même problème que toi et je souhaiterai savoir si tu as trouvé une solution.
Pour situer, je veux afficher dans une zone de liste la liste des liens me permettant d'accéder à des fichiers.
J'arrive à afficher mes liens mais impossible de cliquer sur ces liens pour ouvrir les fichiers concernés.

Merci d'avance

[random]

Code sql :

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

1
2
3
4
5
SELECT lien1 FROM Table1
union
SELECT lien2 FROM Table1
union
SELECT lien3  FROM Table2;