[AccessD] FYI: Good news - VBA in Office 12 and beyond...

Hi Martin et al

Martin, you did post this in November, I just forgot, sorry. 
Read on here:

http://blogs.msdn.com/access/

Browse to the bottom.

/gustav


>>> mwp.reid at qub.ac.uk 21-02-2006 14:51 >>>
Thay have updated DAO and JET. They took a private copy of JET and
renamed it ACE which is the default database created by Access 12. They
then extended the engine to cope with this as well. 

Martin

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: 21 February 2006 13:47
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] FYI: Good news - VBA in Office 12 and beyond...

Martin,

Does this code means they updated DAO to support new datatype or they
somehow worked it around without DAO patching?

Shamil

----- Original Message -----
From: "Martin Reid" <mwp.reid at qub.ac.uk>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, February 21, 2006 4:29 PM
Subject: Re: [AccessD] FYI: Good news - VBA in Office 12 and beyond...


> Gustav
>
> Here is a bit of DAO which loads a value into a new Access datatype
> called Attachment which allows you to save several attachments.
>
> Dim rsEmployees As DAO.Recordset
> Dim rsPictures As DAO.Recordset
> Set db = CurrentDb
>
> ' Get the parent recordset
> Set rsEmployees = db.OpenRecordset("Table1")
>
> 'Put the parent record into edit mode
> rsEmployees.Edit
>
>
> 'Get the attachment recordset
> Set rsPictures = rsEmployees.Fields("AttachmentCell").Value
>
> 'Set first attachment to loaded picture
> rsPictures.Edit
> rsPictures.Fields("FileData").LoadFromFile ("C:\test.jpg")
> rsPictures.Update
>
> ' Update the parent record
> rsEmployees.Update
>
>
>
> Martin