Bonjour,
J'ai appliqué le tutoriel sur la mise en surbrillance d'un enregistrement, sur les formulaires de ma base de donnée. J'ai réalisé cela avec la version ACCESS 2002. Sur cette version, la mise en surbrillance marche parfaitement pour tous mes formulaires.
Lorsque j'utilise ma base sous ACCESS 2003, j'ai un gros probleme sur tous les formulaires ou il y a la surbrillance.
En effet lorsque j'ouvre un de ces formulaires, les enregistrements de celui-ci se mettent tous a clignoter tres rapidement. La seule façon d'enlever ce clignotement est de réduire mon application ACCESS dans la barre des tache et de la réouvrir.(j'ai fait l'essai sur plusieur postes de l'entreprise possédant 2003 mais aussi sur mon ordinateur personnel)
J'ai vérifié les références VB et elles sont les memes et dans le meme ordre que sous ma version 2002 à ceci pres que la référence Ms office passe de la version 10.0 à 11.0
En ce qui concerne mon code voici ce que j'ai :
Mais je ne pense pas que le PB vienne de là étant donné que ça marche sous 2002
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 Dim oRS As Recordset Dim oForm As Form Dim sKeyName As String Dim lLineNumber As Long Dim lValueToMatch As Long Set oForm = Form sKeyName = "num" lValueToMatch = Me!num On Error GoTo L_ErrLineNumber Set oRS = oForm.RecordsetClone oRS.FindFirst "[" & sKeyName & "] = " & lValueToMatch Do Until oRS.BOF lLineNumber = lLineNumber + 1 oRS.MovePrevious Loop oRS.Close L_ExLineNumber: fnctGetLineNumber = lLineNumber Set oRS = Nothing Set oForm = Nothing Exit Function L_ErrLineNumber: lLineNumber = 0 Resume L_ExLineNumber
Pourriez vous m'aider ?
merci
Partager