提醒用戶兩個字段相同

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