Mass change of background

[Jonathan Blitz]

I wish to change the background bitmap of all my forms.

Is there an easy way to automate this or do I have to go to each form one at
a time and do it (ugh)?

Jonathan Blitz
AnyKey Limited
Israel

 

[Brendan Reynolds]

Public Sub ChangeFormPic()

Dim aob As AccessObject

For Each aob In CurrentProject.AllForms
DoCmd.OpenForm aob.Name, acDesign

'change to your path and image file name
Forms(aob.Name).Picture = CurrentProject.Path & "\ET3028.jpg"

DoCmd.Close acForm, aob.Name, acSaveYes
Next aob

End Sub


--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

 

[Jonathan Blitz]

Many Thanks

Public Sub ChangeFormPic()

Dim aob As AccessObject

For Each aob In CurrentProject.AllForms
DoCmd.OpenForm aob.Name, acDesign

'change to your path and image file name
Forms(aob.Name).Picture = CurrentProject.Path & "\ET3028.jpg"

DoCmd.Close acForm, aob.Name, acSaveYes
Next aob

End Sub


--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.