только русские буквы

[Dgon777]

Здраствуйте !!! помогите пожалуста. Как зделать ограничение на ФИО 40 символов, вводились только русские буквы«А-Я» . а если английские ввести он ошибку выдает.

[Serge_Bliznykov]

А ввод Вы осуществляете каким образом?
В той форме, где вводите данные, там и проверяйте...

p.s. не уверен, но можно посмотреть и в сторону VBA, если в Access можно подключить свой обработчик на события БД (скорее всего, можно. Даже в Word/Excel можно повеситься на события измения данных).

[Dgon777]

ввод с клавиатуры ............над очтоб..только буквы вводились...числа нельзя.......в форме.....напишите ограничения

[R Dmitry]

Сообщение от Dgon777

ввод с клавиатуры ............над очтоб..только буквы вводились...числа нельзя.......в форме.....напишите ограничения

вот вам пример

Private Sub Поле1_KeyPress(KeyAscii As Integer)
If KeyAscii < 1040 Or KeyAscii > 1103 Then KeyAscii = 0
End Sub

[Abrakadabra]

+1
Только вот Backspace вряд-ли работать будет при ошибочно введенной букве кириллицы, хотя если курсор назад, а потом Del..

[R Dmitry]

Сообщение от Abrakadabra

+1
Только вот Backspace вряд-ли работать будет при ошибочно введенной букве кириллицы, хотя если курсор назад, а потом Del..

я думаю это тоже непроблема

Private Sub Поле1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If KeyAscii < 1040 Or KeyAscii > 1103 Then KeyAscii = 0
End If
End Sub

[Teslenko_EA]

Здравствуйте Dgon777.
в дополнение к предложенному, можно и подобной конструкцией решать эту задачу:

Private Sub Поле1_KeyPress(KeyAscii As Integer)
Dim i%, k%
i = Поле1.SelLength: k = Len(Поле1.Text)
Select Case KeyAscii
Case 8
Case 1040 To 1103:
    KeyAscii = IIf(i > 0, KeyAscii, IIf(k > 39, 0, KeyAscii))
Case Else: KeyAscii = 0
End Select
End Sub

она правильно реагирует и на Backspace и на выделение нескольких символов при заполнении поля.

Евгений.