Public Schedule Face-to-Face & Online Instructor-Led Training - View dates & book

exporting and winzip

Forum home » Delegate support and help forum » Microsoft Access VBA Training and help » Exporting and Winzip

Exporting and Winzip

ResolvedVersion 2007

Anna has attended:
Access Intermediate course
Access VBA course
Finance for Non-Financial Managers course

Exporting and Winzip

FAO: Anthony Malone

As discussed in the training session, what would be the best way to export multiple tables to .txt and also zip them up?!

Thanks

Anna

RE: Exporting and Winzip

Hi Anna, thanks for your query. You're in luck, someone has already written the code for this:

http://conradsharry.blogspot.co.uk/2007/05/zip-file-using-access-vba-and-winzip.html

This uses the Shell command to launch an application from within VBA and a couple of command line parameters. You'll need to loop through the filenames you want to zip and add them to the archive. Have a look here if you encounter any error:

http://stackoverflow.com/questions/1940626/vba-zip-file-error

...particularly the use of the SLEEP command.

Hope this helps,

Anthony

RE: Exporting and Winzip

Thanks Anthony!

I will try to get this working over the next week or so.

Best wishes,

Anna

 

Training courses

Training information:

Welcome. Please choose your application (eg. Excel) and then post your question.

Our Microsoft Qualified trainers will then respond within 24 hours (working days).

Frequently Asked Questions
What does 'Resolved' mean?

Any suggestions, questions or comments? Please post in the Improve the forum thread.

Access tip:

How To Find All Overdue Accounts?

To find overdue accounts create a filter that compares today's date with the Invoice Date in the table. To do this:

1. Open the Query in Design View
2. Select the field for the filter and in the criteria row enter:

<Date()

This filter returns records where the Invoice Date is before today's date.

This filter can be manipulated if, for instance, Invoices are due 15 days after the Invoice Date. For this the filter would be:

<Date()-15

This filter returns records where the Invoice Date is 15 days before today's date.

View all Access hints and tips

Connect with us:

0207 987 3777

Call for assistance

Request Callback

We will call you back

Server loaded in 0.09 secs.