Deleting spaces at the right

  • Thread starter Thread starter Maracay
  • Start date Start date
M

Maracay

Hi Guys,

I have this code to generate a file:

FileHandle = FreeFile()
Open strFileName For Output As FileHandle
On Error GoTo Err_handler
Dim rs As Recordset
Set rs = Recordset

rs.MoveFirst

Do Until rs.EOF
Print #FileHandle, Nz(Fname), Nz(LName)
Print #FileHandle, Nz(address)
Print #FileHandle, Space(10)
rs.MoveNext
Loop

Close #FileHandle

The problem is that Fname is 60 character long and in the file shows:
John Smith
And what I want is:
John Smith

I want to eliminate the empty spaces at the right, I try LTRIM and RTRIM but
didn’t work.
 
hi,
I have this code to generate a file:
FileHandle = FreeFile()
Open strFileName For Output As FileHandle
On Error GoTo Err_handler
Dim rs As Recordset
Set rs = Recordset
Click to expand...
Reorder this to:

On Local Error Goto Err_Handler

Dim rs As DAO.Recordset

Dim FileHandle As Long

Set rs = CurrentDb.OpenRecordset("..")

If Not rs.Bof And Not rs.Eof Then
FileHandle = FreeFile
Open strFileName For Output As FileHandle
'...
Close #FileHandle
End If


Print #FileHandle, Nz(Fname), Nz(LName)
The problem is that Fname is 60 character long and in the file shows:
John Smith
And what I want is:
John Smith
Click to expand...
Use Trim():

Print #FileHandle, Trim(Nz(Fname, "") & Nz(LName, ""))



mfG
--> stefan <--
 
Maracay said:
Hi Guys,

I have this code to generate a file:

FileHandle = FreeFile()
Open strFileName For Output As FileHandle
On Error GoTo Err_handler
Dim rs As Recordset
Set rs = Recordset

rs.MoveFirst

Do Until rs.EOF
Print #FileHandle, Nz(Fname), Nz(LName)
Print #FileHandle, Nz(address)
Print #FileHandle, Space(10)
rs.MoveNext
Loop

Close #FileHandle

The problem is that Fname is 60 character long and in the file shows:
John Smith
And what I want is:
John Smith

I want to eliminate the empty spaces at the right, I try LTRIM and
RTRIM but didn't work.
Click to expand...

Maracay

The Access 2003 help, under "Print # Statement" contains the sentence:
"A space has the same effect as a semicolon."

WRONG!

if the arguments are separated by a comma, each argument is placesd in a
separate 'print zone.' To get the result you want use:
Print #FileHandle, Nz(Fname); " "; Nz(LName)
Note: one comma, two semicolons
 
Back
Top