'-------------------------

Private Sub 番号_AfterUpdate()

Dim cn As New ADODB.Connection

Set cn = CurrentProject.Connection

Dim rs As New ADODB.Recordset

'存在確認

  mySQL = "SELECT * FROM テーブル WHERE 番号= '" & Me.番号 & "';"

  rs.Open mySQL, cn, adOpenForwardOnly, adLockOptimistic

  If rs.EOF Then

  MsgBox "その番号は登録されていません。", 16, "登録"

  Cancel = True

  Exit sub

  End If

Set rs = Nothing

Set cn = Nothing

End Sub

'-------------------------

'存在確認

  If DCount("*", "クエリ") >= 1 Then

  MsgBox ""その番号は登録されていません。", 16, "登録"

  Me.チップ電話番号 = Null

  Exit sub

  End If