Private Sub find_Click()
Dim i As Long
Dim z As Long
Dim a As Long
If IsNull(Me.p) Then
MsgBox "Напишитье ФИО"
Me.p.SetFocus
Exit Sub
End If
For z = 1 To Len(Me.p)
If IsNull(DLookup(" [Usysconvert]![ansi] ", "Usysconvert", " [Usysconvert]![unicode] = " & AscW(Mid(Me.p, z, 1)))) _
Or IsError(DLookup(" [Usysconvert]![ansi] ", "Usysconvert", " [Usysconvert]![unicode] = " & AscW(Mid(Me.p, z, 1)))) Then
MsgBox "Напишитье армянскими буквами"
Exit Sub
End If
a = DLookup(" [Usysconvert]![ansi] ", "Usysconvert", " [Usysconvert]![unicode] = " & AscW(Mid(Me.p, z, 1)))
'Me.P1 = ????????
Next z
End Sub
|