Discussion :

[kaarrde]

Bonjour,

Lorsque dans une requête je mets la formule suivante :

Ent((585-1+1)*Aléat()+1)

Dans un champ numérique allant de 1 à 585 il m'ouvre les enregistrements dans un mode aléatoire. Mais je me suis aperçu qu'il suit toujours le même ordre.

Si je ferme la base et que je la reouvre se sera toujours la même suite.

J'ai essayé de transforme le numérique en texte et ça n'a rien changé.

La ou ça devient curieux c'est que lors du démarrage il ouvre sur le numérique 412 et si je le supprime il ne m'affiche plus rien lors de la première ouverture.

Ma question est que je voudrais que ma base s'ouvre sur un enregistrement aléatoire et jamais dans le même ordre à chaque fois que je l'ouvre.

Si quelqu'un à une idée (pas à pas car un peu novice) elle serait la bienvenue.

Merci

[Trini]

Bonjour,

Bon j'ai essayé ceci, en ouvrant plusieurs fois de suite une base et la série est toujours différente (access 97)

Code :

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

1
2
3
4
5
 
Randomize ' Initialise le générateur
      ' de nombres aléatoires.
 
vv = Int((585 * Rnd) + 1)

Je crois que c'est surtout la commande Randomize qui permet d'avoir un nombre toujours aléatoire, tout est dans l'aide ACCESS pour plus de compréhension.

Salut,

[kaarrde]

Hélas avec access 2003 ça ne marche pas (toujours même série).

Dans l'aide il n'y a pas grand chose??

[argyronet]

Bonjour,

En faisant un essai dans la BDD les Comptoirs, cette procédure semble satisfaisante:

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
Private Sub cmdOpenAnyRecord_Click()
Const MY_QUERY = "SELECT * FROM Produits"
Dim lngAnyRecord As Long
Dim lngNBRecords As Long
Dim intAnyNumber As Integer
Dim oRS As DAO.Recordset
Dim strSQL As String
 
  Set oRS = CurrentDb.OpenRecordset(MY_QUERY, 2)
  With oRS
    If Not .EOF Then
      .MoveLast
      lngNBRecords = .RecordCount
      .Close
    End If
  End With
  Set oRS = Nothing
  Randomize
  intAnyNumber = Int((lngNBRecords * Rnd) + 1)
  strSQL = MY_QUERY & " WHERE [Réf produit] = " & intAnyNumber
  Set oRS = CurrentDb.OpenRecordset(strSQL, 2)
  With oRS
    If Not .EOF Then
      MsgBox "Produit sélectionné :" & vbCrLf & intAnyNumber & " " & .Fields("Nom du produit")
      .Close
    End If
  End With
  Set oRS = Nothing
End Sub

Argy

[kaarrde]

Merci mais peut tu me dires ou je dois taper tout ça ???

[argyronet]

Ma question est que je voudrais que ma base s'ouvre sur un enregistrement aléatoire et jamais dans le même ordre à chaque fois que je l'ouvre.

Une base ne s'ouvre pas sur un enregistrement, une base s'ouvre et ensuite on ouvre un enregistrement depuis une table ou une vue.
Tu ne dis pas comment tu souhaites ouvrir l'enregistrement au hasard donc, j'ai supposé que tu voulais que cela se fasse depuis un formulaire.
Maintenant, si tu veux que l'éléatoire se fasse dans une requête, il faut transformer ce que je t'ai soumis en fonction et mettre cette fonction comme critère dans ta requête, ce qui donne alors:

Code :

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

1
2
3
SELECT Produits.[Réf produit], Produits.[Nom du produit]
FROM Produits
WHERE (((Produits.[Réf produit])=OpenAnyRecord()));

Donc tu peux écrire la fonction dans un module et l'exploiter comme ci-dessus:

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
32
Option Compare Database
Option Explicit
 
Function OpenAnyRecord() As Long
Const MY_QUERY = "SELECT * FROM Produits"
Dim lngAnyRecord As Long
Dim lngNBRecords As Long
Dim intAnyNumber As Integer
Dim oRS As DAO.Recordset
Dim strSQL As String
 
  Set oRS = CurrentDb.OpenRecordset(MY_QUERY, 2)
  With oRS
    If Not .EOF Then
      .MoveLast
      lngNBRecords = .RecordCount
      .Close
    End If
  End With
  Set oRS = Nothing
  Randomize
  intAnyNumber = Int((lngNBRecords * Rnd) + 1)
  strSQL = MY_QUERY & " WHERE [Réf produit] = " & intAnyNumber
  Set oRS = CurrentDb.OpenRecordset(strSQL, 2)
  With oRS
    If Not .EOF Then
      OpenAnyRecord = intAnyNumber
      .Close
    End If
  End With
  Set oRS = Nothing
End Function

Argy