Discussion :

[nicolas2603]

Bonjour, comment puis-je procéder pour choisir aléatoirement dans une base un enregistrement, tout en faisant en sorte que cet enregistrement ait un critère prédéfini d'une certaine valeur. C'est à dire que j'ai un champ "Truc" qui peut être 0 ou -1, je voudrais faire un choix aléatoire sur toute la base mais en ne sélectionnant que les enregistrements où truc = 0.

Je pense peut-être faire un choix aléatoire sur une requête prédéfinie qui ne contient que les enregistrements où truc = 0, mais je vois pas trop comment choisir aléatoirement là dedans !!

Merci d'avance.

[pgz]

Bonjour.

Une solution pourrait être d'ouvrir un recordset et de déterminer le nombre d'enregistrements. Faire alors un tirage aléatoire (voir Rnd) du numéro d'ordre et lire l'enregistrement correspondant.
Si le rst est ouvert avec une requête qui filtre, c'est fini. Sinon il faut vérifier que l'enregistrement tiré répond au critère et, tant que ce n'est pas le cas, recommencer.


Bon courage,

PGZ

[nicolas2603]

C'est ce que j'avais fait à la base, j'avais un code comme ça :

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
Private Sub cmdRegarder_Click()
Dim varPositionDVD, varRdm As Integer
 
    varPositionDVD = 0    
    Do While varPositionDVD = 0
        varRdm = Int(Rnd * Form.RecordsetClone.RecordCount)
        If varRdm <> 0 Then
            DoCmd.GoToRecord , , acGoTo, varRdm
            DoEvents
            If Me.Vu = -1 Then
                varPositionDVD = 1
            End If
        End If
    Loop
End Sub

Le fonctionnement est le choix au hasard d'un numéro (correspondant à une colonne), on va se placer sur cet enregistrement, et là on lit la valeur de la colonne "vu" affichée par le champ me.vu. Si c'est -1 alors on sort de la boucle.

Le problème, c'est que j'ai remarqué que la valeur de me.vu correspond à l'enregistrement précédent, elle ne se réactualise pas une fois qu'on s'est déplacé dans la base !