Question

我有两张桌子：

tblInvoice（InvoiceID（pk），Invoice）

tblLineItem（LineItemID（pk），InvoiceID）

我有两种形式＆＃34;主菜单＆＃34;和＆＃34;购物。＆＃34;在＆＃34;主菜单＆＃34;表单，当您单击btnNext时，它将在tblInvoice中为InvoiceID生成自动编号，然后转到＆＃34; Shop＆＃34;形成。在＆＃34; Shop＆＃34;表单，我有一个名为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

Answer 1

您可以使用MAX功能。假设具有自动编号的字段名为ID：

SELECT Max([ID]) FROM [Table]

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

1 个答案: