ник: ddi
хачю вот такую фнукцию написать пракатит ли она или нет П.С. я не очен селён в ВБА так что не сильно ругайте(и В русском языке)
есть форма в форме поле P в этом поле водица текст для ройска в юникоде надо конвертировать ево в анси и вставит в поле P1
Начну
Private Sub find_Click()
Dim i As Long
Dim a As String
Dim z As Long
i = Len(Me.p)
For z = 1 To i
a = Mid(Me.p, z, 1)
a = AscW(a)
Select Case a
Case ChrW(561) ' дапустим еквиволент символа 561 это 33 в анси
Me.P1 = Chr(33)
'************
End Select
Next z
End Sub
прокатит ли ?