Перечисления в DAO не имеют обычных системных методов?

Question

Я пытаюсь получить тип данных из набора записей DAO. Код ниже:

Public Function EditFormData(frm As Form)
  Dim rst As DAO.Recordset
  Dim fieldType as DAO.DataTypeEnum

  Set rst = frm.RecordsetClone
  rst.MoveFirst

  fieldType = rst.Fields(0).Type
  MsgBox fieldType.ToString

Я получаю ошибку Invalid Qualifier для fieldType в msgbox, когда пытаюсь запустить это, и не знаю почему, так как это мой первый набег в Enums.

Answer 1

Создайте свою собственную функцию для преобразования enum в текст. Вместо того, чтобы писать код с нуля, я нашел этот пример.

http://bytes.com/topic/access/answers/209125-can-you-tell-datatype-control

PS Мой первый пост или комментарий, так что не стесняйтесь комментировать.

Answer 2

Знаете ли вы, какова текущая позиция набора записей?Если это в EOF, то у вас будут проблемы.Попробуйте вызвать rst.MoveFirst, прежде чем получить тип поля.