[AccessD] open a video file...

Sample sent offlist that plays vids inside a Windows Media Player ActiveX control, embedded into the form.

Darren
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kostas Konstantinidis
Sent: Monday, 17 February 2014 11:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] open a video file...

Stuart,
thank's a lot, it works perfect

/kostas

-----Αρχικό μήνυμα-----
From: Stuart McLachlan
Sent: Monday, February 17, 2014 1:59 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] open a video file...

Try this:

'' Use double quote to delimit wmplayer path containing a space.
DIm dq as string
dq = chr$(34)

'Get the file name
fname =  Dir$("F:\Trailers\" & Me.FilmID & ".*")

if fname = "" then
  `appears a message for file not found
else
  Shell dq & _
       "C:\Program Files (x86)\Windows Media Player\wmplayer.exe" &  _
       dq  & _
      " F:\Trailers\" & fname, vbNormalFocus end if


--
Stuart

On 14 Feb 2014 at 19:44, Kostas Konstantinidis wrote:

> hi,
> In a form I use the follown code:
>
> Private Sub FilmID_DblClick(Cancel As Integer) Dim fname, x As String 
> fname = "F:\Trailers\" & Me.FilmID & "*"  <- I don´t know if its the 
> correct syntax x = IIf(InStrRev([fname], ".") > 0, Mid([fname], 
> InStrRev([fname], ".") + 1), "") if fname = "" then `appears a message 
> for file not found else Shell "C:\Program Files (x86)\Windows Media 
> Player\wmplayer.exe F:\Trailers\fname", vbNormalFocus End Sub
>
> Every stored file into F:\ Trailers is titled with the same FilmID as 
> filename (e.g FilmId = 3070 filename = 3070.mp4) but the extensions 
> may be different while some files are saved as .mp4 some as .avi and 
> some others as .flv etc rtc... When Shell() calls wmplayer, it opens 
> but it can't play the file because obviously it can't find it...
>
> Thank you for any help
>
> /kostas
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com