2つのフィールドが同じであることをユーザーに警告する

Question

現在のレコードのフィールドが別のレコードのフィールドと同じであることをユーザーに知らせる方法はありますか？ 99％の時間が異なるので、同じフィールドで2つのレコードが必要になるため、時間の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