Forum - Πως μπορούμε να δούμε video μέσω φόρμας?

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Πως μπορούμε να δούμε video μέσω φόρμας? (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/195-pos-mporoime-na-doime-video-meso-formas.html)

Ανδρέα, στο παράδειγμα που ανέβασες σε προηγούμενο σου μήνυμα ήταν ενσωματωμένο το αντικείμενο WindowsMediaPlayer8 (WindowsMediaPlayer Control).
Ο κώδικας που σου πρότεινα ήταν φυσικά βασισμένος στο WindowsMediaPlayer8 του παραδείγματος.
Αν δεν έχεις αντικείμενο WindowsMediaPlayer στη φόρμα σου και θέλεις να ανοίγεις το βίντεο με την προεπιλεγμένη εξωτερική εφαρμογή τότε χρησιμοποίησε:

Κώδικας:

Option Compare Database

Option Explicit

Private Declare Function ShellExecute _

                          Lib "shell32.dll" Alias "ShellExecuteA" _

                              (ByVal hWnd As Long, ByVal lpOperation As String, _

                               ByVal lpFile As String, lpParameters As Any, _

                               lpDirectory As Any, ByVal nShowCmd As Long) As Long
 

Private Sub cmdOpenMovie_Click()

    ShellExecute 0, "open", "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv", "", "C:\", 3

'    ShellExecute 0, "open", Nz(Me.MoviePath, ""), "", "C:\", 3

End Sub

Καλή συνέχεια!

Τάσος

Καλημέρα,

Τελικά τα βρήκα!
Έχω αλλάξει λίγο τον κώδικα του Τάσου αλλά φυσικά δεν ξέρω αν είναι ο πιο σωστός τρόπος.

Private Sub aaa_Click()
Set wmp = Me.WindowsMediaPlayer7.Object
wmp.URL = Nz([Forms]![Movie Search Result]![MoviePath])

End Sub

Έχω βάλει στη φόρμα "Movie Search Result" το πεδίο "MoviePath" στο οποίο έχω καταχωρημένο το link του βίντεο.

Ευχαριστώ για τη βοήθεια,

Με εκτίμηση,

Ανδρέας Αχιλλέως