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!!!