Hai,
weiß jemand wie ich einen eintrag aus einer Access Datenbank per zufallsprinzip in Textfeld anzeigen lassen kann ???
(wie hier zufallszahl …
Text1.Text = Int((999999 - 0 + 1) * Rnd + 1)'zufallszahl erzeugen)
nur eben einen zufälligen eintrag aus einer Datenbank …
Text1.Text = …Data1 …
Hallo eigentlich ja ganz einfach.
Als ertes musst du die Grenze von Randomise festlegen, indem Du die Zahl der Datensätze (recordsets) einliesst. Mit recordsets.count, oder so.
Weiter übergibst Du nun die Zahl an Randomize, welche die Zufallszahl bestimmt. Die minimalzahl sollte dann nicht kleiner 1 sein.
Hast Du die Zufalszahl kreiert, so lese einfach der Datensatz mit der ID_Nummer der Zufalszahl ein. Mit OpenRedcordset(Tabelle)und FindFirst Field kommst Du dann an diesen Wert.
Grüsse Sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
Hai,
wo?
weiß jemand wie ich einen eintrag aus einer Access Datenbank
per zufallsprinzip in Textfeld anzeigen lassen kann ???(wie hier zufallszahl …
Text1.Text = Int((999999 - 0 + 1) * Rnd + 1)'zufallszahl
erzeugen)nur eben einen zufälligen eintrag aus einer Datenbank …
Text1.Text = …Data1 …
versuch’s mal damit …
Private Sub Command1\_Click()
Data1.Recordset.AbsolutePosition = Int(Rnd(1) \* \_
Data1.Recordset.RecordCount + 1)
Text1.Text = Data1.Recordset(0)
End Sub
Gruß, Rainer