[求助]请教批量录入的问题

wuaza

试着做了一个，也是一个学习的过程。

Private Sub 增加产品_Click()
Dim rs As DAO.Recordset
Dim i As Integer
Set rs = CurrentDb.OpenRecordset("table")
For i = Me.序号始 To Val(Me.序号始) + Me.数量
    rs.AddNew
    rs("序号") = i
    rs.Update
Next i
rs.Close
Set rs = Nothing
End Sub

cnhbjm

你说的功能很容易，但你的表与录入窗体之间的关系好象不太好。

qw7912

谢谢大家，你们给我的例子我都实验了，有几个错误一会儿在说。

我现在就是说，我的产品编号是通过年月取的，并不是销售合同编号按年月编。cnhbjm你好象是通过合同编号来进行填写产品编号的。

所以这个我还是想问，怎样能用当前的年和月进行产品编号呢，而且保证这一个月里的编码不重复，头疼。

还有我把这个窗体作为子窗体如何呢，会不会有问题。！！帮忙，谢谢~

一点通

根据当月的合同编号情况自动添加编号,再根据数量分析结束的编号,整个过程都由程序自动完成

qw7912

[em02]谢谢就是这个样子的，仔细看看，谢谢！

qw7912

呵呵，不会判断如果字段重复怎么办。不想让他重复，如果重复提示是怎么做的。不好意思！

qw7912

[此贴子已经被作者于2005-12-2 8:32:02编辑过]

一点通

多看一下别人的例子,我每个环节都帮你做好,哪就达不到学习的目的了,当学到无法自己处理时再提出来问,我相信大家都会帮你的.

提个提示你,可以将某些控件失效,不让客户自己输入数据,或用DLookup()查找表中是否有对应的数据.

Dragxixi

来学习的，顶一顶！

qw7912

嘻嘻，我以为我问这个问题一点通会不理睬我呢，哈哈，谢谢。我已经用DLOOKUP（）来查找有无重复的记录了。我还想

问一个问题，就是这么多的函数，在我具体用的时候，应该用哪一个，这些函数关于他们具体的用法去哪里找好呢。[em08]

[此贴子已经被作者于2005-12-2 14:03:22编辑过]