Eroare la folosirea diacriticelor in VBA

Ce este nou in Microsoft Access 2016?
Informatii despre cum se utilizeaza Microsoft Access 2016.
Baze de date, Interogari, Formulare, Rapoarte, etc
cvmircea
Moderator
Moderator
Mesaje:403
Membru din:Lun Aug 03, 2009 7:25 pm
Localitate:Alba Iulia
Contact:
Eroare la folosirea diacriticelor in VBA

Mesaj de cvmircea » Vin Mar 10, 2023 12:48 pm

Buna.Pun aceasta problema pe forum in speranta ca sunt colegi care au solutie pentru urmatoarea eroare:
-La exportul datelor dintr-o interogare intr-un fisier txt da" Runtime error 5 invalid procedure call argument"
aceasta eroare apare doar daca unul din campurile interogarii contine diactritice.
Codul VBA este :

Cod: Selectaţi tot

Set rst = CurrentDb.OpenRecordset("SELECT * FROM DetaliiFacturaPtExport WHERE [FacturaId] =  " & FacturaId)
Dim fs, TextFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set TextFile = fs.CreateTextFile(Forms!frmHidden!CaleExportMentor.Value & "\Articole.txt", True)
Do Until rst.EOF = True
TextFile.WriteLine ("[ArticoleNoi_" & rst![Cod] & "]")
TextFile.WriteLine ("Denumire=" & rst![Denumire])
TextFile.WriteLine ("Serviciu=N")
TextFile.WriteLine ("ContServiciu=") & vbCrLf
rst.MoveNext
Loop
TextFile.Close
Eroarea apare la linia :
TextFile.WriteLine ("Denumire=" & rst![Denumire])
in cazul in care denumirea contine diacritice

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje:1998
Membru din:Sâm Ian 24, 2009 1:45 pm
Localitate:Bucharest
Contact:

Re: Eroare la folosirea diacriticelor in VBA

Mesaj de Dr.Excel » Lun Mar 13, 2023 2:15 pm

Incearca sa pui al treilea argument (optional) al metodei CreateTextFile, care se numeste UNICODE, pe TRUE, implicit e pe false (asta accepta doar text ASCII fisierul).

Cod: Selectaţi tot

Set TextFile = fs.CreateTextFile(Forms!frmHidden!CaleExportMentor.Value & "\Articole.txt", True, True)

MCT, MCITP
MOS Master Instructor
IT Learning

Scrie răspuns

Înapoi la “Intrebari despre Access 2016”