'-------------------------
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
|