Access 2002 和 VBA：测试记录集中的字段

Question

考虑：

Do Until rs.EOF = True
    Me.vcTBConcatName.SetFocus
    If IsNull(rs.Fields!contactname.Value) Then
        Me.vcTBConcatName.Text = "No value recorded"
    Else
        Me.vcTBConcatName = rs.Fields!contactname
    End If
    rs.MoveNext
Loop

这段代码 sn-p 的目的是：将焦点设置在文本框 (vcTBConcatName) 上，检查记录集中是否存在 contactname 的值，如果存在则使用该值填充文本框，或者填充如果不是，则带有No value recorded 的文本框。

仅当记录集中有contactname 的值时，代码才会运行并填充文本框。如果contactname 没有返回值，则不会在文本框中放置替代文本。

有人能指出我做错了什么吗？

Answer 1

也许这对你有用。如果您只是在搜索一个值，则不必遍历记录集：

Me.vcTBConcatName.SetFocus

rs.FindFirst "[contactname] IS NOT NULL AND [contactname] <> ''"

If rs.NoMatch Then
    Me.vcTBConcatName = "No value recorded"
Else
    Me.vcTBConcatName = rs.Fields!contactname
End If

代码在记录集中查找 ContactName 中的第一个 NOT NULL；如果找到它，它将使用该名称，如果没有更新则表示没有记录值。

编辑： 经过漫长而艰苦的调试，原来是 0 长度字符串是罪魁祸首。在 FindFirst 语句中添加了 [contactname] '' 以确保它也在寻找那些。