Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Handling French(?) Characters in a String

Posted on 2014-01-29
8
408 Views
Last Modified: 2014-02-04
Hello Experts,

I've been working on a VBA procedure in my Access database that will write some data from a query to a text file.  One of the fields (Comment4) from time to time will come down with what I suspect to be some French characters.  When I try to write Comment4 from the recordset to the file, I receive the error "Invalid procedure call or argument."

A sample of the data that has thrown an error:
PLOMBERIE P.R.P LTEE (This is how it appears in the source table)
PLOMBERIE P.R.P LTE??E (This is how it appears if I open a recordset and try to manipulate the field in VBA)
P L O M B E R I E   P . R . P   L T E ƒ ‰ E (This is how it appears if I do a StrConv to Unicode)

In the latter 2 cases, I've tried doing a replace on those strings with no luck.  

Below is the code:
Function ExportDataFile(Optional ByVal AutoExport As Boolean, Optional ByVal bViewFile As Boolean) As String
    Dim rs As Recordset
    Dim fs, textfile
    Dim sTxtPath As String
    Dim sUserID As String
    Dim sComment4 As String
    
    bViewFile = Nz(bViewFile, False)
    
    'Set File Names
    sTxtPath = CurrentProject.Path & "\FTP_File\ChargebackPins_" & Format(Date, "mmddyyyy") & ".txt"
        
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    If Dir(sTxtPath) > vbNullString Then Kill sTxtPath
    If Dir(sTxtPath) = vbNullString Then Set textfile = fs.CreateTextFile(sTxtPath, True)
    
    Set rs = CurrentDb.OpenRecordset(Export_ChargebackPins)
    
    If rs.RecordCount = 0 Then
        textfile.Close
        If Dir(sTxtPath) > vbNullString Then Kill sTxtPath
        If Nz(AutoExport, True) = False Then MsgBox "No Chargeback Records to Export.", vbOKOnly, "Record Export"
        sTxtPath = ""
    Else
        rs.MoveLast
        rs.MoveFirst
        
        Echo False
        
        Do Until rs.EOF
            If Nz(rs![UserID Auditor], "") = "" Then
                sUserID = DLookup("[cnh_userID_]", "tbl_UserList", "[defaultadmin]=-1")
                sComment4 = Replace(rs![Comment 4], "()", "(" & DLookup("left([first_name],1)", "tbl_UserList", "[defaultadmin]=-1") & DLookup("left([last_name],1)", "tbl_UserList", "[defaultadmin]=-1") & ")")
            Else
                sUserID = rs![UserID Auditor]
                sComment4 = StrConv(rs![Comment 4], vbUnicode)
            End If
            
                textfile.WriteLine rs![Record Code] & "|" & rs![Auth No] & "|" & Format(rs![Auth Date], "yyyymmdd") & "|" & rs![Dealer No] & "|" & rs![Invoice No] & _
                                   "|" & rs![Orig Pin] & "|" & rs![Appr Pin] & "|" & rs![Appr Amt Sign] & "|" & Format(rs![ApprPinAmt], "0.00") & "|" & rs![Comment 1] & _
                                   "|" & rs![Comment 2] & "|" & rs![Comment 3] & "|" & sComment4 & "|" & sUserID
            If bViewFile = False Then DoCmd.RunSQL ("UPDATE tbl_AuditLogMaster AS x  SET x.ExportedForESS = #" & Date & "#  WHERE (((x.AuditLogID)= " & rs!AuditLogID & ")) ")
            If Nz(rs![UserID Auditor], "") = "" Then DoCmd.RunSQL ("UPDATE tbl_AuditLogMaster AS x  SET x.[UserID Auditor] = '" & sUserID & "', x.[comment 4] = '" & sComment4 & "'  WHERE (((x.AuditLogID)= " & rs!AuditLogID & ")) ")
            rs.MoveNext
        Loop
        
        textfile.Close
        rs.Close
        Set rs = Nothing
    End If
    
    Echo True
    
    ExportDataFile = sTxtPath
End Function

Open in new window



Thanks ahead of time for your assistance.
0
Comment
Question by:TheGL
8 Comments
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 39819502
try changing this  

 '" & sComment4 & "'

with

" & Chr(34) & sComment4 & chr(34) & "
0
 

Author Comment

by:TheGL
ID: 39819588
Unfortunately I still receive the error when adding chr(34).
0
 
LVL 10

Expert Comment

by:Gozreh
ID: 39819999
why should LTEE became LTE??E  ?
did you write in french ?
you should compact and repair your database, something is corrupted there
0
Enterprise Mobility and BYOD For Dummies

Like “For Dummies” books, you can read this in whatever order you choose and learn about mobility and BYOD; and how to put a competitive mobile infrastructure in place. Developed for SMBs and large enterprises alike, you will find helpful use cases, planning, and implementation.

 
LVL 49

Expert Comment

by:Gustav Brock
ID: 39820103
Yes, nothing "French" here, only malformed data.

However, you could try:

strComment4 = CStr([Comment4])

/gustav
0
 

Author Comment

by:TheGL
ID: 39820841
Gozreh - I have compacted both the source database (also an access DB) and this one, no luck.

Gustav - using CSTR yields the same result.
0
 
LVL 49

Expert Comment

by:Gustav Brock
ID: 39820851
OK, then you are left with a manual edit of the data.

/gustav
0
 

Accepted Solution

by:
TheGL earned 0 total points
ID: 39822932
Found that the user in charge of the source database had some code to "handle" characters with accents that was producing garbage characters.  Changed his code to something similar to what was found here.

Thanks all for taking a shot at this one.
0
 

Author Closing Comment

by:TheGL
ID: 39832017
Not exactly sure if I should be handing points out on this due to my limited experience in doing so.
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

766 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question