Есть ли код, который я могу использовать для устранения ошибки во время выполнения?

Question

В моей базе данных (доступ 2010) есть форма «Главное меню», которая открывает форму события, полученную из таблицы событий после поиска из несвязанного текстового поля.Вплоть до самого последнего обновления Windows от 4/10/19 код работал идеально, чтобы создать новую запись в форме события.Теперь я получаю ошибку во время выполнения 2427 (Вы ввели выражение, которое не имеет значения).Какое изменение в коде должно быть реализовано для устранения ошибки?

Отладчик прерывается в Private Sub Form Load () формы события в первом операторе If, который ссылается на элемент управления true / false.

Я безуспешно пытался 1. изменить значения на (True / False), 2. добавить меня.в начало оператора if, 3. полностью удалив операторы if из формы и установив фокус на другой элемент управления в форме, и 4. добавив текущее событие формы с кодом, который был ранее в событии загрузки формы.

Этот код закрывает форму «Главное меню» и открывает форму событий в режиме добавления.

Private Sub cmdAddEvent_Click()
    cmdAddEvent.SetFocus
    cboEvent.Value = ""
    blnAddEvent = True
On Error GoTo Err_cmdAddEvent_Click
    DoCmd.Close

    ' wipe out event variables when finding or adding another event
    strSaveYearCode = "": strSaveProjectCode = "": strSaveActivityCode = "":strSaveProposalCode = ""
    g_strEventYear = "": g_strEventProject = "": g_strEventActivity = "": g_strEventProposal = ""
    ' end of wipe-out

    DoCmd.OpenForm "frmEvents", , , , acFormAdd
    'DoCmd.GoToRecord , , acNewRec

Exit_cmdAddEvent_Click:
    Exit Sub

Err_cmdAddEvent_Click:
    MsgBox Err.Description
    blnAddEvent = False
    Resume Exit_cmdAddEvent_Click
End Sub

Это код из формы событий, который отладчик прерывает перед выполнением.появляется ошибка.

Private Sub Form_Load()
    If proContentApprove = -1 Then ---This line
        proDescription.Locked = True
        proAudience1.Locked = True
    Else
        If proContentApprove = 0 Then
            proDescription.Locked = False
            proAudience1.Locked = False
        End If
    End If

Когда запись уже находится в исходной таблице, форма события открывается без инцидентов.Я ожидаю, что форма событий откроется, как обычно, при попытке добавить новую запись.