Unanswered: Subject: MS Access 2010 Unicode to Latin/Cyrillic conversion trouble
in the attached code bellow, I get error :
Run-time error '429':
ActiveX control can not create object
and Public function To cyrillyc is marked yellow...
Could somebody help me with this issue and and with the rest of functions because, it is more or less around the same issue i.e., conversion between Unicode and Ltin i.e., Cyrillyc character sets
Option Compare Database
Public Function getEntity(strLevel As String)
Dim rst As Recordset
Select Case strLevel
Case Is > "200"
getEntity = "FBiH"
Set rst = CurrentDb.OpenRecordset("SELECT RegionCode FROM dbo_Municipalities " & _
"WHERE MunicipalityCode='" & strLevel & "';")
getEntity = IIf(rst![RegionCode] = "300", "RS", "FBiH")
Set rst = Nothing
Public Function ToLatinUnicode(strSource As String) As String
ToLatinUnicode = ConvertEncoding(strSource, ccCyrillic, ccLatin, ccYUSCII, ccUnicode)
Public Function ToCyrillicUnicode(strSource As String) As String