Scribd
Upload
5 views1 page

Automated Customer Data Backup Script

This VBA code periodically backs up customer records from a "Customers" database table to a text file. It opens the recordset, loops through each record, builds a string of field values separated by pipes, writes each record string to the text file, then closes the file and recordset. The process is run on a timer to provide regular automated backups of the customer data.

Uploaded by

Paul
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
5 views1 page

Automated Customer Data Backup Script

This VBA code periodically backs up customer records from a "Customers" database table to a text file. It opens the recordset, loops through each record, builds a string of field values separated by pipes, writes each record string to the text file, then closes the file and recordset. The process is run on a timer to provide regular automated backups of the customer data.

Uploaded by

Paul
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Private Sub Form_Timer()

' do a periodic backup of records


Dim stFile As String
Dim rs As DAO.Recordset2
Dim fld As DAO.Field2
Dim stData As String

' show status


[Link] = True
DoEvents

' open the file name - latest data always available


stFile = [Link] & “\[Link]”
Open stFile For Output As #1

' get the data


Set rs = CurrentDb().OpenRecordset(“Customers”)
While (Not [Link])
' loop through fields and build the data string
For Each fld In [Link]
If (Not [Link]) Then
stData = stData & [Link] & “|”
End If
Next

' print
Print #1, Left(stData, Len(stData) - 1)
[Link]
DoEvents
Wend

' cleanup
[Link]
Set rs = Nothing
Set fld = Nothing

Close #1

' hide status


[Link] = False
End Sub

You might also like