Sub test1()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    
    Set DB = CurrentDb
    
    For Each TD In DB.TableDefs
        Debug.Print TD.Name
    Next
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub

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



Microsoft Office ブログランキングへ