判断对象是否存在

jsmugong

各位朋友:
       本人在使用语句DoCmd.DeleteObject acQuery, "考试成绩"     前需要判断对象"考试成绩"对象是否存在,不知如何写VBA语句.请各位朋友帮忙.

t小宝

使用这句就不用判断对象是否存在了
CurrentDb.QueryDefs.Delete "考试成绩"

t小宝

如果一定要判断对象是否存在，就用下面：
Dim obj As AccessObject
For Each obj In Application.CurrentData.AllQueries
    If obj.Name = "考试成绩" Then
        DoCmd.DeleteObject acQuery, "考试成绩"
        Exit For
    End If
Next obj

jsmugong

谢谢楼上的朋友!