主题：如何实现扫描枪增加行

希望在扫描枪扫描完条码后发现已经是最后一行的时候自动增加一个新行。

在KEYPressEdit里用

If e.Col.name = "条码" Then '如果输入的是条码
    If e.Text.Length = 13 Then '输入内容的长度达到13
        Tables("表名").AddNew()   
End If
End If

这个只能实现第一次输入的时候增加行数，第二次再输入就无法增加行了。。

请指教，感激涕零！！

哥 您这个东西是至少需要商业版才能打开的。。。。

我这小菜鸟用的是测试版的，能观摩吗