连续生成编号问题!

whyqwz

我有50张面值50元的电话卡，编号从365001到365050，如何能在窗体中输入开始编号365001，结束编号365050，面值50元，就实现在表中就自动的增加50个记录，编号从365001到365050，面值都是50元？

请指教！谢谢

xlonger

dao

sweetduck

使用记录集操作

设计三个文本输入框（格式为数值型）：开始编号，结尾编号，面值

一个命令按钮：添加新记录

Private Sub 添加新记录_Click()



For i = Me.开始编号 To Me.结尾编号

Dim m As Object

Set m = CurrentDb.OpenRecordset("表1")

m.AddNew

m("编号") = i

m("面值") = Me.面值

m.Update

Next

m.Close

End Sub

[此贴子已经被作者于2005-8-26 9:19:32编辑过]

CYH7201

版主的方法太好了,先学习一下.再收藏

whyqwz

这个办法真是好!谢谢!如果不用VB的方法,还有其他的办法吗?再次请指教!谢谢!![em01]

whyqwz

最近我在拼命的学习VB,现在已开始有点懂了楼上的意思了!谢谢!VB真是好东西![em07]

syyudi

我用insert into 折腾半天还没搞好，用sweetduck 代码一下就搞定了，非常感谢。

syyudi

有个新问题，如果想检查一下原数据表中是否有这些编号（可能是有一部分），没有的号码就加上，有就不加，该怎么做？谢谢。

sweetduck

Private Sub 添加新记录_Click()    Dim a, b

    a = Me.开始编号

    b = Me.结尾编号    Dim m As Object

    Set m = CurrentDb.OpenRecordset("表1")    Do While a <= b        If DCount("编号", "表1", "编号 ='" & a & "'") > 0 Then            a = a + 1        Else            m.AddNew

            m("编号") = a

            m("面值") = Me.面值

            m.Update            a = a + 1

            

        End If

        

    Loop    m.CloseEnd Sub

sweetduck

以编号排序就可以按顺序显示了