入力時 存在確認 -- ACCESS VBA --



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







トップへ
トップへ
戻る
戻る