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