如何根据起始号一下子递增多条记录？

不务实　发表于：2010-11-25 12:25:45 　

复制

比如窗体上两个文本框，一个是用于支票开始号文本框A，一个用于记录条数文本框B，我想建个按钮事件一下子向支票登记表添加多条自动递增支票号码的记录

如支票开始号这ABC000001，要增加50条记录，那么50条记录为

ABC000001

ABC000002

ABC000003

......

ABC000050

Top

煮江品茶发表于：2010-11-25 16:27:33

dim i as long

dim str as string

for i=1 to 50

str="AbC" & format(i,"000000")

'写一条向支票表中的追加查询

Top

曹光耀发表于：2010-11-25 21:44:58

按钮事件代码:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim i As Integer
Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from 表1"
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i = 0 To Me.Text1 - 1
    rs.AddNew
    rs![支票号] = "ABC" & Right("000000" & Right(Me.Text0, 6) + i, 6)
    rs.Update
Next
Me.Child0.Form.Requery
rs.Close
Set rs = Nothing

Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub

点击下载此附件

Top

羽扇子君发表于：2010-11-27 03:25:51

http://www.accessoft.com/blog/article-show.asp?userid=15117&Id=4970

Top

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

Access交流中心

如何根据起始号一下子递增多条记录？