100分!Access数据库表间设置了关系,不能删除时如何提示?

Question

"供应商表"与"货物表"设置了"一对多"关系,"货物表"添加了"供应商"后"供应商表"相关记录就不能删除了,在Access中有提示不能删除,而在代码中无法删除时如何提示用户?如下代码,删除操作没有继续,但没有任何提示,如何截获无法删除的信息来提示用户?  Dim myDatabase As Database '数据库对象
  strSQL = "Delete * From 供应商表 Where (供应商ID =" & lngID & ")"
  Set myDatabase = OpenDatabase(DBPath, True, False, DBPassWord)
  Call myDatabase.Execute(strSQL)注:我用的是DAO3.6

Answer 1

在其他多台机（Win98+Access97）上测试，同样

Answer 2

用错误补捉啊！
常用的：
on error goto Err
          .......
          .......                  '代码
          ......
Err:
        msgbox"............"          '错误提示或错误处理

Answer 3

我再重复，没有发生错误，on error 没有用
因为根本没有提示错误，单步运行顺利执行下一行。