1

我有一个用 Microsoft Access 2010 编写的数据库应用程序。除此之外，它有两个相关的表：“订单”，其中包含有关订单的通用信息的条目，以及“框架订单”，其中包含有关特定类型订单的信息。它们由“OrderID”链接，这是“Orders”表的主键。

数据库分为前端和后端，所以这些是链接表。

这是用于创建一个全新的 Order 的代码，其中 FrameOrder 链接回它：

Private Sub FramingQuoteButton_Click()
    ' Create a new Order of type Framing, then create a Framing Order linking back to it
    Dim rs As DAO.Recordset
    Dim frs As DAO.Recordset
    Dim ThisOrderID As Long
    Dim ThisFrameOrderID As Long

    Set rs = CurrentDb.OpenRecordset("Orders")
    rs.AddNew
    rs!OrderType = "FRAME"
    rs!CustomerID = DefaultCustomerID()
    rs.Update
    rs.Bookmark = rs.LastModified
    ThisOrderID = rs!OrderID
    rs.Close

    Set frs = CurrentDb.OpenRecordset("FrameOrder")
    frs.AddNew
    frs!OrderID = ThisOrderID
    frs.Update <<<< This is where the problem shows up
    frs.Bookmark = frs.LastModified
    ThisFrameOrderID = frs!FrameOrderID
    frs.Close

    DoCmd.OpenForm "FrameOrder", , , "OrderID = " & ThisOrderID, , , "NEW"

    Set rs = Nothing
    Set frs = Nothing
End Sub

所以首先我创建了一个全新的“订单”条目。然后我创建一个“FrameOrder”条目并将“OrderID”设置为我刚刚创建的“Order”的主键。

这就是问题所在：有时当我这样做时，上面显示的更新行会引发一个关键错误。当我在调试器中查看它时，似乎 frs.AddNew 调用生成了一个记录，其键是现有记录的键，位于表中间的某个位置！如果我在后端执行“压缩和修复数据库”，问题就会消失。

由于这个应用程序还在开发中，所以我经常将前后端文件复制到开发系统中，做一些工作，然后将它们复制回生产系统。这个问题在我完成这样的复制后最常出现（是的，我确保在复制之前关闭数据库）。

任何想法可能会发生什么？

谢谢！

4

1 回答 1

0

我建议刷新链接表，有时如果数据结构发生变化，这些变化不会传播到前端，就会出现这样的问题。我希望这行得通。

于 2013-02-22T15:51:11.033 回答