2

我正在尝试编写一个函数来检查库存表中的最小值，然后如果该值低于最小值，则生成并发送购买请求。

如果满足条件，则运行如下所示的附加 sql 语句。

DoCmd.RunSQL "INSERT INTO [table1]('field 1', 'field 2')" & _
             "VALUES ('value 1', 'value 2')"

我附加的链接表使用自动编号字段作为主键，我需要引用它的值来链接所请求的各种项目。我不知道如何存储为新记录生成的自动编号。我觉得我错过了一些非常简单的东西，但我的搜索都没有带来任何东西。

我希望能够编写如下第二条语句，其中包含自动编号值。

DoCmd.RunSQL "INSERT INTO [table2]( 'ID' , 'field 3')" & _
             "VALUES (" & TempVars!autonumber & ", 'value 3')"
4

2 回答 2

2

当您从此处获取值时，请使用DAO.Database对象变量来执行您的INSERT和再次执行SELECT @@identity 。这里的关键是对两者使用相同的Database变量。如果您尝试SELECT @@identity从CurrentDb（而不是Database对象变量）获取，您检索的值将始终为零。

我在 Access 2010 中测试了这段代码。

Dim db As DAO.Database
Dim strInsert As String

Set db = CurrentDb
strInsert = "INSERT INTO [table1]([field 1], [field 2])" & vbCrLf & _
    "VALUES ('value 1', 'value 2')"
db.Execute strInsert, dbFailOnError

TempVars.Add "itemNum", db.OpenRecordset("SELECT @@identity")(0).Value
MsgBox "TempVars!itemNum: " & TempVars!itemNum
于 2015-09-30T00:56:19.687 回答
0

所以事实证明我使用了错误的搜索词。

SELECT @@identity FROM table1应该可以正常工作。

事实证明，尽管我仍然需要将@@Identity 存储为变量，以便它可以用作将来循环的sql“插入”。

下面的片段是我拼凑的，但它告诉我 recSet!answer 在这个集合中找不到。

    Dim recSet As DAO.Recordset
    Set recSet = CurrentDb.OpenRecordset("SELECT @@identity")

    TempVars.Add "itemNum", recSet!answer

    recSet.Close
    Set recSet = Nothing

我已将我的代码更新为以下

Dim recSet As DAO.Recordset
Set recSet = CurrentDb.OpenRecordset("SELECT @@identity")

Dim test As Long
test = recSet.Fields(0).Value
Debug.Print test

recSet.Close
Set recSet = Nothing

现在它返回一个值，但该值始终为“0”。它似乎没有获取输入上一条记录时生成的自动编号。

于 2015-09-19T00:42:28.357 回答