按输入编号批量添加相近记录-trynew
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


按输入编号批量添加相近记录

发表时间:2009/9/4 10:37:31 评论(0) 浏览(6470)  评论 | 加入收藏 | 复制
   
摘 要:在窗体文本框中输入数字1,3,6-9,11-13,25(英文输入时的逗号)。

如何设计,当按下按钮时,把以上数字批量添加到表中的编号字段?

正 文:

点击下载此附件

我们在输入记录时,有很多记录是相近的,可能仅是编号或编码不同而已,比如设备管理系统中有很多同类设备。如何能快速同时录入多条相近的记录呢?比如在在窗体文本框中输入数字1,3,6-9,11-13,25(英文输入时的逗号)当按下按钮时,把以上数字批量添加到表中的编号字段?

方法不难,主要是拆分字符串的处理,然后构造循环进行记录添加(这里使用DAO,也可以使用其他调价记录的方法)。第一个循环是拆分“,”,第二个循环是生成“-”构成的多条记录。加上错误处理和IsNumeric检查函数是防止没有输入数据或非数字字符产生错误。

另外,如果想要编号前后有字符串,可以再加入一些处理即可,比如用“:”来分隔。其他需要添加的字段,用ADO语句相应增加即可。关于其他快速录入的方法,可参考我以前发布的响应文章。

代码如下:

Private Sub Command2_Click()
On Error GoTo Err
Dim i As Integer, j As Integer, strTemp As String, rst As dao.Recordset
Set rst = CurrentDb().OpenRecordset("表1")
For i = 0 To UBound(Split(Text0, ","))
    strTemp = Split(Text0, ",")(i)
    If UBound(Split(strTemp, "-")) > 0 Then
        For j = Split(strTemp, "-")(0) To Split(strTemp, "-")(1)
            rst.AddNew
            rst!编号 = j
            rst.Update
        Next
    Else
        If IsNumeric(Split(strTemp, "-")(0)) Then
            rst.AddNew
            rst!编号 = Val(Split(strTemp, "-")(0))
            rst.Update
        End If
    End If
Next
Err:
End Sub

作者相关文章:快速录入多条相似记录按组合添加多条记录


Access软件网交流QQ群(群号:198465573)
 
 相关文章
批量设置控件事件代码用模块实现单击组合框自动下拉和双击选择下一值  【叶海峰  2012/9/19】
批量打印工作证示例,工作证报表打印,带照片的工作证标签打印,工作牌...  【听风  2012/11/30】
【源码示例】批量移动文件夹到指定文件夹  【天外流星  2013/4/12】
【Access小品】替换批量Word文件中的字符串示例  【煮江品茶  2013/4/27】
[ADO教程]用ADO进行切断式操作批量更新  【漏蛧尐魚℡  2013/5/11】
 
 访客评论
总记录:0篇  页次:0/0 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

trynew

文章分类

文章存档

友情链接