使用循环使用Access VBA填充Word表单

Question

我使用代码使用Access打开Word文档，然后填写表单字段 我对代码没有任何问题，但我想更改它，以便文本框采用多个ID（每行中的ID）并在每个代码上执行其余代码，   我已经尝试过斯普利特和我通过搜索找到的其他东西，但我没有成功    我已尝试添加代码，以便在填写字段后自动保存表单，是否可以使用多个ID？
       这是我使用atm的代码：

Dim appWord As Word.Application
Dim doc As Word.Document
On Error Resume Next
Err.Clear
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set appWord = New Word.Application
End If
Set doc = appWord.Documents.Open("C:\Users\" & Environ$("Username") & "\Desktop\Form.doc", , True)
With doc
.FormFields("Text4").Result = DLookup("[Name]", "[Que]", "[Qu]![ID] =" & [ID2])
appWord.Visible = True
.Activate
End With
Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
 MsgBox Err.Number & ": " & Err.Description
End Sub

编辑：使用

对其进行操作

Split(ID2.Value, ",")   

但是，我尝试在每个新行之后将其拆分，但我仍然无法弄明白。
我尝试了Enviroment.NewLine，vbCrLf，vbCr，vbNewLine和vbLf。他们都没有工作

Answer 1

Split(ID2.Value, vbCrLf )      

工作得很好！ 之后，您可以使用Ex（0），Ex（1）等调用字符串。