Office: Zufälliger Datensatz mit VBA

Hallo,

Mit dem folgenden Code soll aus der Abfrage1 per Zufall ein Datensatz ausgewählt werden.
(Der Datensatz wird dann in VBA weiterverarbeitet)
Der Zufallscode zeigt beim ersten Zugriff auf die Abfrage immer den gleichen Wert an (B4Zufall), bei weiteren Zugriffen klappt der Zufall.
Was kann ich tun, damit beim ersten „OpenRecordset("Select * From Abfrage1..“ verschiedene Datensätze angezeigt werden?

Vielen Dank für die Hilfe
Klaus


Private Sub Form_Open(Cancel As Integer)

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Randomize
Set rs = db.OpenRecordset("Select * From Abfrage1 ORDER BY Rnd([ID]);", dbOpenDynaset)

MsgBox rs![Feld1]

End Sub

:)

 

....
war Käse - man sollte erst lesen, dann schreiben .... *bawling

 

Code:

Es wäre natürlich sinnvoller, die tatsächlich beabsichtigte Verwendung zu sehen, da die Geschichte möglicherweise schöner zu lösen ist.

 

Hi Johnny,

die Lösung ist genial - Danke!

Gruß
Klaus