appending to text files

[Donald Grove]

Is it possible to append records to a space delimited text file, using
Access 2000?

[Lyle Fairfield]

TTBOMK TransferText will not append.

I have used this. It has NOT been extensively tested.

Public Sub AppendRecordsAsText( _
ByVal QueryString As String, _
ByVal FullFilePathandName As String)

Dim AppendString As String
Dim FileNumber As Integer

On Error GoTo AppendRecordsAsTextErr:

AppendString = CurrentProject.Connection.Execute(QueryString) _
.GetString(adClipString, , " ", vbNewLine)

FileNumber = FreeFile
Open FullFilePathandName For Append As #FileNumber

Write #FileNumber, , AppendString
Close #FileNumber

AppendRecordsAsTextExit:
'BE SURE low level file handles are released
Close
Exit Sub
AppendRecordsAsTextErr:
With Err
MsgBox .Description, vbCritical, "UH OH (Error #" & .Number &
")"
End With
Resume AppendRecordsAsTextExit:
End Sub

Sub test()
AppendRecordsAsText "SELECT * FROM Table1", "Table1.txt"
End Sub

[rkc]

Donald Grove wrote:

Is it possible to append records to a space delimited text file, using
Access 2000?

TransferText will overwrite existing files so one way you can do
what you want is to export to a different file and then append the
data to the existingfile by other means.
Here's an example of one way to go about that. You will want to
run tests and improve this. It's bare-bones stuff.

Function AppendFile(pathTo As String, pathFrom As String) As Boolean
Dim fHandle As Long
Dim appendData As String
AppendFile = True

On Error GoTo errHandler

appendData = GetFileContent(pathFrom)

fHandle = FreeFile
Debug.Print fHandle
Debug.Print appendData

Open pathTo For Append As #fHandle
Print #fHandle, appendData

exitHere:
Close fHandle
Exit Function

errHandler:
AppendFile = False
Resume exitHere
End Function

Function GetFileContent(path As String) As String
Dim s As String
Dim f1 As Long

f1 = FreeFile
Open path For Binary As #f1
s = String(LOF(f1), " ")
Get #f1, , s

Close #f1
GetFileContent = s

End Function

[Larry Linson]

"Donald Grove" <do*********@verizon.net> wrote

Is it possible to append records to a space
delimited text file, using Access 2000?

Access has, since Version 1.0, had File I/O commands that can be used to
manipulate text files. One version of the Open statement is for files, WRITE
#, PRINT #, Put and Close are other commands (along with INPUT #, LineInput,
Get and Read). A tutorial on reading and writing Windows files is a bit much
for a newsgroup response. You might Google on the subject, check out the
Knowledge Base and other articles at http://support.microsoft.com and
http://msdn.microsoft.com.

If you have to do this without knowing some VBA code, you might consider
importing the file into a temporary Table, appending using an Append Query,
then exporting to a file.

Larry Linson
Microsoft Access MVP