Сообщение об ошибке при попытке открыть форму в Access

Question

Когда я пытаюсь открыть форму в Access, я получаю сообщение об ошибке, в котором говорится, что вы ввели имя элемента управления «col1», которое уже используется.Код, где происходит эта ошибка, находится в Forms (frm) (i + 16) .Name = "col" & Format (i, "0") ниже.Что означает эта ошибка?И как я могу это исправить?

Sub SetGridColumns(frm As String, FirstDay As Variant, LastDay As Variant)
Dim i As Integer
' Sets column headings for all shown dates in crosstab fsub
DoCmd.OpenForm frm, acDesign, , , , acHidden
For i = 0 To 7
    ' Avoid control name conflicts by renaming them to col1 ...
    ' The dirty constant 16 is the item number of the last non-column item.
    **Forms(frm)(i + 16).Name = "col" & Format(i, "0")**
Next i
For i = 0 To 7
    ' Now give the columns the right control name and control source
    Forms(frm)(i + 16).ControlSource = Format(FirstDay + i, "mm-dd")
    Forms(frm)(i + 16).Name = Format(FirstDay + i, "mm-dd")
Next i
DoCmd.Close acForm, frm, acSaveYes
End Sub

Answer 1

Если вы столкнулись с ошибками, возможно, существует какой-то длительный элемент управления с именем col1 и т. Д., Хотя по логике они должны иметь имя FirstDay + i + "mm-dd". Итак, как предлагает Джоэл, вы можете вручную проверить и исправить эти элементы управления или поставить чек перед переименованием:

If Forms(frm)(i + 16).Name <> "col" & Format(i, "0") Then
   Forms(frm)(i + 16).Name = "col" & Format(i, "0")
End If

Answer 2

Это означает, что это говорит. Чтобы найти элемент управления, который уже называется «col1», перед первым циклом выведите для отладки все имена элементов управления вашей формы.