Sub Deleteクエリ()
    Dim DB As DAO.Database
    
    Set DB = CurrentDb
    
    DB.QueryDefs.Delete "Q在庫大"
    
    Set DB = Nothing
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