I am still using ACCESS 2003 to run my office as this is the most versatile programming / DB combination, extremely stable, client-server + replicable and very fast to program. after ACCESS 2007 the programm turned instable and stalls again and again.
Since 2003 many new feature came into existence that I have to program “around” or implement myself. Here I am contributing to public domain.
Email-Issues regarding Charsets, ……
because I often dont remember the proper function names I created 3 similar wrapping functions
Function Ascii2HTML(ByVal s As String) As String
Ascii2HTML = UnicodeToISO_8859_1(s)
End Function
Function Ascii2Unicode(ByVal s As String) As String
Ascii2Unicode = UnicodeToISO_8859_1(s)
End Function
Function HTML2Ascii(ByVal s As String) As String ‘utf, unicode, Ansii
HTML2Ascii = UnicodeToISO_8859_1(s)
End Function
‘https://docs.microsoft.com/en-us/previous-versions/exchange-server/exchange-10/ms526296(v=exchg.10)
Function UnicodeToISO_8859_1(ByVal Text As String) As String
Dim objStream As Object
Const adTypeBinary = 1
Const adTypeText = 2
On Error GoTo x
Set objStream = CreateObject(“ADODB.Stream”)
objStream.Type = adTypeText
objStream.Charset = “UTF-8”
‘objStream.Charset = “iso-8859-15”
‘objStream.Charset = “iso-14289-1”
objStream.Open
‘put Text in Stream
objStream.WriteText Text
objStream.Flush
objStream.Position = 0
‘objStream.Charset = “UTF-8”
objStream.Charset = “iso-8859-15”
objStream.Type = adTypeBinary
If err Then
UnicodeToISO_8859_1 = Null
Else
UnicodeToISO_8859_1 = Mid(StrConv(objStream.Read, vbUnicode), 4, 10000)
End If
objStream.Close
Exit Function
x:
MsgBox CStr(err.Number) + ” ” + err.Description
End Function