我如何确定下一个记录号（PK）是什么？

Question

我试图以编程方式获取主键的自动编号序列中的下一个数字。例如，如果表中的最后一个数字是 10，我需要它返回 11。以前，我会使用类似的内容：

docmd.RunCommand acCmdRecordsGoToNew

为了告诉数据库转到下一条记录，然后我将它分配给表单上的控件向用户显示他们当前正在输入的记录。问题是，当我通过在属性窗口中将其属性设置为“否”来禁用导航按钮时，此功能停止工作。如何在不启用导航栏的情况下获取 vba 中的下一条记录？

Answer 1

要知道真正的下一个值是什么，您必须查找自动编号列的 SeedValue。此代码的作用是：

  Public Function GetSeedValue(strTable As String, strColumn As String) As Long
    Dim cnn As Object 'ADODB.Connection
    Dim cat As Object ' New ADOX.Catalog
    Dim col As Object ' ADOX.Column

    Set cnn = CurrentProject.Connection
    Set cat = CreateObject("ADOX.Catalog")
    cat.ActiveConnection = cnn

    Set col = cat.Tables(strTable).Columns(strColumn)
    GetSeedValue = col.Properties("Seed")

    Set col = Nothing
    Set cat = Nothing
    Set cnn = Nothing
  End Function

如果您要经常调用它，您可能希望缓存 ADOX Catalog 对象变量，而不是每次调用此函数时都重新初始化它。

请注意，在多用户环境中，这可能准确，也可能不准确，因为当您使用它时，它可能已被其他用户更新。但是，它不存在跳过 Max()+1 可以具有的自动编号值的问题。

但请记住，如果您关心下一个自动编号值，则意味着您使用错误。自动编号值是代理键，您永远不应该关心这些值是什么。

Answer 2

结果发现有一个 VBA 函数可以与数据库交互并实际返回一个值。这就是我最终为获得下一个记录而所做的事情：

Dim nextRecord As Integer
nextRecord = DMax("ID", "my_table") + 1

草率，但对我的单一客户情况​​有效。还有一个可以应用的 where 子句：

Dim nextRecord As Integer
nextRecord = DMax("ID", "my_table", "field =  value")