Ciao,
is problem.... nota: per rappresentare la enne accentata qui di seguito la rappresento come N(accentato)
In visualizzazione Tabella o in visualizzazione Query il carattere N(accentato) viene correttamente rappresentato: (test con due tipi di Fields : Testo Breve e Testo Lungo)
se si recupera l'informazione da Form, da DAO da ADO, etc... il carattere viene convertito in "N" e il suo carattere Unicode è = "Ñ" che come carattere in ChrW viene rappresentato con il codice 323 che è = "N" ( ? ChrW(323) = N )
Da notare che anche l'editor VBA già pone il problema di conversione :
Fare questo TEST
- Mettere in Copia il carattere N(accentato)
- posizionarsi nell'Editor di Vba
.
Risultato di incolla = a Ñ e se si converte in UTF-16 diventa = N
VBA usa UTF-16 e non riesce a gestire il carattere N(accentato) che verrà rappresentato come carattere N
Memtre se leggiamo il carattere N(accentato) e lo esportiamo in un file TXT per esempio in UTF 8 :
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stm As Object
Dim testo As String
' REPERIRE IL CARATTERE DALLA TABELLA A
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT Descrizione FROM A WHERE CODICE='1'", dbOpenSnapshot)
If Not rs.EOF Then
testo = rs!Descrizione
End If
rs.Close
Set rs = Nothing
Set db = Nothing
' ESPORTARE IN UN FILE DI TESTO PER ESEMPIO IN UTF 8
Set stm = CreateObject("ADODB.Stream")
stm.Type = 2
stm.Charset = "UTF-8"
stm.Open
stm.WriteText testo
stm.SaveToFile "c:\xxxxxxxxx\test_unicode.txt", 2
stm.Close
Set stm = Nothing
Il risultato sarà come qui rappresentato con il carattere N(accentato) esportato correttamente:
.
Insommaaaaa... na' cosa di questo tipo. ;-)