将列标题转换为行数据

问题描述

我在Access数据库中有一个表，该表具有要转换为行数据的列。

我在这里找到了一个代码

converting database columns into associated row data

我是VBA的新手，我只是不知道如何使用此代码。

我附了一些示例数据

当前表的设置方式为14列长。

+-------+--------+-------------+-------------+-------------+----------------+
| ID    |  Name  |  2019-10-31 |  2019-11-30 |  2019-12-31 |  ... etc ...   |
+-------+--------+-------------+-------------+-------------+----------------+
| 555   |  Fred  |          1  |          4  |         12  |                |
| 556   |  Barney|          5  |          33 |         24  |                |
| 557   |  Betty |          4  |          11 |         76  |                |
+-------+--------+-------------+-------------+-------------+----------------+

I would like the output to be

+-------+------------+-------------+
| ID    |  Date      |  HOLB       |
+-------+------------+-------------+
| 555   |  2019-10-31|  1          |
| 555   |  2019-11-30|  4          |
| 555   |  2019-12-31|  12         |
| 556   |  2019-10-31|  5          |
| 556   |  2019-11-30|  33         |
| 556   |  2019-12-31|  24         | 
+-------+--------+-------------+---+

如何将该代码修改为模块并在查询中调用该模块？

或者您可能有其他任何想法。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）