如何在 ms 访问中将字段名称附加到单独的 table 中的值？

Question

例如：

字段 A1 到 A4 在表 1 中具有这些值

A1|A2|A3|A4
 1| 3| 5| 6

我需要将其放入表 2 中

Field | Value
A1    | 1
A2    | 3
A3    | 5
A4    | 6

我希望我能尽快得到答复。非常感谢！

Answer 1

您需要编写一些 VBA 代码来执行此操作：

sub StoreTransposedData()
    dim db as DAO.Database, rsIn as DAO.Recordset, rsOut as DAO.Recordset
    dim field as String, val as Integer
    dim j as Integer
    set db = currentdb()
    set rsIn = db.openRecordset("YourInputTable", dbOpenDynaset, dbReadOnly)
    set rsOut = db.openRecordset("YourOutputTable", dbOpenDynaset, dbEdditAdd)
    with rsIn
        .moveFirst
        do
            for j = 0 to .Fields.Count - 1
                field = .Fields(j).Name
                val = .Fields(j).Value
                with rsOut
                    .addNew
                        .Fields("field").value = field
                        .Fields("value").value = val
                    .update
                end with
            next j
            .moveNext
        loop until .EOF
        .close
    end with
    rsOut.close
    db.close
end sub

老实说，我看不出有任何理由让你want/need这个...但这是一个可能的解决方案。

希望对您有所帮助

如何在 ms 访问中将字段名称附加到单独的 table 中的值？

How can I attach field names to to their value in a separate table in ms access?

ms-access