vba - Visual Basic - 检查 If 语句中的记录集字段类型

Question

我正在尝试检查表中字段的数据类型，如果它是 Text 类型，则让代码做一件事，如果它是任何其他类型，则让代码做另一件事。下面是我拥有的代码，但我认为我根本没有第三行。任何帮助将不胜感激！

Set dbExample = CurrentDb
Set rsTester = dbExample.OpenRecordset("tester", dbOpenDynaset)
If TypeOf rsTester!exampleField Is Text Then
    'Does what the code needs to do
Else
    'Does what the code needs to do
End If
rsTester.Close

Answer 1

TypeOf不与 DAOField对象一起使用。你想做的是更像

If rsTester("exampleField").Type = dbText Then
    ' do the thing
Else
    ' do the other thing
End Select

Answer 2

您可以测试 TableDef 对象中字段的 Type 属性。

Dim db As DAO.Database
Dim td As DAO.TableDef

Set db = CurrentDb
With db.TableDefs("Factures")
    Debug.Print .Fields("nofact").Type
End With