Jim Irvine wrote:
Salad <oi*@vinegar.co m> wrote in message news:<_A******* **********@news read2.news.pas. earthlink.net>. ..
Jim Irvine wrote:
I have a small database made up of 2 tables. I have a report that is
driven from a query. On the report are a couple of fields linked to
memo boxes in the table. Everytime I run the report I get the
following strange characters instead of data.
_
Ἃ
These actually show us as square boxes and capital A's with a tilde
etc.
Does anyone have an idea as to what may be causing this.
Do these show up in Print Preview? Only when you print? Perhaps they
are printer control codes. What type of printer are you using? Do you
have a recent print driver?
Using Windows XP, Office XP latest drivers for our network printers
(Mostly HP4050 and 4100 and Lexmark W820). The Characters show on
print preview and also on the actual hard copy.
The Characters do not show when I look in the tables.
Next question. What font are you using? Are you using a TT font or
printer font? What happens if you change the font to Arial or
TimesRoman or CourrierNew?
Next question. Set it to a specific printer instead of default for a
test (File/PrinterSetup)
Also, create a new printer. Maybe something from HP via the control
panel and set the report to that printer temporarily.
For some odd reason the codes remind me of HTML code. Oh well
Next, try running some code similar to this in a module (database
window/modules). This will scan all the characters in the memo box and
see if they fall in the normal range of numbers, alphs, or crlfs.
Private Sum TestThisField()
Dim i As Integer
Dim i1 As Integer
Dim s As String
Dim s1 As String
Dim value As Variant
Dim rst As DAO.Recordset
'change the table name to your table name to
'the table name with the problem
Set rst = Currentdb("Your TableName",dbop ensnapshot)
'uncomment the line depending on string, number, date
'and change
'value = "Test"
'value = #1/21/2002#
'value = 123
'uncomment the rst line depending on string, number, date
'string search
'rst.findfirst "[ID] = '" & value & "'"
'number search
'rst.findfirst "[ID] = " & value
'date search
'rst.findfirst "[ID] = #" & value & "#"
'change the field name to your field name
s = rst!YourFieldNa me
For i = 1 to len(s)
s1 = Mid(s,i,1)
i1 = Asc(s1)
If i1 <> 10 and i1 <> 13 and (I1 < 32 or i1 > 126) then
msgbox "Ascii " & I1
endif
next i
rst.close
set rst = Nothing
msgbox "Done
end sub
If you get an ascii message, you do have hidden chars that are causing a
problem.
Get back if none of these work. Maybe more head scratching will be
required.