Video & Audio via Access Form (1 Viewer)

gstylianou · Jan 9, 2018

Music via Access

Dear friends hello and Hppy New Year 2018

I'm trying to find a way so that the embeded media player which is included into frmWMV to change to the next song tarck or video ... Because of my poor knowlege to vba i cannot finding a way ...

I would like your help..

(in order to check my attached example please copy the database on C: \)

isladogs · Jan 9, 2018

Hi

You have uploaded an MDB file so I'm guessing you are using an older version of Access / Windows

When I opened it, there is a missing reference for Windows Media Player (wmp.dll) which I believe is no longer supplied with Windows.

Sorry but I am unable to assist you.

however, if my memory is correct there is an example database of the same thing somewhere on this site. Do a site search?

1268 · Jan 9, 2018

ht

tp://p2p.wrox.com/access-vba/5637 0-creating-media-player-1 1-object-access-vba.html

Try searching media player vba automation.

Sent from my SM-G950U using Tapatalk

gstylianou · Jan 9, 2018

ridders said:
Hi

You have uploaded an MDB file so I'm guessing you are using an older version of Access / Windows

When I opened it, there is a missing reference for Windows Media Player (wmp.dll) which I believe is no longer supplied with Windows.

Sorry but I am unable to assist you.

however, if my memory is correct there is an example database of the same thing somewhere on this site. Do a site search?

Dear friend ridders,

Find attached the correct database (.accdb). Please extract the zip file on C:\ and put some audio files into Media Files folder inside the Mp3 subfolder, moreover as some video files into an Mp4 subfolder...Then, you can select the media files from the main form....and lets see if we can do something..

Thanks again

isladogs · Jan 9, 2018

Thanks for the accdb version but I still have the same issue in Windows 10.
The required VBA reference library wmp.dll isn't on my computer

gstylianou · Jan 9, 2018

ridders said:
Thanks for the accdb version but I still have the same issue in Windows 10.
The required VBA reference library wmp.dll isn't on my computer

Its strainge because i'm using also Win10 and office 2016 32Bits....sorry i cannot help....

gstylianou · Jan 9, 2018

ridders said:
Thanks for the accdb version but I still have the same issue in Windows 10.
The required VBA reference library wmp.dll isn't on my computer

Try this On-Load event of the form
The line below is only required if you actually set Access to have Reference to the Window Media Player within VBA References. This gives you access to the wmp.dll

Set wmp1 = CreateObject("WMPlayer.OCX.7")

arnelgp · Jan 10, 2018

here is your Jukebox.
check the code behind the
player form.

gstylianou · Jan 10, 2018

arnelgp said:
here is your Jukebox.
check the code behind the
player form.

My friend ... I have no words .. !! Thank you very much for your help .. I will study your code and if there is a problem or I need anything i will come back again to ask for help.!!

Thanks again..

arnelgp · Jan 10, 2018

Comeback anytime.

gstylianou · Jan 11, 2018

arnelgp said:
Comeback anytime.

Good morning to everyone,

I do not know if what I ask after the valuable help I got from arnelgp is a game or something quite complicated .. !!

After the help from arnelgp we managed and the windows media player can now recognize the next song or video track and work wonderfully (again thanks my friend arnelgp for solution).

However, the ideal is when the song changes the list box which is appear on the left side of the form, can be able to change to the correct track name..!

I do not know if this can be feasible..and i'm asking your help again..!!

Note: If the above issue can not be feasible, i dont have any problem if we can do the same thing into a new Field on the form..!

Thanks again..!!

moke123 · Jan 11, 2018

if I may, can I suggest a small edit. I notice in the on unload event of your form frmMovies you have

Code:

Private Sub Form_Unload(Cancel As Integer)

        Forms!frmWMP.cmdRefresh_Click
     
End Sub

If you open frmMovies by itself you cannot close this form or exit the database.

I would suggest you test for the frmWMP loaded state before executing the code. Not a big deal but awfully annoying.

Code:

Private Sub Form_Unload(Cancel As Integer)

    If CurrentProject.AllForms("frmWMP").IsLoaded Then
        Forms!frmWMP.cmdRefresh_Click
    End If
    
