1

我对数据库设计比较陌生，但我有 4-6 年的编程经验（主要是 Java）。我能够设计一个已经运行良好的数据库，即使在网络上也是如此。它分为后端和前端，每个用户都有一份 FE。我使用 DMax 来设置订阅者的 ID，因为每个订阅者都需要一个唯一的、连续的 ID。

我唯一的问题是，当用户同时添加订阅者时，它只会保存最后一次添加。有没有办法在一个用户添加信息（使用 VBA）时锁定链接表？

如果可能，其他用户能否验证该表是否已锁定？

谢谢！

编辑：

这是生成数字的代码。它还检查连续中是否有空格（例如，如果有 5、6、8，它会变成 7）。

            Dim counter As Integer
            counter = 1
            Dim validation As Boolean
            validation = False
            max = Nz(DMax("Numero", "Inscripciones"), 0) + 1
            While validation = False
                If Not IsNull(DLookup("[Numero]", "Inscripciones", "[Numero] = " & Nz([counter], 0))) Then
                    If (counter <= max - 1) Then
                        counter = counter + 1
                    Else
                        validation = True
                    End If
                Else
                    validation = True
                End If
            Wend

在按下按钮之前，不会以任何方式保存记录。在我保存记录之前，这个数字生成发生了 5 条指令。

4

2 回答 2

1

这并不能直接回答您的问题。但是在循环中找到第一个丢失的数字是非常低效的，尤其是在已经存在许多连续数字的情况下。

例如，如果表格有数字 1..200，您的代码将调用DLookup200 次。使两个实例更有可能同时运行此循环并得出相同的结果。

相反，使用这样的 SQL 查询来查找第一个丢失的数字：

SELECT MIN(i1.Numero + 1) AS Missing
FROM Inscripciones i1
  LEFT JOIN Inscripciones i2
    ON i2.Numero = i1.Numero+1
WHERE i2.Numero IS NULL

（改编自这里）

这将运行得非常快。在保存记录之前把它放在正确的位置，碰撞的机会将非常小。如果由于重复号码而发生错误，请捕获错误并重新运行查询。

请注意，此查询不会找到缺少的数字 1。如果这是相关情况，请单独检查。

于 2017-04-24T22:48:23.417 回答
0

你没有解释你在哪里/如何使用那些效率极低和浪费的代码或关于你的表单的很多其他内容，所以我将不得不使用我的水晶球并提供一个可行的解决方案。使用记录锁设置为无的绑定表单，在 before_update 事件中，添加以下内容：

If Me.NewRecord Then
numero = nz(dmax("[Numero]", "Inscripciones"), 0) + 1
End If

编号出现空白的唯一方法是删除记录。如果这将是一个问题，您应该使用一个计数表。

于 2017-04-24T22:44:42.933 回答