访问VBA将字段名称作为记录

Question

我遇到了一些我不知道如何解决的编码问题。我想把表格作为记录放在同一个数据库中另一个表的字段名称中。

我会举个例子：

表1 What I have

表2 What I want

表1是每周从外部源更新的，因此我需要使用VBA语言将字段名称记录为第二个表中的记录。有人知道是否可能吗？

提前谢谢

Answer 1

你可以做这样的事情

$adsi  = [ADSI]"WinNT://${env:computername}"
$child= $adsi.Children | where {$_.SchemaClassName -eq  'user'}
$properties = $child | select -ExpandProperty properties
$properties|%{echo $_.name $_.lastlogin $_.passwordage}
# you can retrieve the value like this also
#$properties[0]["lastlogin"]

请注意，您已使用保留字Dim db As Database Dim fld As Field Dim sql As String Set db = CurrentDb For Each fld In db.TableDefs("YourTable").Fields sql = "Insert into YourSummaryTable([Date], Hours) select '" & fld.Name & "', sum([" & fld.Name & "]) as s from YourTable" DoCmd.RunSQL sql Next fld 作为字段名称，这不是最佳做法，需要在查询中使用方括号。