Sub copy写真テーブル()
    Dim DB As DAO.Database
    Set DB = CurrentDb
    
    DB.Execute "SELECT * INTO tbl写真2 FROM tbl写真;"
    
    Set DB = Nothing
End Sub

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



Microsoft Office ブログランキングへ