4

テーブル内のフィールドのデータ型をチェックして、テキストタイプの場合はコードに1つの処理を実行させ、他のタイプの場合は別の処理を実行させようとしています。以下は私が持っているコードですが、私は3行目がまったくないと思います。どんな助けでも大歓迎です！

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
4

2 に答える 2

4

TypeOfDAOFieldオブジェクトでは使用されません。あなたがしたいことはもっと似たようなものです

If rsTester("exampleField").Type = dbText Then
    ' do the thing
Else
    ' do the other thing
End Select
于 2012-11-28T22:34:35.033 に答える
0

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
于 2012-11-28T23:14:32.213 に答える