Discussion :

[ben_skywalker]

salut, . j'ai code suivant, qui doit faire que ma zone de liste change en fonction de ce qui est écrit dans une zone de texte, et elle marchotte, une fois qu'elle à changer une fois, elle boude et reste telle quelle bien que en mode débogage toute les ligne qui corresponde au test que j'effectue sont bien exécuter...

je suis aller voir dans la FAQ ou j'ai trouver la fonction refresh, qui m'a été utile.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub ZT_FichProgOK_KeyUp(KeyCode As Integer, Shift As Integer)
Dim SqlOK As String
Dim SqlNotOK As String
 
    Me.Refresh
    If IsNull(Me.ZT_FichProg.Value) Or Me.ZT_FichProg.Value = "" Then
        SqlOK = "SELECT NumFich, NomFich " & _
                "FROM T_Fichier;"
    Else
        If Me.LST_NomProg.Visible Then
            SqlOK = "SELECT NumProg, NomProg " & _
                    "FROM T_Fichier" & _
                    "WHERE NomProg LIKE '" & Me.ZT_FichProgOK.Value & "*';"
        Else
            If Me.ZT_FichProg.Visible Then
                SqlOK = "SELECT NumFich, NomFich " & _
                    "FROM T_Fichier " & _
                    "WHERE NomProg LIKE '" & Me.ZT_FichProgOK.Value & "*';"
            Else
                If Me.LST_Fichier.Visible = True Then
                    SqlOK = "SELECT NumFich, NomFich " & _
                            "FROM T_Fichier " & _
                            "WHERE NomFich LIKE '" & Me.ZT_FichProgOK.Value & "*';"
                End If
            End If
        End If
    End If
 
 
    Me.LST_ProgFichUtiliser.RowSourceType = "Table/Requête"
    Me.LST_ProgFichUtiliser.RowSource = SqlOK
    Me.LST_ProgFichUtiliser.Requery
    Me.LST_ProgFichUtiliser.Selected(0) = True
 
End Sub

pourriez vous m'aider a voir d'ou viens le problème
merci d'avence pour votre aide

[Demco]

Avant

Code :

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

Me.LST_ProgFichUtiliser.RowSource = SqlOK

Mets un

Code :

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

Debug.Print SqlOK

Tu verras alors la requete s'afficher dans la fenetre d'execution, teste la dans QBE pour voir si elle est valide.

[ben_skywalker]

il ne me sélectione pas la bonne requète ce coups ci, bizare, car avatn j'avais la requète, mais pas de résultat visible alors que par le test de la requète, elle fonctionnais parfaiment, maintenant non.
De plus, en passant sur Me.ZT_Fich.Value, il me dit valeur = "" alors que dans la zone de texte, je vois bien le "C" que je viens d'écrire

[polo(31)]

le fait de passer par l'événement keyup n'a t'il pas d'incidence ?

je verai plus un change ou afterupdate

dite moi si je me trompe si il faut il ni a pas de différence

[ben_skywalker]

j'ai essayer avec afterupdate, mais je n'avais pas encore parcourue la faq, et je ne connaissais pas le me.Refresh, je réessaye et vous tiens au courant, mais faites gaffe au arc électrique

[EDIT]
par cet évènement, sa ne passe pas dans le code automatiquement, il fatu sortir de la zone de liste et sa ne me plait pas, de plus c'est le même problème. je viens de voir un truc,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub ZT_FichProgOK_KeyUp(KeyCode As Integer, Shift As Integer)
Dim SqlOK As String
Dim SqlNotOK As String

    Me.Refresh
    If IsNull(Me.ZT_FichProgOK.Value) Or Me.ZT_FichProgOK.Value = "" Then
