خودم کشفش کردم رفقا (یکبار برای همشیه و حتی بدون اینکه به Administrative قسمت Region & Language دست بزنید !
شما هم استفاده و به جان ارشد دعا کنید ...
Public Function MyUnicodeSentence(MySentence As Variant)
On Error Resume Next
'Ardatabase Programming
If IsNull(MySentence) Or MySentence = "" Then
MyUnicodeSentence = ""
Exit Function
End If
Dim i As Integer
For i = 1 To Len(MySentence)
MyUnicodeSentence = Nz(MyUnicodeSentence, "") & ChrW(AscW(Mid(MySentence, i, 1)))
Next i
MyUnicodeSentence = MyUnicodeSentence
End Function
پاسخ با نقل قول
