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.

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