从另一个 table 获取最新的自动编号字段

Question

我有 2 个表：

tblInvoice（发票 ID（pk），发票）

tblLineItem (LineItemID (pk), InvoiceID)

我有 2 个表单 "Main Menu" 和 "Shop." 在 "Main Menu" 表单上，当您单击 btnNext 时，它将在 tblInvoice 中为 InvoiceID 生成自动编号，然后转到 "Shop"表格。在 "Shop" 表单上，我有一个名为 txtLineItem 的文本框，我在其中输入行项目，当我单击 btnRecord 时，我希望它使用 tblInvoice 中的最新 InvoiceID。我无法让 btnRecord 工作，而且我不太确定如何在 tblInvoice 中获取最新的自动编号。任何帮助或建议都会很棒。提前致谢。

这是我的 btnRecord 代码：

Private Sub btnRecord_Click()
    DoCmd.SetWarnings False
    Set Recordset = CurrentDb.OpenRecordset(Invoice)
    InvoiceID = CLng(Recordset(InvoiceID))

    DoCOmd.RunSQL "INSERT INTO [tblLineItem] (InvoiceID) VALUES (' & Now(InvoiceID) & ')"
    DoCmd.RunSQL "INSERT INTO [tblLineItem] (LineItemID) VALUES ('" & txtLineItem & "')"
    DoCmd.SetWarnings True
End Sub

我也在下面link提供了数据库： https://drive.google.com/file/d/0Bye-M8FI1tRUdHU3QkxsUFhNNnc/view?usp=sharing

Answer 1

您可以使用 MAX 函数。假设带有自动编号的字段被命名为 ID:

SELECT Max([ID]) FROM [Table]

从另一个 table 获取最新的自动编号字段

Getting the most recent autonumber field from another table

sql

ms-access

vba

autonumber