'ici il y avais un problème de nom
        SqlOK = "SELECT NumFich, NomFich " & _
                "FROM T_Fichier;"
    Else
        If Me.LST_NomProg.Visible Then
            SqlOK = "SELECT NumProg, NomProg " & _
                    "FROM T_Fichier" & _
                    "WHERE NomProg LIKE '" & Me.ZT_FichProgOK.Value & "*';"
        Else
            If Me.ZT_FichProg.Visible Then
                SqlOK = "SELECT NumFich, NomFich " & _
                    "FROM T_Fichier " & _
                    "WHERE NomProg LIKE '" & Me.ZT_FichProgOK.Value & "*';"
            Else
                If Me.LST_Fichier.Visible = True Then
                    SqlOK = "SELECT NumFich, NomFich " & _
                            "FROM T_Fichier " & _
                            "WHERE NomFich LIKE '" & Me.ZT_FichProgOK.Value & "*';"
                End If
            End If
        End If
    End If
                        
                    
    Me.LST_ProgFichUtiliser.RowSourceType = "Table/Requête"
    Me.LST_ProgFichUtiliser.RowSource = SqlOK
    Me.Refresh
    Me.LST_ProgFichUtiliser.Requery
    Me.LST_ProgFichUtiliser.Selected(0) = True
    
End Sub

mais bien que la requète soit bonne, l'execution plante

[polo(31)]

oh, la p'tit blagounette!!!

[ben_skywalker]

j'ai éditer mon post,
et il m'arive de faire des p'tite blagounnette de temps a autre, faut bien détendre l'atmosphère

[polo(31)]

ces sur que si on ne faisé que bosser on finirai tous décapité et pendu par les pieds, pour ton probléme là par contre mon niveau ne me permet pas de te répondre, sorry

[ben_skywalker]

merci quand même d'avoir essayer Polo(31)

[Faw]

Utilise l'événement Change et .Text au lieu de .Value de
la zone de saisie. + Requery

[ben_skywalker]

merci Faw pour l'évènement c'est bien sa que je voulais, mais pour le Requery, je le fait déjà :

Code :

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

1
2
3
4
5
    Me.LST_ProgFichUtiliser.RowSourceType = "Table/Requête"
    Me.LST_ProgFichUtiliser.RowSource = SqlOK
    Me.LST_ProgFichUtiliser.Requery
    Me.LST_ProgFichUtiliser.Selected(0) = True

et toujours pareil, la zone de liste ne change pas

je crois avoir trouver d'ou sa viens, il y a 5 semaiine, quand commancer le développement de l'application, j'ai voulu minimiser le nombre de formulaire, et maintenant, quand je suis en mode completer, j'ai affaire à une liste, et en mode mise à jour à une autre, le truc c'est quelle sont supperposer pour que l'utilisateur ne se rende compte de rien, et je rempli la première au form load, pour mettre à jour la seconde, (qui est visible = false) dans ma procédure. le comble, c'est que maintenant ma première zone de liste, je n'en ai plus besoin....
je vérifie que sa vient bien de là et si sa marche merci pour votre aide

[Faw]

Si c'est une sorte de recherche intuitive que tu veux
1- enlève le Me.refresh
2- Me.LST_ProgFichUtiliser.Selected(0) = True c'est pourquoi dans ce contexte?
3- Mets Me.ZT_FichProgOK.Text à la place de value
4- +/- repositionnement du curseur à la fin de la zone de saisie.

c'est ce que j'ai compris...

[ben_skywalker]

Si c'est une sorte de recherche intuitive que tu veux
1- enlève le Me.refresh
2- Me.LST_ProgFichUtiliser.Selected(0) = True c'est pourquoi dans ce contexte?
3- Mets Me.ZT_FichProgOK.Text à la place de value
4- +/- repositionnement du curseur à la fin de la zone de saisie.

c'est ce que j'ai compris...

recherche intuitive, c'est sa

1) j'ai vue dans la faq qu'il falait le mettre si on utilisait des controls du form actif. cf: http://access.developpez.com/faq/?page=zdl#RafrZList
2)ici c'est pour que l'utilisateur puisse complèter la fin de sont mot, ou le transférer d'une liste à l'autre, car j'ai lstProgFichUtiliser et Lst_ProgFichNotUtiliser... mais si sa fait un Setfocus en même temps, c'est pas ce que je recherche
3) c'est fait
4)comment tu fais sa, si c dans la faq dit le simplement, je vais déjà regarder, et quand ce point la sera résolut, je n'oublis pas

[ben_skywalker]

ok, je n'est rien vue dans la FAQ, mais en enlevant le refresh sas ne sélectionne pas le texte de ma ZT donc plus besoin de repositionner le curseur merci à tous ceux qui m'ont aider