MS Access将表格复制到另一个表格VBA代码

我有一个问题，我需要为ms access 2016创建vba代码，该代码将使用

如果表2中有重复项，它将显示一条关于重复项的消息以及一个是否继续或中止的问题

我有这个vba代码，但我不知道如何将其转换为我想要的工作方式 我在图像上看到了这个错误

---

若要使用串联和行连续字符，那个么实际上应该在下一行继续

表名具有特殊字符。使用

[]

进行定界。可以简化SQL语句

未看到声明和设置的

db

变量。不需要一次性使用。应声明

rs

变量

Dim rs As DAO.Recordset
strSQL = "SELECT Count(*) AS Duplikaty" & _ 
          " FROM Główna" & _ 
          " GROUP BY [Data/Godzina]" & _ 
          " HAVING Count(*)>1"
Set rs = CurrentDb.OpenRecordset(strSQL) 
If rs.RecordCount = 0 Then strSQL = "INSERT INTO Główna" & _
         " SELECT Tymczasowa.*" & _
         " FROM Tymczasowa"

---

建议不要在命名约定中使用标点符号/特殊字符。

如果使用计数，即使计数为0，也会得到1条记录。应该将错误消息作为相关文本而不是图像发布。相关的2条rs记录集行不在图像代码中-为什么？

Dim rs As DAO.Recordset
strSQL = "SELECT Count(*) AS Duplikaty" & _ 
          " FROM Główna" & _ 
          " GROUP BY [Data/Godzina]" & _ 
          " HAVING Count(*)>1"
Set rs = CurrentDb.OpenRecordset(strSQL) 
If rs.RecordCount = 0 Then strSQL = "INSERT INTO Główna" & _
         " SELECT Tymczasowa.*" & _
         " FROM Tymczasowa"