Discussion :

[Pitou5464]

Code :

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

Me.ListeFax.RowSource = Me.StrSql

J'ai une liste avec laquelle je veut afficher le résultat d'un requête contenu dans la zone de texte StrSql. Mais mon code ne marche pas. Logiquement ça devrait marcher
Merci pour votre aide

[random]

me.requery
doevents

[marot_r]

Vérifie :

- le nombre de colonnes de ta combolist, la largeurs des colonnes, la largeur de la liste
- Quand ce bout de code est exécuté
- si il est éxécuté
- que le SQL renvoie bien des données

A+

[Pitou5464]

ça marche pas, voila mon code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Mise_En_Forme()
    If W_Sortie = "" Then
        W_Sortie = "*"
    End If
    If Left(W_Sortie, 2) = ", " Or Left(W_Sortie, 2) = "*," Then
        W_Sortie = Mid$(W_Sortie, 3)
    End If
    Me.StrSql = "Select " & W_Sortie & " into _export from " & "[" & Me.Nom_Table & "]"
    Me.La_Liste.RowSource = "Select " & W_Sortie & " from " & "[" & Me.Nom_Table & "]"
    Call RowsSelected
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim ctlList As Control, varItem As Variant, a As String, B As String
 
    ' Return Control object variable pointing to list box.
    Set ctlList = Me.ListeDestinataires
    ' Enumerate through selected items.
    a = "Where " & "(DIR_NOM = '" & ctlList.ItemData(0) & "')"
    For Each varItem In ctlList.ItemsSelected
        ' Print value of bound column.
        B = B & " Or " & "(DIR_NOM = '" & ctlList.ItemData(varItem) & "')"
    Next varItem
    Me.StrSql = Me.StrSql & a & B
    Me.ListeFax.RowSource = Me.StrSql

La requête SQL s'affiche bien dans StrSql mais ça marche pas pour listeFax
j'ai vérifier les propriétés de la liste tout est nikel je comprend pas

[marot_r]

ça marche pas,

Ça marche pas comment ? Pas de données affichées ?

La requête SQL s'affiche bien dans StrSql mais ça marche pas pour listeFax
j'ai vérifier les propriétés de la liste tout est nikel je comprend pas

As-tu verifier que ton SQL donne bien des resultats ? Paste le dans une requète et vois ce que cela donne.

Es-tu sur que le code de reassignation est executé ? Met un point d'arret et vois ce que cela donne.

A+

[Pitou5464]

La requète SQL fonctionne.