窗体中同时添加多行记录到数据表

li　发表于：2013-10-23 19:20:52 　

上图中有前两行记录，我想一次性添加到一个对应的数据表中，请帮忙看看程序怎么写，主要是循环部分不太明白。
我自己写的添加两行有问题，程序如下：

Private Sub 添加1_2_Click()
Dim rst As New ADODB.Recordset
rst.Open "生产量临时表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.AddNew
rst.Fields(0) = Me.序列00
rst.Fields(1) = Me.序列01
rst.Fields(2) = Me.序列02
rst.Fields(3) = Me.序列03
rst.Fields(4) = Me.序列04
rst.Fields(5) = Me.序列05
rst.MoveNext
rst.Fields(0) = Me.序列10
rst.Fields(1) = Me.序列11
rst.Fields(2) = Me.序列12
rst.Fields(3) = Me.序列13
rst.Fields(4) = Me.序列14
rst.Fields(5) = Me.序列15
rst.Update
rst.Close
End Sub

Top

竹笛发表于：2013-10-23 22:41:24

直接用一个追加查询就可以完成了。感觉你搞复杂了。

Top

殷小宝发表于：2013-10-24 00:17:05

currentdb.execute "insert into 生产临时表（Field(0),Field(1),Field(2),Field(3),Field(4),Field(5)) vales('" & Me.序列00 &"'",'" & Me.序列01 &"'",'" & Me.序列02 &"'",'" & Me.序列03 &"'",'" & Me.序列04 &"'",'" & Me.序列05 &"'")"

删除多余的文本框，只要前6个即可，在添加按钮单击事件中加上以上代码。

Top

殷小宝发表于：2013-10-24 00:19:17

rst.AddNew
rst.Fields(0) = Me.序列10
rst.Fields(1) = Me.序列11
rst.Fields(2) = Me.序列12
rst.Fields(3) = Me.序列13
rst.Fields(4) = Me.序列14
rst.Fields(5) = Me.序列15
rst.Update
rst.Close

set rst =nothing
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

窗体中同时添加多行记录到数据表