这个问题可能已经被问过数百次了,但我似乎很难找到一个现有的问题来解决我的情况。
我的问题是如何访问位于表的最后一条记录中的主键值?例如,如果这是我的表:
WO编号 | 帐户名称 |
---|---|
WO1001 | 乔的食品市场 |
WO1002 | 家庭食品 |
WO1003 | 乡下人烟草 |
从表单中,当我选择“添加记录”时,我想访问值“WO1003”(然后能够向其中添加一个)。我发现了一些接近的东西,但它改变了最后一个值,它不会在新记录中使用它。因此,需要明确的是 - 使用上表,我想从我的表单创建一条新记录,其主键值为“WO1004”,但我正在努力弄清楚如何将新主键添加到新记录中。
我发现接近的代码是:
Dim rs As Recordset
'Query the last value, get the WONumber
Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 WONumber FROM tblWorkOrders ORDER BY WONumber DESC")
'Open it up for editing
rs.Edit
'Increment the number by 1
rs.Fields("WONumber").Value = Left(rs.Fields("WONumber").Value, 2) & CInt(Mid(rs.Fields("WONumber").Value, 3, Len(rs.Fields("WONumber").Value) - 2)) + 1
'Update the recordset
rs.Update