Function getTableInfo() '引用DAO Dim mydb As DAO.DATABASE Dim myT As DAO.TableDef Dim myFld As DAO.Field Dim p Set mydb = CurrentDb For Each myT In mydb.TableDefs For Each myFld In myT.Fields Debug.Print myFld.Name For Each p In myFld.Properties Debug.Print p.Name Next If myFld.Properties("type") = dbText And Left(myT.Name, 4) <> "msys" Then myFld.Properties("ImeMode") = 2 '1 开 '2 关 '0 随便 End If Next Next End Function