Private Sub HID_Click()
Forms![ÇALIŞMA EKRANI]![Metin26] = Dlookup ("[videoyol]", "VIDEOLAR", "[egzersizid]=" & Forms![ÇALIŞMA EKRANI]![EGZERSİZ alt formu kopya].Form![HID])
If IsNull(Forms![ÇALIŞMA EKRANI]![Metin26]) Then
Forms![ÇALIŞMA EKRANI]![WindowsMediaPlayer5].URL = ""
Else
Set player = Forms![ÇALIŞMA EKRANI]![WindowsMediaPlayer5].Object
player.Width = 5670
player.Height = 5670
player.settings.autoStart = True
player.settings.volume = 0
player.URL = Forms![ÇALIŞMA EKRANI]![Metin26]
End If
Cevabınız için teşekkürler. Programımda aşağıdaki şekilde uyguladım fakat hata uyarısı veriyor." Run-Time error 438. Object doesn't support this property or method." Ayrıca oynayan videoyu tekrardan otomatik oynatma kodunuda belirtirseniz memnunolurum.
Son Düzenleme: 05/12/2014, 11:31, Düzenleyen: mr.mustafa.
(Sebep: Ekleme)