access窗体命令代码的设计:表1和表2结构一样，（表2为备份表1的链接表）,每次在窗体中对表1
发布网友
发布时间：2022-04-23 22:42
共1个回答
热心网友
时间：2023-10-12 13:32
此方案基于两表的某个字段进行比对追加，这里假设比对字段名为pid,为命今按钮添加如下单击事件过程:
Private Sub Command2_Click()
Dim strSql As String
strSql="insert into 表2(*) select 表1.* from 表1 left join (select distinct pid from 表2)t on t.pid=表1.pid where t.pid is null;"
DoCmd.RunSql strSql
MsgBox "成功完成新纪录追加"
End Sub
请注意，如果表中含有自增id，上述代码中的两个*号必须逐个字段按表的字段顺序填写，而且不得包含自增id字段！
