【Access开发】一句代码实现追加了多少条记录

Hi，大家好呀！

这周还未给大家分享一些Access方面的内容，最近一直在忙着调整MRP的计算，需求的变更让人头疼，因为这里的计算大多都用到了SQL语句，所以今天就给大家分享分享SQL语句的小技巧。

1

创建表

我们在开始前，先做两个表，具体的表设计如下，如果你有现成的表，这一步可以跳过了。另一个表我们建一个相同结构的表，保存时，可以改一下表名，比如客户信息表2。

在创建完一张表后，可以适当的手工添加一些字段。

2

写代码

有了表，我们就可以来写代码了，代码比较简单，就是一句比较简单的追加语句，具体的如下，测试时，我们可以把代码放在按钮的单击事件里面：

    Dim SQL As String

    Dim K As Long

    SQL = "insert into 客户信息表2(客户代码, 客户名称, 客户简称, 备注)SELECT 客户代码, 客户名称, 客户简称, 备注 FROM 客户信息表"

    CurrentProject.Connection.Execute SQL, K

    MsgBox "追加了【" & K & "】条记录！", vbInformation

3

测试

最后，就是测试使用，让我们来试一下。

效果还是不错的，我们知道了这个写法后，在一些应用场景下，就可以知道追加了多少条记录了，大家快去试一下吧。

大家都看到这里了，那还不给我一个一键三连！