Solved

Handling French(?) Characters in a String

Posted on 2014-01-29
8
376 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 119

Expert Comment

by:Rey Obrero
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
 
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
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

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

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
Today's users almost expect this to happen in all search boxes. After all, if their favourite search engine juggles with tens of thousand keywords while they type, and suggests matching phrases on the fly, why shouldn't they expect the same from you…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…

744 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

Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!

Get 1:1 Help Now