Private Sub Liste4_Click()



Me.Metin6 = Application.CurrentProject.Path & "\" & Liste4.Column(0)

Set player = Me.WindowsMediaPlayer0.Object





WindowsMediaPlayer0.Width = 5670

WindowsMediaPlayer0.Height = 5670

player.settings.autoStart = True

player.url = Me.Metin6

End Sub

şeklinde deneyiniz. Bu kod ile genişlik ve yükseklik 10 cm. olarak belirlenir.

5670 değeri twip değeridir.
567 Twip = 1 cm., 

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

sayın mr.mustafa,

Alıntı:...Ayrıca oynayan videoyu tekrardan otomatik oynatma kodunu...

bu talebiniz için,aşağıdaki komut ifadesini 

satırının bir altına dahil ederek;ilgili video görselinin tekrar çalışmasını sağlayabilirsiniz.

.setMode
Aktif veya inaktif döngü modu veya rastgele modunu ayarlamak için kullanılır

loop
Döngü,tekrarlama anlamındadır.

bilgilerinize,iyi çalışmalar,saygılar.

Alıntı: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.

1. mesajınızdaki örnekte activex denetiminin adı WindowsMediaPlayer0, 8. mesaja eklediğiniz kodda WindowsMediaPlayer5 yazıyor.

Ayrıca benim önceki mesajımda yazdığım kod

WindowsMediaPlayer0.Width = 5670

iken siz son mesajınızda yazdığınız kod

player.Width = 5670

ikisi aynı değil.

Sonraki sorunuza atoz hoca cevap yazmış.

Yardımlarınız için çok teşekkürler. Sorunların hepsi halloldu. Çalışmalarınızda başarılar.