Article ID: 173003
Article Last Modified on 1/20/2007
Table: tblASPTest
Field Name: MemoText
Data Type: Memo
Indexed: No
Option Explicit
Sub FillMemo()
Dim db As Database
Dim rs As Recordset
Dim intCount1 As Integer, intCount2 As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("tblASPTest")
With rs
.AddNew
![MemoText] = "A"
For intCount1 = 0 To 25
For intCount2 = 1 To 100
![MemoText] = ![MemoText] & Chr(intCount1 + 65)
Next intCount2
Next intCount1
.Update
End With
db.Close
End Sub
This procedure fills the memo field in the first record with 2601
characters.
Additional query words: prb memo
Keywords: kbprb KB173003