一次添加多个记录

runkingamw

请各位大侠帮忙
我想做一个一次能添加多个记录的是窗体，但不知道代码怎么写
请大侠帮忙

roych

我把你的窗体设置为不绑定了。设置为绑定，常常会出现很多问题。。。
看看是不是这样？

如果不想追加空值，可以把里面的代码改为以下代码：

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

复制代码

ycxchen

下载学习！

13555609005

下载学习！

runkingamw

谢谢大侠的帮助

cathy_xia

学习......