Now Reading
ЗАГЛАВНЫЕ БУКВЫ В ACCESS

 

 

 

 

Не знаете как сделать заглавные буквы в 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 будут автоматически добавлены при обновлении записи.

See Also
#Ошибка в отчете Access

Большое спасибо за код Eugene-LS (Киберфорум)

What's Your Reaction?
Ничего не понял
0
Нормально
0
Понравилось
0
УДАЛИТЕ!
0
View Comments (0)

Leave a Reply

Your email address will not be published.

© 2019 Admipost. Буду рад любому общению

Scroll To Top