窗体中如何一次性在同一表中分多条写入

Access中国里有一个例子：

http://www.access-cn.com/forum.php?mod=viewthread&tid=96184&page=1#pid584057

你下载下来修改一下就好了：

Private Sub Command57_Click()
DoCmd.SetWarnings False
If Not IsNull(Me.Txt_日期) And Not IsNull(Me.Txt_姓名) And Not IsNull(Me.Txt_房号) Then
For i = 1 To 6
If Not IsNull(Me.Controls("txt_款项" & i)) And Not IsNull(Me.Controls("txt_金额" & i)) And Not IsNull(Me.Controls("txt_收据号" & i)) Then
SQL = "Insert Into 付款明细(日期,房号,姓名,款项名称,金额,备注,收据号) values(#"
SQL = SQL & Me.Txt_日期 & "#,'" & Me.Txt_房号 & "','" & Me.Txt_姓名 & "','" & Me.Controls("txt_款项" & i) & "'," _
& Me.Controls("txt_金额" & i) & ",'" & Me.Controls("txt_备注" & i) & "','" & Me.Controls("txt_收据号" & i) & "')"
'Debug.Print SQL
DoCmd.RunSQL (SQL)
End If
Next i
MsgBox "添加成功，空值将不会被追加", vbInformation + vbOKOnly, "成功提示"
Else
MsgBox "您没有输入相关选项", vbInformation + vbOKOnly, "出错提示"
Exit Sub
End If
End Sub