Discussion :

[uloaccess]

Bonsoir,
J'ai une table qui reçoit des données de type string.
J'aimerais pouvoir faire un tirage sur l'ensemble des données de cette table.
Sur la FAQ, j'ai eu ce lien: http://access.developpez.com/faq/?pa...#TrierAleatTbl
mais il me semble incomplet à moins d'avoir leilleure offre .
Merci

[charleshbo]

que veux-tu faire...? trier ta table aléatoirement ou sortir un unique enregistrement aléatoirement de ta table???

[uloaccess]

Salut,
OUI, Sortir un unique enregistrement de la table aléatoirement
Merci

[charleshbo]

je ne sais pas s'il existe des fonctions dans le genre RANDOM pour vba... il faudrait que tu cherches un peu la dessus... tes enregistrements ont-ils des numéros comme clé primaire admettons... (sinon je me demande bien sur quoi tu pourrais chercher... fais moi dont une liste des champs de ta table... décris un peu plus mets de l'info...)

[uloaccess]

Salut,
Table1:
Chp1 (texte) Clé primaire
Table2:
Chp1 (NumAuto) Clé primaire
Chp2 (Texte)

Le but est d'afficher un unique enregistrement de Table2 après avoir choisir la donnée de Table1.
Voilà.

[random]

peut être ?

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
 
Function alleza(matable As String, monchamp As String) As String
Dim mabase As DAO.Database
Dim monrecord As DAO.Recordset
Dim ou As Long
Dim sql As String
Set mabase = CurrentDb()
ou = DCount(monchamp, matable)
Randomize
ou = Int(Rnd() * ou) + 1
sql = "SELECT TOP " & ou & " " & monchamp & "  FROM " & matable & " ORDER BY " & monchamp & " ;"
Set monrecord = mabase.OpenRecordset(sql)
monrecord.MoveLast
alleza = monrecord(monchamp)
Set mabase = Nothing
End Function

[random]

regarde à sériedate ou date dans l'aide

[Tofalu]

regarde à sériedate ou date dans l'aide

Tu te serait pas trompé de post

[random]

tofalu: si absolument mais il n'y a pas de fonction effacer un post

[uloaccess]

Salut,
Toujours perdu
J'ai copier la fonction proposée par Random, mais je bute toujours pour afficher l'element tri dans une zone de texte.
J'ai le message d'erreur: Argument non facultatif.
Comment permettre à une zone de texte txt1 d'afficher la donnée de la table matable prise aléatoirement par la fonction proposée. : :
Merci.

[random]

il faut appeler la fonction depuis la zone de texte