Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Πως μπορούμε να δούμε video μέσω φόρμας?

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #11  
Παλιά 18-09-12, 13:25
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Ανδρέα, στο παράδειγμα που ανέβασες σε προηγούμενο σου μήνυμα ήταν ενσωματωμένο το αντικείμενο 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
Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 19-09-12 στις 09:35.
Απάντηση με παράθεση
  #12  
Παλιά 19-09-12, 09:19
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 02-11-2011
Περιοχή: Κύπρος
Μηνύματα: 35
Προεπιλογή

Καλημέρα,

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

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


End Sub

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

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

Με εκτίμηση,

Ανδρέας Αχιλλέως
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Υποφόρμες ] Αναζήτηση σε υποφόρμα μέσω φόρμας nikipyl Access - Ερωτήσεις / Απαντήσεις 15 29-02-16 21:12
Τιμή σε List Box μέσω δεύτερης φόρμας γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 0 14-01-16 16:25
[ Φόρμες ] Αναφορά μέσω VBA σε αντικείμενο άλλης φόρμας. sarrpan Access - Ερωτήσεις / Απαντήσεις 2 27-01-14 14:56
Ενημέρωση Πεδίου Δευτερεύουσας Φόρμας μέσω Βοηθητικής Φόρμας Χρήστος Access - Ερωτήσεις / Απαντήσεις 1 17-04-12 19:18
Ενημέρωση Πεδίου μέσω βοηθητικής Φόρμας Χρήστος Access - Ερωτήσεις / Απαντήσεις 6 01-04-12 16:56


Η ώρα είναι 20:24.