comment faire pour que dans un formulaire acces je puisse=20
afficher des donn=E9es d'un champs d'une table de fa=E7on=20
al=E9atoire.
merci de me fournir la fonction et si possible un exemple
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Le code qui suit devrait te convenir, il te permettra de retourner la valeur d'un champ d'une table en fonction du numéro d'enregistrement qui lui sera aléatoire...
Pour l'utiliser, tu peux par exemple créer une zone de texte dans ton formulaire avec comme source contrôle :
=ValueFieldRnd("TaTable";"TonChamp")
***************************************************** Function ValueFieldRnd(strTable As String, strField As String)
Dim rst As Recordset Dim lngRecord As Long
Set rst = CurrentDb.OpenRecordset(strTable, dbOpenDynaset)
With rst .MoveLast lngRecord = .RecordCount .MoveFirst .Move Int(lngRecord * Rnd + 1) ValueFieldRnd = .Fields(strField) End With
rst.Close: Set rst = Nothing
End Function *****************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "GEO" a écrit dans le message news: 13fca01c417e6$7b9473e0$ bonjour,
comment faire pour que dans un formulaire acces je puisse afficher des données d'un champs d'une table de façon aléatoire. merci de me fournir la fonction et si possible un exemple
Bonjour
Le code qui suit devrait te convenir, il te permettra de retourner
la valeur d'un champ d'une table en fonction du numéro d'enregistrement
qui lui sera aléatoire...
Pour l'utiliser, tu peux par exemple créer une zone de texte dans ton
formulaire avec comme source contrôle :
=ValueFieldRnd("TaTable";"TonChamp")
*****************************************************
Function ValueFieldRnd(strTable As String, strField As String)
Dim rst As Recordset
Dim lngRecord As Long
Set rst = CurrentDb.OpenRecordset(strTable, dbOpenDynaset)
With rst
.MoveLast
lngRecord = .RecordCount
.MoveFirst
.Move Int(lngRecord * Rnd + 1)
ValueFieldRnd = .Fields(strField)
End With
rst.Close: Set rst = Nothing
End Function
*****************************************************
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"GEO" <anonymous@discussions.microsoft.com> a écrit dans le message news:
13fca01c417e6$7b9473e0$a601280a@phx.gbl...
bonjour,
comment faire pour que dans un formulaire acces je puisse
afficher des données d'un champs d'une table de façon
aléatoire.
merci de me fournir la fonction et si possible un exemple
Le code qui suit devrait te convenir, il te permettra de retourner la valeur d'un champ d'une table en fonction du numéro d'enregistrement qui lui sera aléatoire...
Pour l'utiliser, tu peux par exemple créer une zone de texte dans ton formulaire avec comme source contrôle :
=ValueFieldRnd("TaTable";"TonChamp")
***************************************************** Function ValueFieldRnd(strTable As String, strField As String)
Dim rst As Recordset Dim lngRecord As Long
Set rst = CurrentDb.OpenRecordset(strTable, dbOpenDynaset)
With rst .MoveLast lngRecord = .RecordCount .MoveFirst .Move Int(lngRecord * Rnd + 1) ValueFieldRnd = .Fields(strField) End With
rst.Close: Set rst = Nothing
End Function *****************************************************
-- @+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "GEO" a écrit dans le message news: 13fca01c417e6$7b9473e0$ bonjour,
comment faire pour que dans un formulaire acces je puisse afficher des données d'un champs d'une table de façon aléatoire. merci de me fournir la fonction et si possible un exemple
