Καλημέρα Τάσο,
Ελπίζω να είσαι καλά;
Έχω βάλει το κουμπί, μετα έχω ακυρώσει το παράθυρο για τις ρυθμίσεις και πήγα στο properties>EVENT>OnClick και διαλέγω "event procedure", μετά εμφανίζεται το
VBA editor. Εκεί Τάσο, πρέπει να σβήσω το "Private Sub Command28_Click() End Sub" και να βάλω τον κώδικα τον οποίο μου έχεις δώσει;
Έχω κάνει το εξής:
Έχω σβήσει την αρχή του κώδικα που έβγαλε αυτόματα:"Private Sub Command28_Click() End Sub"
και έκανα paste αυτό:
Option Compare Database
Option Explicit
Private wmp As WindowsMediaPlayer
Private Sub cmdOpenMovie_Click()
Set wmp = Me.WindowsMediaPlayer8.Object
wmp.URL = Nz(Me.MoviePath, "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv")
End Sub
Ονόμασα και το κουμπί : "cmdOpenMovie"
Όμως όταν το πατώ μου βγάζει λάθος!
Δες το συνημμένο..
Ευχαριστώ πολύ για τον χρόνο σου :)
Με εκτίμηση,
Ανδρέας Αχιλλέως