将表单框中的值插入表的最后一条记录

时间:2018-12-20 15:36:21

标签: sql-server-2008 access-vba ms-access-2016

我有一个非常大的子例程,该例程打开表单并将值插入文本框并保存更改。它可以工作,但是会将这些值插入随机行,而不是表中的最新记录。我还尝试了执行相同操作(通过VBA和常规SQL查询)的INSERT INTO VALUES查询。是否可以将这些值添加到相应表的最后/第一行?主键是自动编号。

DoCmd.OpenForm "dentalheader", acNormal , , , , acHidden
    Forms!dentalheader!yeartype.Value = "Benefit"
    Forms!dentalheader!term.Value = "80"
    Forms!dentalheader!personmax.Value = "99999"

INSERT INTO dentalheader (each, overallmax, personmax,) 
VALUES (true, '10000', '99999', )

1 个答案:

答案 0 :(得分:0)

添加日期时间字段并立即插入:

INSERT INTO dentalheader (timestamp, each, overallmax, personmax) 
VALUES (Now(), true, '10000', '99999' )

然后为了显示,按时间戳排序。