access vba表字段_用VBA如何获取access数据库中字段的数据类型？

展开全部

1、打开相应的access数据库。

2、在左边的对象栏里单击模块，观察右边的窗口e69da5e6ba9062616964757a686964616f31333337626231，如果里面有模块，可以双击打开。如果没有新建一个模块，然后双击打开。

3、粘贴以下代码并运行、观察立即窗口。Private Sub aaaa()

Dim TableName As String, FieldName As String, i As Integer

TableName = "tb1" '表名 tb1

FieldName = "编号" '字段名 编号

Select Case CurrentDb.TableDefs(TableName)(FieldName).Type

Case dbBoolean

Debug.Print "是/否"

Case dbByte

Debug.Print "数字(字节)"

Case dbInteger

Debug.Print "数字(整型)"

Case dbLong

If (CurrentDb.TableDefs(TableName)(FieldName).Attributes And dbAutoIncrField) = dbAutoIncrField Then

Debug.Print "自动编号(长整型)"

Else

Debug.Print "数字(长整型)"

End If

Case dbSingle

Debug.Print "数字(单精度)"

Case dbDoub