Проверка орфографии в форме MS Access - PullRequest
Новая
       141

Проверка орфографии в форме MS Access

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

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

Public Function SpellChecker()

Dim ctrl As Control

Dim frm As Form

Set frm = Screen.ActiveForm

DoCmd.SetWarnings False

For Each ctrl In frm.Controls
 If TypeOf ctrl Is TextBox Then
   If Len(ctrl) > 0 Then
     With ctrl
      .SetFocus
      .SelStart = 0
      .SelLength = Len(ctrl)
     End With

     DoCmd.RunCommand acCmdSpelling

   End If
 End If

Next

DoCmd.SetWarnings True

End Function
...