[VBA-A]Rafraichissement d'un flexgrid

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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!

16/02/2006, 15h31
bouley

Salut anikeh

Que veux-tu dire par:

Citation:

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

en parlant de ton flexgrid
16/02/2006, 15h40
anikeh

Citation:

Envoyé par bouley

Salut anikeh

Que veux-tu dire par:

Citation:

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.
16/02/2006, 15h55
bouley

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.
@+
16/02/2006, 16h27
anikeh

non repaint ne marche pas.
16/02/2006, 16h51
bouley

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
@+

Code:

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.

16/02/2006, 17h36
bouley

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.

@+
16/02/2006, 17h41
anikeh

tu as peut etre raison. Je teste ca et je te tiens au courant.
Est ce que t'as la syntaxe du ADDitem?
16/02/2006, 17h50
bouley

voila pour toi,

Code:

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

Bon courage
@+
16/02/2006, 18h06
anikeh

Je ne connais pas à lavance le nombre de colonne. Il est calculé dans la fonction. Je ne peux pas utliser le AddItem.
16/02/2006, 18h38
bouley

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)
@+
21/03/2006, 13h53
anikeh

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!
21/03/2006, 19h06
ThierryAIM

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

Code:

Set MSGrid1.DataSource = rs
22/03/2006, 09h40
anikeh

Je vais essayer. Je ne connaissais pas. Je vous tiens au courant.
22/03/2006, 10h31
anikeh

Ca ne marche pas. Je ne pense pas que le flexgrid puisse être ainsi rattaché a un recordset ADO.
22/03/2006, 11h29
jmfmarques

Oh ! ... Tu en es sur ? :cry:
22/03/2006, 11h36
anikeh

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...
22/03/2006, 13h04
ThierryAIM

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
22/03/2006, 13h13
anikeh

c'aurait été avec plaisir mais je dois jouer de malchance car je n'ai pas mshFlexgrid dans ma liste de composants.

Voir 40 message(s) de cette discussion en une page