DROP TABLE テーブル名;

Sub Sample2()
    Dim myDB As Database
    Dim mySQL As String
    
    mySQL = "DROP TABLE tbl勘定科目;"
    
    Set myDB = CurrentDb
    
    myDB.Execute mySQL
    
    myDB.Close
    Set myDB = Nothing

End Sub

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



Microsoft Office ブログランキングへ