DataGrid qui ne se "Refresh" pas - VB/VBA/VBS - Programmation
MarshPosté le 18-05-2004 à 03:08:00
Je vais essayer d'être clair (c'est pas gagné)
J'ai une DataGrid liée à une base Access. Par une commande SQL, je lui fais afficher toute la liste de livres présents dans cette base. Jusque la tout marche bien. En utilisant un DataCombo ( ou sont répertorié tous les auteurs ) j'effectue un filtre sur cette requete pour n'afficher que les livres de l'auteur sélectionné. Ici aussi tout marche. Le problème apparait lorsque que je veux supprimer ce filtre, afin de réafficher tous les livres (sans filtrer par auteur). A ce moment, ma Data se vide complètement, alors que le résultat de la requete donne bien tous les livres ( le RecordCount de la "Sub cmdTousLivre_Click()" affiche bien le nombre total de livre ) Apparement le problème serait que la DataGrid ne se réctulise pas, meme avec le Refresh. Ce problème apparait seulement avec le adFilterNone (ou le .Filter = "" ) Notes: grdListLivre = DataGrid cmbAuteur = DataCombo rssqlListLivre = Commande SQL pour afficher tous les livres Merci
Marsh Posté le 18-05-2004 à 03:08:00
Je vais essayer d'être clair (c'est pas gagné)
J'ai une DataGrid liée à une base Access. Par une commande SQL, je lui fais afficher toute la liste de livres présents dans cette base. Jusque la tout marche bien. En utilisant un DataCombo ( ou sont répertorié tous les auteurs ) j'effectue un filtre sur cette requete pour n'afficher que les livres de l'auteur sélectionné. Ici aussi tout marche. Le problème apparait lorsque que je veux supprimer ce filtre, afin de réafficher tous les livres (sans filtrer par auteur). A ce moment, ma Data se vide complètement, alors que le résultat de la requete donne bien tous les livres ( le RecordCount de la "Sub cmdTousLivre_Click()" affiche bien le nombre total de livre ) Apparement le problème serait que la DataGrid ne se réctulise pas, meme avec le Refresh. Ce problème apparait seulement avec le adFilterNone (ou le .Filter = "" )
Notes: grdListLivre = DataGrid
cmbAuteur = DataCombo
rssqlListLivre = Commande SQL pour afficher tous les livres
Merci
Code:
Private Sub cmbAuteur_Change()
DataEnvironment1.rssqlListLivre.Filter = "nom_artiste='" & cmbAuteur.Text & "'"
lblInformation.Caption = DataEnvironment1.rssqlListLivre.RecordCount & " livre(s) de " & cmbAuteur.Text
End Sub
Private Sub cmdTousLivre_Click()
DataEnvironment1.rssqlListLivre.Filter = adFilterNone
lblInformation.Caption = DataEnvironment1.rssqlListLivre.RecordCount & " livre(s)"
'Debug.Print DataEnvironment1.rssqlListLivre!titre
grdListLivre.Refresh
End Sub