如何获取变量字段名？

Question

我有一条名为 ouderecord 的记录，我从一个带有 SQL 语句的表中得到。

我有这个代码：

strSQL = "SELECT * from tblS1lijst where id = " & Keuzelijst3.Column(0)
Debug.Print strSQL
ouderecord = CurrentDb.OpenRecordset(strSQL)
Tmpstr = Mid(Keuzelijst3.Column(2), InStr(1, Keuzelijst3.Column(2), ".") + 1, _
  Len(Keuzelijst3.Column(2)) - InStr(1, Keuzelijst3.Column(2), ".") - 1)
veld_naam = "[" & Tmpstr & "]"
tekst = "ouderecord!" & veld_naam
Debug.Print tekst

当我将鼠标悬停在直接窗口中的文本 (ouderecord![Situatie]) 上时，我会看到该字段的内容。如何在变量中获取该内容？

我想要“Situatie”作为变量。

Answer 1

如果字段名是静态的，可以这样操作

Dim tekst As String

tekst = Nz(ouderecord![Situatie])

或

tekst = Nz(ouderecord!Situatie)

[ 和 ] 仅在列名包含无效字符（如空格字符或连字符）或与关键字冲突时才需要。

但如果名称是在变量中动态给出的，则必须访问 Recordset 的默认属性 Fields

tekst = Nz(ouderecord(veld_naam))

这是一样的

tekst = Nz(ouderecord.Fields(veld_naam).Value)

其中veld_naam 必须是字段的名称，而列名没有转义[ 和]：例如，veld_naam = "Situatie"

注意，参数可以是表示字段名称的String，也可以是表示查询中列索引的Integer。

Nz 函数将 NULL 值转换为给定类型的适当值。在这种情况下，它为 NULL 返回一个空字符串。

Answer 2

Nz 成功了！
我现在有

strSQL = "SELECT * from tblS1lijst where id = " & Keuzelijst3.Column(0)
Debug.Print strSQL
ouderecord = CurrentDb.OpenRecordset(strSQL)
Tmpstr = Mid(Keuzelijst3.Column(2), InStr(1, Keuzelijst3.Column(2), ".") + 1, Len(Keuzelijst3.Column(2)) - InStr(1, Keuzelijst3.Column(2), ".") - 1)
veld_naam = "[" & Tmpstr & "]"
tekst = "ouderecord!" & veld_naam
tekst = Nz(ouderecord(veld_naam))

Debug.Print tekst

这行得通。