Probleme avec Application.echo

Version imprimable

13/02/2012, 10h53
stargates01

Probleme avec Application.echo

Bonjour à tous,

J'ai un petit probleme avec la commande "Application.Echo False". J'utilise cette commande en début d'une procédure afin de ne pas rafraîchir l'écran pendant que ma procédure modifie les nombreux contrôles d'un formulaire, et je remets Application.Echo en True en fin de procédure pour afficher d'un coup les nouvelles valeurs de me controles...sauf que ça ne marche pas et que mes contrôles se mettent à jour un à un à l'écran (je l'ai vérifié en mode debuging). Auriez-vous une idée sur ce probleme ? y-a-til une instruction qui pemette de voir en quel mode est l'écho à un instant t ?

Merci d'avance au(x) contributeur(s)

Stargates :calim2:
13/02/2012, 13h17
argyronet

Bonjour,

Tous dépend où tu as placé ton appel...

Il ne faut pas confondre Echo et Repaint. L'une active ou désactive la MAJ de l'écran et l'autre provoque une MAJ immédiate de l'écran...

Argy
13/02/2012, 13h52
stargates01
Merci. En fait je cherche effectivement à désactiver la mise à jour de l'écran avec Echo (False), le temps de mettre à jour les valeurs de tous mes controles, et je réactive toujours avec Echo (True). Je n'utilise pas Repaint.

Ce qui n'a pas l'air de marcher c'est justement la désactivation. Le début de mon code est comme suit :
Code:

1 2 3 4 5 6 7 Application.Echo False i = 1 Do While Not (oRS.EOF And i <= 10) If i = 1 Then ReNew = True 'oRS("New_Renew") Status = oRS("Status_id")
Bien qu'il y ait Application.Echo False, l'écran affiche le changement de valeur du controle ReNew...
13/02/2012, 15h03
argyronet

Etrange ta boucle... :)

En fait je ne vois pas trop ce que tu fais... As-tu un code un peu plus complet ?

Et tiens, si tu utilisais plutôt...

Code:

DB.Execute "UPDATE...", dbFailOnError

puis un Requery de l'objet Form.
13/02/2012, 15h06
Orion34080

Pareil pour moi ... je n'ai jamais été satisfait de l'action de la commande

Application.ECHO False

... pas l'impression qu'elle remplisse on office : les écrans "bougent" malgré cela.

Application.Echo True

Michel
13/02/2012, 16h50
argyronet

Dans ce cas, il est possible d'utiliser l'API LockWindowUpdate().

Argy
13/02/2012, 17h34
Orion34080

Bsoir,
Tu peux en dire plus sur l'utilisation de cette API ?
Codage sous access...
Merci
Michel

Merci à Argy et Michel. Je vais essayer avec l'API LockWindowUpdate().

Il est vrai que ma boucle était incomplète. Je peux essayer de résumer ma procédure comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Public Function Validation(ProgRef as integer) as boolean Dim ctl as Control Dim AddRcd As New ADODB.Command Dim oRS as New Recordset AddRcd.CommandText = "SELECT * FROM dbo.BusinessData WHERE ((ProgRef =" & ProgRef & ") AND Inc_Date IN(SELECT Max(inc_date) from dbo.businessdata WHERE progref = " & ProgRef & "GROUP BY ProgRef)) ORDER BY Factid ASC" Set oRS = AddRcd.Execute Application.Echo False 'Je désactive la maj d'écran For each ctl in MyForm ctl = oRS(ctl.name) next Application.Echo True 'Je réactive la maj d'écran End sub
Ce que j'obtiens : les contrôles se mettent à jour après chaque instant du For ..next et non pas à la réactivation de la maj d'écran.

Stargates

Humm, ta procédure est vouée au plantage, non...
Tu n'as que des TextBoxes dans ton formulaire ?

Bon, n'importe comment, voilà un exemple :

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
 
Private Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long
 
Sub DemoLockWindowUpdate()
Dim ctl                                                As Control
Dim oRS                                                As DAO.Recordset
Dim oDB                                                As DAO.Database
Dim SQL                                                As String
 
    LockWindowUpdate Me.Hwnd
    Set oDB = CurrentDb
    SQL = "SELECT Clients.[Code client], Clients.Société, Clients.Contact, Clients.Fonction, Clients.Adresse, Clients.Ville, Clients.Région, Clients.[Code postal], Clients.Pays, Clients.Téléphone, Clients.Fax FROM Clients WHERE Clients.[Code client] ='ALFKI';"
    Set oRS = oDB.OpenRecordset(SQL, 2)
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox
                ctl = oRS(ctl.Name)
            Case Else
        End Select
    Next
    oRS.Close
    oDB.Close
    LockWindowUpdate False
    Set oRS = Nothing
    Set oDB = Nothing
End Sub

Argy

14/02/2012, 18h41
stargates01

Merci Argy pour avoir pris le temps d'expliciter la procédure (la mienne n'était qu'une reconstitution plus qu'imparfaite...).

ça devrait marcher ! :ccool:

Stargates