vba - vba - 在目标表中,查看最近追加的记录

145 5

我创建了一个追加查询,然后我希望新追加的记录显示(在目标表中完成ID自动编号)。

有没有办法(使用VBA )查看目标表中的最大ID号,运行附加查询,然后显示目标表中ID高于先前最大值的所有记录?

这是我的代码:


Private Sub Ctl310_apqry_Click()


Dim lngID As Long


lngID = Nz(DMax("ContractID","Contracts"), 0)


CurrentDb.Execute"310 apqry Add New Contract Records"


DoCmd.OpenTable"Contracts", acViewNormal, acEdit,"ContractID>" & lngID


End Sub



时间: 原作者:

129 5

是的,VBA可以查找最大ID(DMax()可以做到),运行追加查询,打开查询/表单/记录过滤到ID大于前一个最大ID的记录的报告。

非常简单例子的代码:


Dim lngID As Long


lngID = Nz(DMax("ID","tablename"), 0)


DoCmd.OpenQuery"queryname"


DoCmd.OpenForm"formname", , ,"ID>" & lngID



原作者:
...