[VBA-A]Rafraichissement d'un flexgrid

**anikeh** · 16/02/2006, 14h24

Bonjour,

je n'arrive pas a rafraichier mon flexgrid.
Je m'explique, j'ai un flexgrid que je remplis dynamiquement à l'aide d'un recordset, suivant le code ci dessous :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
Public Sub RemplirFlex(msflex As Object, rs As Adodb.Recordset, Query As String)
'Permet de remplir une flexgrid en fonction du recordset et d'une requête.
DoEvents
Dim i As Integer
Dim j As Integer
Dim r As Integer
Dim c As Integer
 
On Error GoTo GestionErreur
 
 
'-- Remplir le flex s'il y a une requete
  If Query <> vbNullString Then
    'Tester si le recordset rattaché au flexgrid est ouvert. Dans ce cas, il est fermé, puis réouvert.
    'Sinon, on l'ouvre directement.
    If rs.State = adStateOpen Then
    rs.Close
    rs.CursorLocation = adUseServer
    Else
    rs.CursorLocation = adUseServer
    End If
 
 
 
    rs.Open Query, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
 
    msflex.Clear
    msflex.Redraw = False
    msflex.Visible = False
 
        msflex.FixedRows = 1
        msflex.FixedCols = 0
        msflex.RowHeight(0) = 300
        msflex.RowHeightMin = 650
 
        msflex.WordWrap = True
 
       If Not rs.EOF Then
        rs.MoveLast
        rs.MoveFirst
 
 
        msflex.Rows = rs.RecordCount + 1
        msflex.Cols = rs.Fields.Count
 
            For i = 0 To rs.Fields.Count - 1
                msflex.TextMatrix(0, i) = rs.Fields(i).Name
            Next
 
            i = 1
            Do While Not rs.EOF
 
                For j = 0 To rs.Fields.Count - 1
                    If Not IsNull(rs.Fields(j).Value) Then
                        msflex.TextMatrix(i, j) = rs.Fields(j).Value
                    End If
                Next
 
            i = i + 1
            rs.MoveNext
            Loop
 
        End If
 
 
 
    msflex.Redraw = True
    msflex.Visible = True
    msflex.Refresh
 
 Else
 msflex.Clear
 
End If
Exit Sub
 
GestionErreur:
MsgBox Err.desc, vbInformation, AppName & " " & AppVersion
 
End Sub

Mon problème, c'est que parfois, le flexgrid ne se rafraichit pas instantanément. Je dois le fermer et le réouvrir pour que les bonnes valeurs apparaissent. Pourtant, au niveau du recordset la valeur est changée comme demandée.

Avez-vous déja expérimenté un probleme de rafraichissement avec un flexgrid? Comment en êtes vous sortis??

Merci

Anikeh!

**bouley** · 16/02/2006, 15h31

Salut anikeh

Que veux-tu dire par:

Je dois le fermer et le réouvrir pour que les bonnes valeurs apparaissent

en parlant de ton flexgrid

**anikeh** · 16/02/2006, 15h40

Envoyé par bouley

Salut anikeh

Que veux-tu dire par:

Je dois le fermer et le réouvrir pour que les bonnes valeurs apparaissent

en parlant de ton flexgrid

je veux dire fermer le formulaire sur lequel le flexgrid est, puis le relancer. Les valeurs affichées dans le flexgrid sont alors les bonnes.

**bouley** · 16/02/2006, 15h55

je viens de m'apercevoir que c'est du VBA access
et la je ne connais pas
en vba excel je ferai un repaint de mon formulaire ou userform plus exactement, regarde si cette propriété existe en access.
@+

**anikeh** · 16/02/2006, 16h27

non repaint ne marche pas.

**bouley** · 16/02/2006, 16h51

dis moi anikeh
tu remplis ta flexgrid via la propriete textmatrix mais comment sais tu le nombre de lignes qu'il te faut ?
Ou définis-tu le nombre de ligne ?
Sinon un additem de chaque ligne de ton recordset suffirai !

tu dis
@+

**anikeh** · 16/02/2006, 17h04

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
            Do While Not rs.EOF 
 
                For j = 0 To rs.Fields.Count - 1 
                    If Not IsNull(rs.Fields(j).Value) Then 
                        msflex.TextMatrix(i, j) = rs.Fields(j).Value 
                    End If 
                Next 
 
            i = i + 1 
            rs.MoveNext

Voici comment je remplis le flexgrid.
je remplis tant que le curseur n'est pas sur le dernière ligne du recordset.

La addItem si je voulais faire uniquement des insertions. Or je fais aussi des Mise à jour.

J espere que ca repond à ta question parce que je l'ai pas entierement comprise.

**bouley** · 16/02/2006, 17h36

A moins que je me trompe,
tu fais un clear de ta flexgrid avant de la remplir donc tu la vide non ?
tu ne fais pas q'une mise à jour !
Donc en supprimant toutes les lignes et en les recréant par des additem
je suis sur que serai plus rapide et ton problème de rafraichissement résolu.

@+

**anikeh** · 16/02/2006, 17h41

tu as peut etre raison. Je teste ca et je te tiens au courant.
Est ce que t'as la syntaxe du ADDitem?

**bouley** · 16/02/2006, 17h50

voila pour toi,

Code :

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

msflex.additem rs.fields(0) & chr(9) & rs.fields(1)........& rs.fields(n)

Bon courage
@+

**anikeh** · 16/02/2006, 18h06

Je ne connais pas à lavance le nombre de colonne. Il est calculé dans la fonction. Je ne peux pas utliser le AddItem.

**bouley** · 16/02/2006, 18h38

mais si

tu construis ta ligne à ajouter de la même manière que tu rempli tes cellules

AInserer = AInserer & rs.fields(j) & chr(9)
si rs.fields(j) est null AInserer = AInserer & "" chr(9)
à la fin tu suprimmes le chr(9) de trop par un left(AInserer ,Len(AInserer) - 1)
@+

**anikeh** · 21/03/2006, 13h53

Désolé de ce temps de réponse.
Je viens d'essayer la solution que tu as donné ( à savoir le AddItem). Mais cela ne change rien au problème, ma flexgrid ne se rafraichit toujours pas.

Je me demande si cela n'a pas un rapport avec le tps de rafraichissement du recordset dont je me sers pour remplir la flexgrid.

Si qq'un a une idée...

Anikeh!

**ThierryAIM** · 21/03/2006, 19h06

et pourquoi ne pas utiliser tout simplement le Datasource de la Flexrid au lieu de se compliquer la vie :

Code :

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

    Set MSGrid1.DataSource = rs

**anikeh** · 22/03/2006, 09h40

Je vais essayer. Je ne connaissais pas. Je vous tiens au courant.

**anikeh** · 22/03/2006, 10h31

Ca ne marche pas. Je ne pense pas que le flexgrid puisse être ainsi rattaché a un recordset ADO.

**jmfmarques** · 22/03/2006, 11h29

Oh ! ... Tu en es sur ?

**anikeh** · 22/03/2006, 11h36

Il me semble bien.
Si tu peux me demontrer le contraire, je t en serais reconnaissant parce que je patine là dessus depuis un bout de temps...

**ThierryAIM** · 22/03/2006, 13h04

Utilise une MSHFlexgrid qui accepte les recordsets ADO sans soucis et qui très peu différente d'une MSFlexGrid quanq don l'utilse sur un seul niveau

c'est ce que à quoi je pensais, dans mon dernier post

Parce qu'en plus, on ne peut pas affecter le Datasource par le code dans une MSFlex