vérifier un ordre numérique

**kgb1917** · 05/12/2006, 11h38

Bonjour

J’ai dans un form un champ numérique qui me permet de classer manuellement mes enregistrements (donc pas de numauto).
J’aimerai, lors de la fermeture du form, juste avoir un message si les numéros ne se suivent pas (s’il n’y a pas de trous et sans chercher à les combler).
Je suis parti de ce code de la FAQ mais je ne vois pas comment faire. Il y a peut être une fonction appropriée ?

Merci par avance

**Tofalu** · 05/12/2006, 12h17

Quelque chose comme cela :

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
Sub lance()
VerifTrou "table4", "mochamp"
End Sub
 
Function VerifTrou(strNomTable As String, strNomChamp As String) As Integer
Dim oRst As DAO.Recordset
Dim intPrec As Integer
Dim i As Integer
Set oRst = CurrentDb.OpenRecordset("SELECT [" & strNomChamp & _
                                    "] FROM [" & strNomTable & "] ORDER BY [" & _
                                    strNomChamp & "]")
With oRst
    While Not .EOF
        i = 1
        While .Fields(0) > intPrec + i
            MsgBox "La valeur " & intPrec + i & " n'est pas utilisée"
            i = i + 1
        Wend
        VerifTrou = VerifTrou + i - 1
        intPrec = .Fields(0)
    .MoveNext
    Wend
    .Close
End With
Set oRst = Nothing
End Function

**kgb1917** · 05/12/2006, 12h20

Re,

Merci pour la réponse, je teste.

**random** · 05/12/2006, 17h37

Code :

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

1
2
3
4
5
 
SELECT [champ]+1 AS borne1, DFirst("champ","matable","champ >" & [champ])-1 AS borne2
FROM matable
WHERE [champ]+1<>DMax("champ","matable")
 AND DFirst("champ","matable","champ >" & [champ])-1<>[champ];

**Tofalu** · 05/12/2006, 17h49

Attention, DFirst est vraiment très long. Le nombre d'accès au table est vraiment très important avec cette méthode. Il vaut mieux privilégier du VBA ici

**random** · 05/12/2006, 18h01

qu'à cela ne tienne

Code :

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

1
2
3
4
5
6
7
8
 
select iif(b1=b2-1,b1, b1 & "-" & ( b2-1))  as trou from
(SELECT [a].[champ]+1 AS b1, Min(b.champ) AS b2
FROM matable AS a, matable AS b
WHERE (((b.champ)>[a].[champ]))
GROUP BY [a].[champ]+1
HAVING (((Min(b.champ))<>[a].[champ]+1))
ORDER BY [a].[champ]+1)as temp;

**Tofalu** · 05/12/2006, 18h10

C'est encore plus long là.

Je fais mes tests sur une table de 10000 lignes et Access est carrément planté.

Non, là je pense qu'on est typiquement, étant donné la demande, dans un cas où l'utilisation d'une boucle sur un recordset est plus performante.

**random** · 05/12/2006, 18h20

je le pense aussi mais pas avec un msgbox

**kgb1917** · 05/12/2006, 18h34

Re,

désolé de vous interrompre

mais je me trouve embêté par rapport à ma question initiale. Je ne vois pas où ni comment intégrer le dernier code de random. De plus, la rapidité d'éxécution est aussi un critère de recherche.

Alors quelle piste exploiter ???

Merci de votre aide

**random** · 05/12/2006, 18h42

et là ?

Code :

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

1
2
3
4
 
SELECT  trou
FROM (SELECT [champ]+1 AS trou  FROM matable)  AS temp LEFT JOIN matable ON temp.trou = matable.champ
WHERE trou <>(select max(champ) from matable ) + 1  AND  champ  Is Null;

**kgb1917** · 05/12/2006, 18h56

Re,

ben ça ne me dit pas s'il est préférable, avant de me lancer, d'utiliser ta méthode ou celle de Tofalu. Ni où j'intègre ce code (ds une fonction, directement ds la code du bouton ?)

Merci pour ces précisions

**random** · 05/12/2006, 19h13

je viens de modifier ma méthode elle est aussi performante que celle de tofalu
maintenant

**kgb1917** · 05/12/2006, 19h19

Re,

bon, je vais tester mais peux tu m'apporter quelques précisions sur le code de ton dernier post. A quoi correspondent trou ds select trou et temp.trou ?

