文本字段在Access VBA中不被识别为字符串

Question

我在Access 2010中有一个表“Contracts”与SharePoint链接的内容。此表中的类型文本有许多字段。我想在我的VBA代码中使用这些字段取消查询“All-Contracts”，但是类型文本中的这些数据无法识别为String，我收到运行时错误“13：

Function funktion()
Dim db As DAO.Database
Dim rs As DAO.Recordset 'All-Contracts
Set db = CurrentDb
Dim s as String
Dim CsrArray() As String

Set rs = db.OpenRecordset("All-Contracts")

'Region is a field from type Text in The table "Contracts"

s = rs!Region  'runtime error "13: types incompatible 

CsrArray = Split(s)

For i = 0 To UBound(CsrArr) - 1  
....

Answer 1

根据评论，我得出Region为String?的结论，因为它可以为空。需要使用String将其转换为CType才能将其分配给s。此外，我认为应该处理它为null的情况，因为它现在可能是非空的事实只是一个幸运的巧合。

问题是操作引用了Region而不是Region.Value。