For a Microsoft Access 97 version of this article, see
173006 .
173006 .
Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
Field Name | Data Type | Field Size |
---|---|---|
ID | Number | Long Integer |
Field1 | Text | 50 |
Field2 | Text | 50 |
Field3 | Text | 50 |
Field4 | Text | 50 |
Function Filler(lngNumRecs As Long)
Dim lngLoopCount As Long
Dim strFillerString As String
Dim db As Database
Dim rs As Recordset
strFillerString = ""
For lngLoopCount = 1 To 40
strFillerString = strFillerString & "x"
Next lngLoopCount
Set db = CurrentDb
Set rs = db.OpenRecordset("tblTable1")
For lngLoopCount = 1 To lngNumRecs
rs.AddNew
rs![ID] = lngLoopCount
rs![Field1] = strFillerString
rs![Field2] = strFillerString
rs![Field3] = strFillerString
rs![Field4] = strFillerString
rs.Update
Next lngLoopCount
db.Close
MsgBox "Process Completed."
End Function
?Filler(500000)
Keywords: kb, kbnofix, kberrmsg, kbbug, kbdatabase, kbjet, kbvba, kbarchive, kbsweptsoltax