Je suis un peu largué sur le sql (le qbe, c'est pratique mais on finit par en abuser)

merci d'avance pour les précisions

**DMboup** · 05/12/2006, 19h21

Pour utiliser la solution de tofalu il te suffit de mettre le code

Code :

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

1
2
3
4
 
Sub lance()
VerifTrou "table4", "mochamp"
End Sub

dans l'événement sur libération ou sur fermeture de ton formulaire.

Tu remplace "table4" et "mochamp" par leur valeur respective

Tu copies la fonction dans un module et tu le fais précédé de Public.

PS : Si tu veux juste savoir s'il ya un trous dans ta table tu remplace

Code :

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

1
2
3
4
5
6
7
8
9
 
....
While Not .EOF
        i = 1
        While .Fields(0) > intPrec + i
            MsgBox "La valeur " & intPrec + i & " n'est pas utilisée"
            i = i + 1
        Wend
....

par

Code :

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

1
2
3
4
5
6
7
8
9
10
 
....
While Not .EOF or trouve
        i = 1
        While .Fields(0) > intPrec + i
            MsgBox "La valeur " & intPrec + i & " n'est pas utilisée"
            trouve=True
            i = i + 1
        Wend
....

N'oublie pas de déclarer trouve comme boolean.

**kgb1917** · 05/12/2006, 19h24

Oui, oui,

pour Tofalu, pas de pb. Mais pour Random ?

Merci à vous pour votre aide

**random** · 05/12/2006, 19h28

en fait je fais deux requetes

select champ+1 as trou from ma table
et select champ from matable

si on prend toutes les valeurs de la première et seulement celles de la seconde
on obtient un trou (pas de valeur suivante)

si on ote la dernière valeur obtenue on a la liste des trous
tu peux parfaitement le faire en qbe

tu fais la première requête et tu la sauves sous temp
tu ouvres une deuxième requête et tu copies
selECT
FROM temp LEFT JOIN matable ON temp.trou = matable.champ;

le reste est un jeu d'enfant

**kgb1917** · 05/12/2006, 19h29

Ok, merci.

je teste

**kgb1917** · 05/12/2006, 23h48

Bonsoir,

J’ai testé le code de Tofalu, il passe bien. Seulement, dites moi si j’abuse, je cherche à ce que, s’il manque une valeur (s’il y a un trou), le formulaire ne puisse pas se fermer tant qu’il n’y a pas de suite ininterrompue. J’ai cherché une bonne partie de la soirée, sans succès.

Merci d'avance pour votre aide et bonne soirée

**kgb1917** · 06/12/2006, 12h46

Bonjour,

j'essaie en vain de m'inspirer de cette discussion. Je ne vois pas où et comment inclure la condition (si la fonction revoit une valeur vraie (il y a un trou), on ne peut fermer le form, sinon, on peut fermer). Dans le module, dans l'évènement surfermeture du form ?

Bref, pouvez-vous m'éclairer ?

Merci par avance pour votre aide

**Tofalu** · 06/12/2006, 13h31

mmm, là tu as tous les éléments.

Donc on modifie la fonction puisque tu souhaites seulement savoir s'il y a un trou ou pas.

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
Function VerifTrou(strNomTable As String, strNomChamp As String) As Boolean
Dim oRst As DAO.Recordset
Dim intPrec As Integer
Dim i As Integer
Set oRst = CurrentDb.OpenRecordset("SELECT [" & strNomChamp & _
                                    "] FROM [" & strNomTable & "] ORDER BY [" & _
                                    strNomChamp & "]")
With oRst
    While Not .EOF And Not VerifTrou
        i = 1
        VerifTrou = .Fields(0) <> intPrec + i
        intPrec = .Fields(0)
    .MoveNext
    Wend
    .Close
End With
 
Set oRst = Nothing
End Function

Puis sur libération du formulaire, tu empêches la fermeture s'il y a un trou

Code :

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

1
2
3
Private Sub Form_Unload(Cancel As Integer)
Cancel = VerifTrou("table5", "c")
End Sub

Mais bon je trouve le procédé moyen.

Imagine que l'utilisateur ait saisit 100 valeurs de 1 à 101 en oubliant le 2.

Il va falloir qu'il renumérote tout !

Et autre chose, qu'est ce qu'il se passe si dans 10 jours tu supprimes le n° 25, tu le réutilises ?

vérifier un ordre numérique

Access

Discussions similaires

Partager

Partager