Почему я получаю ошибку времени выполнения 91 (переменная объекта не установлена) в строке, в которой я устанавливаю переменную - PullRequest
Новая
       56

Почему я получаю ошибку времени выполнения 91 (переменная объекта не установлена) в строке, в которой я устанавливаю переменную

0 голосов
/ 07 мая 2020

Когда я пытаюсь установить oIDX, я получаю сообщение об ошибке выполнения (переменная объекта "91" не установлена). Это часть гораздо более крупного кода, автоматизирующего создание таблиц. Это для обучения, поэтому я не могу просто использовать мастер, это нужно сделать через VB.

Частная функция createIdx (ByRef tDT As udtDirTables)

Dim oTDF As DAO.TableDef Dim oIDX Как DAO.Index Dim tDT C Как udtDirTblColumns Dim tDI As udtDirIndexes Dim i As Integer 

i = 0
For i = 0 To UBound(aryDirIndexes(), 1)
    If aryDirIndexes(i).diTblID = tDT.dtTblID Then
        Set oIDX = oTDF.CreateIndex(aryDirIndexes(i).diIdxName)
        oIDX.Fields = tDI.diIdxName
        oIDX.Primary = IIf(tDI.diPKInd = "Y", True, False)
        oIDX.Unique = IIf(tDI.diIdxUniqueInd = "Y", True, False)
        oTDF.indexes.Append oIDX
        oTDF.indexes.Refresh
        DoEvents
    End If
Next i

Конечная функция

...