问一下accessVBA里面，怎么实现换行，比如一个文本框，text1.value=”2015张

我写了一段代码，把这段代码复制到你要实现功能的表里：Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i As IntegerFor i = 3 To Range("a2").ValueIf Range("a" &i).Value "" ThenRange("A" &i).Insert Shift:=xlToRightEnd IfNextEnd Sub该代码从第三行开始实现该功能，你可以在A2单元格里面输入你要实现该功能的最后一行行数，如10，参见下图

ACCESS表在数据表视图下，单元格内容默认就是自动换行显示的，没有像Excel一样有关于是否自动换行的设置。但由于access表的行距不能像excel那样自动调整行高，所以通常只能看到第一行。

解决方法：

如上图，为了方便直接在数据表中阅读数据，你可以手动将行距拉高，未显示的字符将自动换行显示；

数据表中也可以手动对内容换行，简单的做法是用ctrl+enter插入换行符。

提示：在VBA中更改数据时，若要存储换行符，使用char（13）是起不到换行作用的，用char（10）。

称设置文本框 的属性 Scrollbars为 vertical为垂直。然后允许多行，并设置Enter回车键的行为（Access设置为文本中新行即可）

1，设置文本框Multiline = true

2，设置文本框Wordwarp = true

2，设置文本框Enterkeybehavior= true

读取每行的值

只有在MuiltLine属性为True的前提下TextBox才有多行，由于在这个控件中输入文本时换行是Ctrl+Enter实现的，所以用Split(TestBox.Value,Chr(10))就可以分割文本并保存在数组中：

Private Sub TextBox1_LostFocus()

If Len(TextBox1.Value) >0 Then

arr = Split(TextBox1.Value, Chr(10))

'激活下面的语句可以在A列显示数组arr

'Range("a1").Resize(UBound(arr) + 1) = Application.WorksheetFunction.Transpose(arr)

End If

End Sub

---