Discussion :

[breweryfr]

Bonsoir,

Sachant que le code suivant me permet de connaitre le nombre de doublons, je voudrai connaitre le numéro du doublon de l'enregistrement en cours.
Est-ce le premier doublon de la liste, etc ?

Code :

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

1
2
3
4
5
6
7
8
 
' on déclare le curseur 
dim rs as DAO.recordset
dim cSQL as string 
cSQL = "SELECT COUNT(SAV.[APPAREIL_ID]) as nombre FROM SAV WHERE (SAV.[APPAREIL_ID] = 2000);"
 
' on l'ouvre et on déclenche la requete 
Set rs = Currentdb.OpenRecordset (cSQL)

[pyloupylou]

qu'entends tu par numéro du doublon ?

[breweryfr]

rs.nombre va me sortir le nombre de doublon sur la requête.

Je voudrai savoir si la position de mon enregistrement en cours correspond au premier doublon, au deuxième doublon de ma table.

Par exemple Matable contient 2 colonnes (ID_APPAREIL et MONPRIX) avec les données suivantes

Code :

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

1
2
3
4
5
6
7
8
ID_APPAREIL        MONPRIX
   2000                 12
   2001                 13
   2000                 14 **
   2001                 15
   2002                 16
   2000                 17
   2000                 15

Le nombre de doublons dans ID_APPAREIL contenant le chiffre 2000 est de 4
Mais sur la ligne ** où se trouve MONPRIX=14 le nombre de récurrence depuis le début de la table sera alors de 2.

[breweryfr]

Finalement j'ai crée une boucle de recherche depuis le début de la table et un déplacement avec l'instruction suivante:

Code :

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

rs.MoveNext

Comment faire pour que mon formulaire n'affiche pas mon déplacement dans la table car je veux traiter ma fonction en fond de tâche.

[pyloupylou]

Bonjour breweryfr

ça serait bien que tu sois un peu plus clair dans tes questions, n'oublie pas que nous ne sommes pas dans ton programme....

supposition,
j'imagine qu'après avoir fait ta requête, tu pars sur une boucle de mise à jour où tu vas regarder pour chaque ligne affichée par ton écran si tu trouve ton élément dans la liste retournée par ta requête.
le problème après avoir fait ton movenext c'est que ton écran se rafraîchit.

là ça me surprend, est ce que plutôt à la fin de ton traitement tu ne te retrouve pas positionné sur la dernière ligne de ta table ?
si non c'est que dans cette boucle il y a quelque chose qui déclenche le rafraîchissement de l'écran
si oui, il faut à la fin de ta boucle te repositionner sur le 1er enregistrement ou l'enregistrement qui était actif avant la boucle

[breweryfr]

Effectivement je suis dans une boucle de recherche et à chaque instruction de passage à l'enregistrement suivant mon formulaire se rafraichit...
Comment éviter ce rafraichissement.


Voici mes lignes de code, j'ai ajouté des commentaires pour faciliter la lecture

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
' définition de la base de données
Set rs = Me.Recordset
 
'mémorise la position actuelle
j = rs.AbsolutePosition
 
'Val étant la valeur à rechercher
Val = Forms![SAV].Form![APPAREIL_ID]
 
'déplacement au premier enregistrement
rs.MoveFirst
 
n = 0
For i = 0 To j
V = Forms![SAV].Form![APPAREIL_ID]
    If Forms![SAV].Form![APPAREIL_ID] = Val Then
        n = n + 1
    End If
 
'déplacement à l'enregistrement suivant
rs.MoveNext
Next i
 
'Annule le dernier déplacement pour retrouver la position j
rs.MovePrevious

[pyloupylou]

tu vas rire, je pensais avoir compris ce que tu voulais et quand je vois ton code..... je ne suis plus sûr du tout....

sinon pour bloquer le rafraichissement de l'écran voir ici :
http://access.developpez.com/faq/?page=IHM#DesRafrEcr

[loufab]

Bonjour,

Je suivais également cette discussion et il me semblait avoir compris... jusqu'à que je lise le code. Pyloupylou tu dois te sentir moins seul

Dans tous les cas rechercher un enregistrement avec une boucle c'est... comment dire... comme vouloir attraper des mouches avec une raquette de tennis.

Utilise plutôt la méthode Findfirst de ton Recordset.

Consulte le tuto sur DAO pour en savoir plus.

Cordialement,

[breweryfr]

Bonjour,

Et merci d'avoir répondu.

Pour PYLOUPYLOU
J'avais utilisé l'ancienne methode docmd.echo mais avec l'instruction application.echo ça fonctionne.
Idéalement et pour des raisons de compatibilité il est conseillé d'utiliser la dernière instruction semble-t-il.

As for why it's better to use the Application method if possible, MS says "The Echo method of the DoCmd object was
added to provide backward compatibility for running the Echo action in Visual Basic code in Microsoft Access for
Windows 95. It's recommended that you use the existing Echo method of the Application object instead." They
don't say why, but I assume they know what they're talking about.

Pour LOUFAB
La fonction FindFirst est bien plus efficace, je l'ai essayé et adopté. Merci.

Sujet clôt pour moi.

[LedZeppII]

Bonjour,

Effectivement je suis dans une boucle de recherche et à chaque instruction de passage à l'enregistrement suivant mon formulaire se rafraichit...
Comment éviter ce rafraichissement.

Essaie Set rs = Me.RecordsetClone au lieu de Set rs = Me.Recordset.

A+