关于多表录入防止重复的问题咨询

时　间:2015-11-20 15:38:45
作　者:张刚   ID：44716  城市：奉贤
摘　要:防止重复录入及执行已有的查询代码
正　文:

If DCount("*", "产品信息", "产品图号='" & Me.产品图号 & "'") > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub

     End If

翻译一下：

If DCount("*", "表名", "字段1='" & 当前窗体字段1 & "'"      ) > 0 Then
         MsgBox "此数据已录入,请不要重复添加!"
         Exit Sub

     End If

 DoCmd.OpenQuery "查询名称"

----------------------------------------------------------------------------------------------------------------

我的问题是，我有好7个字段一样的表暂且叫做分表吧，这样的话代码里面的表名应该怎么写？

或者换个说法就是如何在录入的时候检索在这些表里面字段Barcode是否有重复？