見積ナンバーを入力するテキストボックスの更新前処理イベントを利用して、既に入力済みの見積ナンバーであるか否かをチェックした二重入力を防ぐ。
無視して続行するかどうかを選択するバージョン。
Private Sub 見積ナンバー_BeforeUpdate(Cancel As Integer) Dim msg As String Dim varV As Variant msg = "この氏名の社員は既に入力済みです。このまま入力を続けますか?" varV = DLookup("[見積ナンバー]", "T_見積", "[見積ナンバー] ='" & Me.見積ナンバー & "'") If Not IsNull(varV) Then Select Case MsgBox(msg, 17) Case 1 Cancel = False Case Else Cancel = True Me.Undo End Select Else Cancel = False End If End Sub