请竹笛老师指导

ynfsr　发表于：2013-12-14 17:01:49 　

http://www.accessoft.com/article-show.asp?id=4188

Sub TestDelRela()
    Dim i As Long
    Dim x As Long
    Dim strRela As String    '关系的名称
    Dim db As DAO.Database
    Set db = CurrentDb
    i = db.Relations.Count
    For x = 1 To i
        strRela = db.Relations(i - 1).Name '关系的名称
        MsgBox "第" & i & "个关系的名称为：" & strRela
        db.Relations.Delete strRela    '删除这个关系
    Next x
End Sub

当删除多个关系时，提示“ 运行时错误 ‘3265’ : 这个集合中找不到此项目 ”

敬请竹笛老师指导！！！多谢！！！

Top

煮江品茶发表于：2013-12-14 18:24:21

http://www.accessoft.com/article-show.asp?id=4625

Top

羽扇子君发表于：2013-12-29 20:35:11

你的For循环中,X变量没有起作用啊.要改成这样:

For x = 1 To i
        strRela = db.Relations(x - 1).Name '关系的名称
        MsgBox "第" & i & "个关系的名称为：" & strRela
        db.Relations.Delete strRela    '删除这个关系
    Next x

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

请 竹笛 老师指导

请竹笛老师指导