Убедитесь, что пользователь вводит текст в поле ввода в CAPS - PullRequest
Новая
       45

Убедитесь, что пользователь вводит текст в поле ввода в CAPS

0 голосов
/ 06 апреля 2020

У меня есть поле ввода, которое пользователь должен вставить в определенный текст c. Текст должен быть в верхнем регистре. Но когда я запускаю код и вставляю текст в нижнем регистре, он все равно запускается. 

HERE:
            KnownError = InputBox(PayRatesTable.ListColumns("Name").DataBodyRange(i) & " is showing " 
            & PayRatesTable.ListColumns("Hourly or Salary").DataBodyRange(i) & " for role " & 
            PayRatesTable.ListColumns("All Roles").DataBodyRange(i) & ". Please type KNOWN ERROR (All 
            CAPS) to 
            continue.")

            If StrPtr(KnownError) = 0 Then
                MsgBox "Process Aborted"
                Exit Sub
            End If

            If KnownError <> "KNOWN ERROR" Then
                MsgBox "Please type KNOWN ERROR (All CAPS) to continue or cancel to stop the 
                proccess"
                GoTo HERE
            End If

Любые идеи о том, как заставить использование заглавных букв ??

...