在MS Access 2016中,可以通过使用VBA代码来避免多次输入相同的数据。下面是一个示例代码,可以在表单的“BeforeUpdate”事件中使用:
Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone
'检查记录集中是否存在相同的数据
rs.FindFirst "FieldName = '" & Me.FieldName & "'"
If Not rs.NoMatch Then
MsgBox "该数据已存在,请输入其他数据。"
Cancel = True
End If
Set rs = Nothing
End Sub
在上面的代码中,"FieldName"是要检查的字段名称。在表单的“BeforeUpdate”事件中,将通过RecordsetClone方法创建一个记录集的副本。然后使用FindFirst方法在副本中查找与当前输入数据相同的记录。如果找到相同的记录,则会显示一个消息框,并将Cancel参数设置为True,以取消对当前记录的更新。
请注意,上述示例代码仅适用于单一字段的情况。如果要检查多个字段的数据重复性,可以使用类似的方法并将多个字段的值组合在一起进行比较。
希望对你有所帮助!