Private Sub 顧客ID_NotInList(NewData As String, Response As Integer) MsgBox "ダブルクリックすると、新規にリスト用データを入力できます。" Response = acDataErrContinue End Sub