[AccessD] Embedding a WAV file

Rocky Smolin - Beach Access Software bchacc at san.rr.com
Wed Mar 2 11:25:09 CST 2005


Darren:

When I do the installable run-time I think I can include my WAV file and it 
will be transparent to the user. For beta testing I need to send them just 
one file.  So I'm still looking for a way to do this.

I did insert-->Object-->from file and inserted the wav file in an Unbound 
Object Frame.  But getting it to play in the On Click events of other 
controls, like command buttons, is the next problem.  And then, I would 
probably have to insert this UOF in every form.

Is there maybe a way of putting it into a field in a table and running it 
from there so it could be run from any form?

TIA

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com
858-259-4334

----- Original Message ----- 
From: "Darren DICK" <d.dick at uws.edu.au>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Tuesday, March 01, 2005 5:18 PM
Subject: RE: [AccessD] Embedding a WAV file


> Hi Rocky
> I have a folder in the App home folder for sounds. Also one for Images and
> Skins etc
> EG
> C:\Program Files\My app will be the 'home' folder
> And in it will be
> C:\Program Files\My app\Sounds (About 5 or 6 files in here)
> C:\Program Files\My app\Images (3 more folders and about 20 files in here)
> C:\Program Files\My app\Skins (1 folder (but it can grow) and many files 
> in
> here)
>
> I install them when I install the app.
> They are my 'standard' folders and files and go with every app.
> And I refer to them now by heart with lines like
> (I actually use globals for the length of the session But can be done at a
> form Sub level just as easy)
> EG
> Dim strSkinToUse as String
> Dim strSkinFolder as String
> Dim strImagesFolder as String
>
> strSkinToUse = Dlookup("[SkinName]","tblOptions")
> strSkinFolder = Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name)) - 1) & "\Skins\" & strSkinToUse
> strImagesFolder= Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name)) - 1) & "\Images"
> strSoundsFolder= Left(CurrentDb.Name, Len(CurrentDb.Name) -
> Len(Dir(CurrentDb.Name)) - 1) & "\Sounds"
>
> Then I refer to each skin component like.....('Cause I know 'em off by
> heart)
>
> Me.picture =  strSkinFolder  & "\Background.jpg"
> Me.imgMyLogo = strImagesFolder & "\OurLogo.jpg"
>
> I use the API code "PlaySound" for Playing Sounds
> Eg
> Private Sub Form_Load()
> PlaySound (strSoundsFolder & "\Logon.wav")
> End sub
>
> It works and is pretty simple.
>
> HTH
>
> See ya
>
> Darren
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




More information about the AccessD mailing list