提醒用户两个字段相同

Question

有没有什么方法可以让用户知道当前记录中的字段与另一个记录中的字段相同？因为99％的时间他们会有所不同，但1％的时间将有两个记录具有相同的领域，所以我想要一种方式来提醒用户，并确保他们知道这一点，以防他们并不意味着要这样做。

Answer 1

编写函数并根据需要调用它。在你的情况下，在@Andre上面提到的控件的AfterUpdate中。

Public Function IsDuplicate(ByVal Value As String) As Boolean 
    IsDuplicate = (DCount("*", "TableName", "FieldName='" & Value & "'") > 1) 
End Function 

你可以这样调用：

Private Sub Text0_AfterUpdate() 
    If IsDuplicate(Me.Text0.Value) Then 
     MsgBox "Value exists..." 
    End If 
End Sub