1

我有 2 张桌子：

tblInvoice (InvoiceID (pk), Invoice)

tblLineItem (LineItemID (pk), InvoiceID)

我有两种形式“主菜单”和“商店”。在“主菜单”窗体中，当您单击 btnNext 时，它将为 tblInvoice 中的 InvoiceID 生成自动编号，然后转到“商店”窗体。在“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

我还在以下链接中提供了数据库： https ://drive.google.com/file/d/0Bye-M8FI1tRUdHU3QkxsUFhNNnc/view?usp=sharing

4

1 回答 1

1

您可以使用一个 MAX 函数。假设具有自动编号的字段名为 ID：

SELECT Max([ID]) FROM [Table]
于 2015-08-18T19:15:12.773 回答