Archiving Access Data 3

[matpj]

How can I archive some of the data in my access database?
what is the best method of doing so.
Is there anyway I can include a command button on my switchboard that will archive data?

thanks for any help,
Matthew

 

[adscrims]

This can be modified to do what you want.
'Dim objects and variables
Dim objWord As Object
Dim strFile As String
Dim strSaveAsFile As String
'Grab the Document name strFile = "\\universal4\databases\RAD\Templates Assessment Forms\Temp For Work Equipment Risk Assessment.doc"
'Launch word
Set objWord = New Word.Application
With objWord
'Open the file
.Documents.Open FileName:=Chr(34) & strFile & Chr(34)
'Make it visible
.Visible = True
'Populate a bookmark
.ActiveDocument.Bookmarks.Item("Ref&quot.Range.Text = " " & Me.[Assessment Refference Number] 'this is a textbox
.ActiveDocument.Bookmarks.Item("Ref1&quot.Range.Text = " " & Me.[Combo58] 'this is a textbox
.ActiveDocument.Bookmarks.Item("Ref2&quot.Range.Text = " " & Me.[Department] 'this is a textbox
.ActiveDocument.Bookmarks.Item("Ref3&quot.Range.Text = " " & Me.[Combo14] 'this is a textbox
.ActiveDocument.Bookmarks.Item("Ref4&quot.Range.Text = " " & Me.[Location] 'this is a textbox
.ActiveDocument.Bookmarks.Item("Ref5&quot.Range.Text = " " & Me.[Assessment Date] 'this is a textbox
.Application.Options.PrintBackground = False
.ActiveDocument.PrintOut



strSaveAsFile = Chr(34) & "\\universal4\databases\RAD\Assessments\" & Me.[Assessment Refference Number] & Chr(34)
.ActiveDocument.SaveAs FileName:=strSaveAsFile
.Quit


End With
Set objWord = Nothing
End Sub
Regards Andy :-9
It needs working to your form but it works for me.
Vote for me if you find this advice helpful

 

[jacksonmacd]

Here's a strategy that I use in one of my applications:

Create a second MDB file with tables with identical structure as the tables that require archiving from the primary table.
Rename all the tables in the Archive database with "zArchive..." prefix -- to distinguish them from the originals
Link all the tables from the Archive into the same front end as the primary table
Write a form that allows the user to specify an archive criteria (e.g. records before a specified date)
Write a query that appends the selected records from the primary table into the corresponding Archive table
Write a second query that deletes the selected records from the primary table
Put all the commands onto a single command button.

My code is specific to my application, so it won't do you any good, but I hope you get the idea.

 

[matpj]

jacksonmacd,

thankyou for your suggestion, I will try and work with it.
Could you tell me how to write the form that allows the user to specify a date?

also, I am not sure on the whole 'query' side of things, i.e how do I tell it to append and then delete data?

thanks for your help

 

[matpj]

Can anyone help me with my last comment (above)
its gettingurgent now (deadlines and everything) and I dont have a clue!!