Access: Massendaten zum Testen erzeugen

Listing 1 - Massendaten mit Datum und Zeit

Option Explicit
Const AnzahlZeilen = 10
Const minZahl = 0
Const maxZahl = 100
Const minDat = #1/1/1960#
Const maxDat = #1/1/2007#
Sub ErzeugeDaten()
Dim RS As Recordset
Dim dblDatum As Double
Dim dblZahl As Double
Dim lngZaehler As Long

'Zufallsgenerator initialisieren
Randomize Now()
'DAO-Schreib-Zugriff auf Tabelle
Set RS = CurrentDb.OpenRecordset( "tblMengen", dbOpenDynaset)
For lngZaehler = 1 To AnzahlZeilen
dblDatum = ((maxDat - minDat) * Rnd) + minDat
dblZahl = ((maxZahl - minZahl) * Rnd) + minZahl

'neuen Datensatz einfügen
RS.AddNew
RS.Fields("MDatum").Value = dblDatum
RS.Fields("MZahl").Value = dblZahl

' oder ganzzahlig bzw. ohne Uhrzeit
' RS.Fields("MDatum").Value = CLng(dblDatum)
' RS.Fields("MZahl").Value = CLng(dblZahl)

RS.Update
Next
End Sub