Font:             Font style:  Size:

Arial             Regular       10 
Arial Black       Italic        11 
Arial Narrow      Bold          12 
Arial Unicode MS  Bold Italic   14 
Book Antiqua
Bookman Old Style
Century Gothic

Effects           Sample

[x] Underline     AaBbБбФф
Color:
Black       v     Script:
                  Cyrillic    v

Ïðåäèñëîâèÿ
проба

Предисловия
?????

Option Compare Database
Option Explicit

Private Function Shift(sLang As String) As Integer
Select Case sLang
    Case  "ru" : Shift =  848 
    Case  "he" : Shift =  1264 
End Select
End Function
Private Function MinUnicode(sLang As String) As Integer
Select Case sLang
    Case  "ru" : MinUnicode =  1040 
    Case  "he" : MinUnicode =  1456 
End Select
End Function
Private Function MaxUnicode(sLang As String) As Integer
Select Case sLang
    Case  "ru" : MaxUnicode =  1103 
    Case  "he" : MaxUnicode =  1524 
End Select
End Function

Function ToUnicode(ByVal s As String, Optional sLang As String =  "ru" ) As String
Dim s0 As String, i As Integer, c As String *  1 , u As Integer
s0 =  ""
For i = 1  To Len(s)
    c = Mid(s, i,  1 )
    u = Asc(c) + Shift(sLang)
    Select Case u
        Case MinUnicode(sLang) To MaxUnicode(sLang)
            s0 = s0 & ChrW(u)
        Case Else
            s0 = s0 & c
    End Select
Next
ToUnicode = s0
End Function

Function FromUnicode(ByVal s As String) As String
Dim s0 As String, i As Integer, c As String *  1 , u As Integer
s0 = " "
For i = 1  To Len(s)
    c = Mid(s, i,  1 )
    u = AscW(c)
    Select Case u
        Case MinUnicode("ru ") To MaxUnicode(" ru ")
            s0 = s0 & Chr(u - Shift(" ru "))
        Case MinUnicode(" he ") To MaxUnicode(" he ")
            s0 = s0 & Chr(u - Shift(" he "))
        Case Else
            s0 = s0 & c
    End Select
Next
FromUnicode = s0
End Function

Sub OneTable(s As String)
Dim v As Variant
With CurrentDb
    For Each v In .TableDefs(s).Fields
        Select Case v.Type
            Case 10 ,  12 
                .Execute "UPDATE  " & s & "  SET  " & v.Name & "  = ToUnicode([ " & v.Name & " ])"
        End Select
    Next
End With
End Sub