2 problèmes avec mon listView et ma base

Question

salut

jutilise un listview pour afficher mes données (base access)

ca marche bien mais jai 2 soucis majeurs:

- quand jinsere qqch avec mon formulaire dans VB et que je reviens a la page ou est affiché mon ListView il ne se reload pas, jai pas le dernier enregistrement et je suis obligé de quitter l'appli et revenir pour voir si ca saffiche ou pas

comment faire ?

- je voudrais pouvoir aller vers une page quand je double clic sur une ligne de mon listview

Merci

cs_toto1980 · Answer

Pour la mise à jour de ta liste, moi j'utiliserais soit un bouton
soit un timer. Tu peux aussi utiliser form_activate de ton listview.

Sinon pour le click, utilise l'événement DblClick. Dans cet événement mets ton form2.show

foliop · Answer

form_activate ?

dans mon form_load() je peux pas mettre une commande qui refresh le tout ?

cs_CanisLupus · Answer

Dans le form_load, ça ne sera jamais rafraichi car le code qu'il y a dedans ne s'exécute qu'au moment où tu load cette form.
Il vaut mieux que tu mettes le code de remplissage de ta listview dans le form_activate. Ainsi, ta liste sera rafraichie quand tu y reviens.

PS, n'oublie pas un clear avant sinon, tu auras tout en double voire plus.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

un clear ?

sorry je debute

cs_CanisLupus · Answer

En admettant que ton listview se nomme ListView1, pour le vider tu codes : ListView1.ListItems.Clear

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

ok merci
et concernant le form_activate ? je dois procéder comment au juste ?

merci de ton aide cest sympa

cs_CanisLupus · Answer

Donne le code de ton form_load et je te dirai. Sinon, comme j'ai écris plus haut, met le code de remplissage de ta listview dans l'évènement activate de ta form.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

jai mis mon remplilistview dans mon form_activate mais ca ne change rien

cs_toto1980 · Answer

Quand tu double_click, tu ouvres une autre fenêtre, ta première form est cachée, puis tu fermes la fenetre. Donc à ce moment ta form redevient acive et l'événement Form_Activate est automatiquement appelé. Mets un point d'arrêt pour voir si tu entres dans la fonction.

foliop · Answer

en fait jai tout dans ma Form et jappele des frames

Frame1 : affiche mon listview
Frame2 : formulaire de rempli

quand ca rempli ca envoi un MsgBox qui dit "enregistrement ok" et apres ca redirige vers lacceuil donc Frame1

cs_toto1980 · Answer

Quand tu rediriges, il faut que tu appelles remplilistview

foliop · Answer

je lai fait mais ca ne marche pas :( :(

cs_CanisLupus · Answer

Fais voir ton code, parce que là, je comprend plus.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

Private Function RempliListView()
Dim li As ListItem
Dim rsListView As New ADODB.Recordset

Set rsListView = DE1.Connection1.Execute("Select * from résultats Order BY id DESC")
If rsListView.RecordCount <> 0 Then
    rsListView.MoveFirst
    Do
    
        Set li = Me.ListView1.ListItems.Add(, , rsListView("date"))
        
        'li.ListSubItems.Add , , rsListView("prenom")
        li.ListSubItems.Add , , rsListView("victoire")
        li.ListSubItems.Add , , rsListView("PtsMarqués")
        li.ListSubItems.Add , , rsListView("nom")
        li.ListSubItems.Add , , rsListView("club")
        li.ListSubItems.Add , , rsListView("classement")
        li.ListSubItems.Add , , rsListView("points")
    
        Set li = Me.ListView2.ListItems.Add(, , rsListView("date"))
        
        'li.ListSubItems.Add , , rsListView("prenom")
        li.ListSubItems.Add , , rsListView("victoire")
        li.ListSubItems.Add , , rsListView("PtsMarqués")
        li.ListSubItems.Add , , rsListView("nom")
        li.ListSubItems.Add , , rsListView("club")
        li.ListSubItems.Add , , rsListView("classement")
        li.ListSubItems.Add , , rsListView("points")
        li.ListSubItems.Add , , rsListView("epreuve")
        li.ListSubItems.Add , , rsListView("lieu")
    
        rsListView.MoveNext
        
    Loop Until rsListView.EOF = True
    
End If

End Function

Private Sub Form_Load()
RempliListView
End Sub

voila ensuite quand je clic sur enregistrer dans mon autre frame je fais ca :

sql = "SELECT * FROM Résultats"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

rs.AddNew
rs.Fields("nom") = Text3.Text
rs.Fields("prenom") = Text8.Text
rs.Fields("points") = nbr_points.Text
rs.Fields("club") = Text4.Text
rs.Fields("date") = Text6.Text
rs.Fields("lieu") = Text1.Text
rs.Fields("epreuve") = Combo1.Text
rs.Fields("PtsMarqués") = "+" & PtsGagnes2.Caption
rs.Fields("ptgagne") = PtsGagnes2.Caption
rs.Fields("ptperdu") = ptsperdu2.Caption
rs.Fields("classement") = affclassement.Caption
rs.Fields("M") = Option1.Value
rs.Fields("F") = Option2.Value
rs.Fields("victoire") = "Victoire"
rs.Update
rs.Close

MsgBox "Merci, votre résultat a été enregistré.", vbInformation + vbOKOnly
Ajout.Visible = False
Frame1.Visible = True
Frame2.Visible = True
Frame6.Visible = True
Frame7.Visible = False
Frame8.Visible = False
Command5.Visible = True

cs_toto1980 · Answer

Tu n'appelles pas RempliListView juste après ton MsgBox?

foliop · Answer

la non mais si je le fait cest pareil :(

cs_CanisLupus · Answer

Comme dit toto1980 et puis je rajouterais pourquoi mélanges tu de l'ADO et du DAO ?

Dim rsListView As New ADODB.Recordset c'est de l'ADO
Set rs = db.OpenRecordset(sql, dbOpenDynaset) c'est du DAO

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

cs_CanisLupus · Answer

Et puis, qu'appelles tu des frames ? pour moi c des controles qui contiennent d'autres controles. Pour certains c'est des forms, question de langage.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

nan jappele des Frame1

je les cache et je les affiche selon la rubrique que jappele

cs_CanisLupus · Answer

Si tes listview sont dans des frames, ça serait bien que tu dises au prog où elles sont.
Par ex, Me.ListView1 et Me.ListView2 ça veut dire qu'elles sont sur la form (pas dans une frame) sinon Me.FrameX.ListView1 et Me.FrameX.ListView2 serait plus indiqué (X étant le numéro de ta frame).
D'autre part, comme dit <toto1980> si tu appelles RempliListView à la fin du code de ton bouton enregistrer, ça devrait le faire.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

foliop · Answer

ca fonctionne tj pas :(

2 problèmes avec mon listView et ma base

21 réponses

Discussions similaires