Не знаете как сделать заглавные буквы в ACCESS (в поле формы)?
На cамом деле это не так сложно, как кажется на первый взгляд, если обратиться к помощи Microsoft Visual Basic.
Сначала создаем модуль, в который для того, чтобы увидеть заглавные буквы в ACCESS, добавляем следующий код:
Public Function ValueToUpperCase(val As Variant) As Variant
'es - 05.08.2019
'----------------------------------------------------------------
'Нормализация строки (Вася Петров или вася петров = ВАСЯ ПЕТРОВ)
'Для исправления ввода Имён, Фамилий (в т.ч. и двойных: морозов-пупкин)
'----------------------------------------------------------------
On Error GoTo ValueToUpperCase_Err
Dim v As Variant
If InStr(1, val, "-") > 0 Then
v = Replace(val, "-", " - ")
v = StrConv(v, 1) '1 = vbUpperCase
ValueToUpperCase = Replace(v, " - ", "-")
Else
ValueToUpperCase = StrConv(val, 1) '1 = vbUpperCase
End If
ValueToUpperCase_End:
On Error Resume Next
Exit Function
ValueToUpperCase_Err:
ValueToUpperCase = val 'Null
'MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure ValueToUpperCase, line " & Erl & ".", vbCritical
Err.Clear
Resume ValueToUpperCase_End
End Function
В код формы, в полях которой предполагается
видеть заглавные буквы в ACCESS,
добавляем следующие строки, заменяя имена полей на свои:
Private Sub txtName_AfterUpdate()
Me!txtName = ValueToUpperCase(Me!txtName)
End Sub
Private Sub txtSurname_AfterUpdate()
Me!txtSurname = ValueToUpperCase(Me!txtSurname)
End Sub
Заглавные буквы в поле формы ACCESS будут автоматически добавлены при обновлении записи.
Большое спасибо за код Eugene-LS (Киберфорум)