我喜欢其他答案中建议的使用自动编号字段的想法。
但是，如果您希望避免使用自动编号，则可以从Excel中的VBA使用Access的DLookup函数：
rs.AddNewrs.Fields("CustomerID") = Access.DLookup("Max(CustomerID)", "Customer") + 1...rs.Update假设您的基本表是
Customer。
您必须在“工具”->“引用”中添加对Microsoft Access的引用
我喜欢其他答案中建议的使用自动编号字段的想法。
但是，如果您希望避免使用自动编号，则可以从Excel中的VBA使用Access的DLookup函数：
rs.AddNewrs.Fields("CustomerID") = Access.DLookup("Max(CustomerID)", "Customer") + 1...rs.Update假设您的基本表是
Customer。
您必须在“工具”->“引用”中添加对Microsoft Access的引用
名师互学网 版权所有 (c)2021-2022 ICP备案号：晋ICP备2021003244-6号
