Sub test1()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef
    Dim FD As DAO.Field
    
    Set DB = CurrentDb
    Set TD = DB.TableDefs("tbl商品")
    
    For Each FD In TD.Fields
        Debug.Print FD.Name
    Next
    
    Set TD = Nothing: Set DB = Nothing
    
End Sub


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



Microsoft Office ブログランキングへ