End Sub

gstylianou · Jan 11, 2018

moke123 said:
if I may, can I suggest a small edit. I notice in the on unload event of your form frmMovies you have

Code:

Private Sub Form_Unload(Cancel As Integer) Forms!frmWMP.cmdRefresh_Click End Sub

If you open frmMovies by itself you cannot close this form or exit the database.

I would suggest you test for the frmWMP loaded state before executing the code. Not a big deal but awfully annoying.

Code:

Private Sub Form_Unload(Cancel As Integer) If CurrentProject.AllForms("frmWMP").IsLoaded Then Forms!frmWMP.cmdRefresh_Click End If End Sub

Dear friend moke123,

You are absolutely right in what you are referring to, I changed the code by putting your code line and it works wonderfully ..
Thank you very much..!

isladogs · Jan 11, 2018

Just to say that, as suggested, I did try this the other day:

Code:

Set wmp1 = CreateObject("WMPlayer.OCX.7")

It didn't solve the problem of the missing reference so I couldn't open arnel's version either.
I removed the reference and then got repeated 'User Type not defined' errors at which point I lost interest...!

Not a problem as I don't need this myself but odd that nobody else seems to have the same issue

gstylianou · Jan 11, 2018

ridders said:
Just to say that, as suggested, I did try this the other day:

Code:

Set wmp1 = CreateObject("WMPlayer.OCX.7")

It didn't solve the problem of the missing reference so I couldn't open arnel's version either.
I removed the reference and then got repeated 'User Type not defined' errors at which point I lost interest...!

Not a problem as I don't need this myself but odd that nobody else seems to have the same issue

Ridders,

What is your office versnion?

isladogs · Jan 11, 2018

I tried it in both Access 2010 & Access 2016 with Windows 10 Pro

gstylianou · Jan 11, 2018

ridders said:
I tried it in both Access 2010 & Access 2016 with Windows 10 Pro

told you..its strange because also i'm using 2016 32bit office...... Sorry....i cannot help....

isladogs · Jan 11, 2018

I believe Windows Media Player was removed from Windows 10.
I don't have it on my PC and its not an optional feature I can add

UPDATE:
That's odd. My laptop runs Windows 10 Home & does have Media Player
I can load the app without error on the laptop.
Had a bit of trouble loading an MP3 file (possibly as I can't read Greek) but its now playing perfectly

Now I'm intrigued and will investigate further ....

isladogs · Jan 11, 2018

After some research about why Media Player was missing on my desktop PC, I found the following info at
https://betanews.com/2017/10/09/windows-10-update-removes-windows-media-player/

In case its useful to anyone else, here are the relevant parts of that article

The feature's removal came to light when users installed KB4046355 on devices running Windows 10 version 1709 -- the Fall Creators Update.

This update, referred to as FeatureOnDemandMediaPlayer, removes Windows Media Player from the OS, although it doesn’t kill access to it entirely.

If you want the media player back you can install it via the Add a Feature setting. Open Settings, go to Apps > Apps & Features, and click on Manage optional features.

Select Add a feature and then scroll down to the Windows Media Player entry and click on Install.

Whilst its old technology, it does still have its uses & I now have it back again.

Oddly the same update didn't remove WMP from my Windows laptop or tablet

gstylianou · Jan 12, 2018

Dear friends,

I'm here again because of another one serious issue. After the modification of the vba code (by arneg) in order the player to change automatically the next track, now i cannot add new song and i god the attached message... Please note that, the selected URL can store normally into a table but cannot be visible into MoveList..

Please your help again...!!

Video & Audio via Access Form (1 Viewer)

Registered User.

Attachments

MVP / VIP

Registered User.

Registered User.

Attachments

MVP / VIP

Registered User.

Registered User.

..forever waiting... waiting for jellybean!

Attachments

Registered User.

..forever waiting... waiting for jellybean!

Registered User.

AWF VIP

Registered User.

MVP / VIP

Registered User.

MVP / VIP

Registered User.

MVP / VIP

MVP / VIP

Registered User.

Similar threads

Users who are viewing this thread