閉じる

クエリーの有無を確認する。


'   DCount("*","[MsysObjects]","[Name]='クエリ名' And [Type]=5")







    strName = "ケリー名"

    

    If DCount("*", "[MsysObjects]", "[Name]='" & strName & "' And [Type]=5") > 0 Then

        MsgBox "ari"

    Else

        MsgBox "nasi"

    End If