Question

我正在构建一个表单，以便将新的序列ID添加到我的数据库中。我们收到一张纸，扫描2个条形码，就是这样。有时我们收到相同的论文（有一点或多或少的信息），如果我们扫描它，我们需要看看第一个被扫描的时间，所以我们没有任何双打，可以自欺欺人。

数据库是这样构建的。

序列号（条形码）|规格ID（条形码）|日期

所以我的问题是：

扫描代码时是否可以显示警告消息，并在扫描现有表单时显示？我一直在修补“BeforeUpdate”，但我似乎无法让它工作（仍然是一个新手，但慢慢学习。）

提前致谢！

Answer 1

感谢您的回复！

我想出了VBA代码应该如何，对于有相同问题的任何人来看一下：

Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.BloedeenheidID.Value
stLinkCriteria = "[BloedeenheidID]=" & "'" & SID & "'"
'Check ScannedForms table for duplicate BloedeenheidID number
If DCount("BloedeenheidID", "ScannedForms", _
stLinkCriteria) > 0 Then
'Undo duplicate entry
Me.Undo
'Message box warning of duplication
MsgBox "Warning! The ID number " _
& SID & " has already been entered." _
& vbCr & vbCr & "You will now been taken to the record.", _
vbInformation, "Duplicate Information"
'Go to record of original BloedeenheidID
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

访问 - 在Access显示现有记录中通过表单输入重复项

1 个答案: