Проверить наличие eng символов?

[alco84]

Добрый день уважаемые появился такой вопрос: как проверить строку на наличие в ней eng символов?

[alco84]

Сделал так

Private Sub Кнопка2_Click()
Dim rec As Recordset, x As Long, y As String, z As String, strX As String, xy As Long, xz As Long
Set rec = CurrentDb.OpenRecordset("Clients")
      Do Until rec.EOF
          xy = xy + 1
          y = rec!ItemName
          z = Len(y) 'длинна строки
          For i = 1 To z
                strX = Mid(y, i, 1) 'символ в строке
                x = Asc(strX)
                If x >= 65 And x <= 90 Or x >= 97 And x <= 122 Then
                xz = xz + 1 'MsgBox rec!ItemName & "/" & strX & "/" & i
                End If
          Next i
             rec.MoveNext
      Loop
                  rec.Close
MsgBox "Готово " & xy & "" & xz & ""
'A-Z  болш
'a-z  стр
End Sub

[alco84]

065-090; большие буквы
097-122; маленикие

[Abrakadabra]

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

как проверить строку на наличие в ней eng символов?

Все намного проще:

If ВашеЗначение Like "*[A-Z]*" Then ......

[alco84]

Ну вот я так и знал что перемудрил))