Access: Massendaten zum Testen erzeugen

Listing 2 - Einfachen Text erzeugen

Option Explicit
Const AnzahlZeilen = 10
Const maxZchnGesamt = 50

Sub ErzeugeDaten()
Dim RS As Recordset
Dim strText As String
Dim lngZaehler As Long
Dim intAnz As Integer

'DAO-Schreib-Zugriff auf Tabelle
Set RS = CurrentDb.OpenRecordset( "tblMengen", dbOpenDynaset)
For lngZaehler = 1 To AnzahlZeilen
strText = vbNullString
For intAnz = 1 To Int(maxZchnGesamt * Rnd)
strText = strText & HolDasZeichen()
Next
'neuen Datensatz einfügen
RS.AddNew
RS.Fields("mText").Value = strText
RS.Update
Next
End Sub

Function HolDasZeichen() As String
HolDasZeichen = ((Asc("A") - Asc("z") - 1) * Rnd) + Asc("z") + 1
HolDasZeichen = Chr(HolDasZeichen)
End Function