sayın mr.mustafa,
bahsettiğiniz bu durumun nedeni;
resim yolu bulunamadığında gerçekleşen bir husustur.2.mesajda ekli bulunan örneği kendi uygulamanızın bulunduğu klasöre aktardığınızda,tablo içeriğindeki resim yollarını kendi resim yolunuza göre yeniden düzenlemelisiniz.bilgilerinize.
bir önceki mesajda öneri olarak belirtilen CurrentProject.Path ifadesini uygulamanıza dahil etmek için aşağıdaki yönlendirmeleri gerçekleştirerek,bu durumu gidererek çözüm elde edebilirsiniz.
YAPILMASI GEREKENLER
1) 2.mesajda ekli bulunan uygulamayı,video isimli resimlerinizin bulunduğu klasör içerisine ekleyiniz.
2) 2.mesajda ekli bulunan uygulama içerisine aşağıdaki kodları gerekli kısımlara öncekileri iptal ederek üzerine ekleyiniz.
Form1 formunun Liste4 denetiminin Tıklandığında olay yordamına
Kod:
Private Sub Liste4_Click()
Me.Metin6 = Application.CurrentProject.Path & "\" & Liste4.Column(0)
Set Player = Me.WindowsMediaPlayer0.Object
Player.settings.autoStart = True
Player.url = Me.Metin6
End Sub
tbl_fragman formunuzun Kimlik denetiminin Tıklandığında Olay Yordamına da
Kod:
Private Sub Kimlik_Click()
Forms![Form1]![Metin2] = Application.CurrentProject.Path & "\" & DLookup("[url]", "tbl_fragman", "[Kimlik]=" & Forms![Form1]![tbl_fragman].Form![Kimlik])
Set Player = Forms![Form1]![WindowsMediaPlayer0].Object
Player.settings.autoStart = True
Player.url = Forms![Form1]![Metin2]
End Sub
3) tbl_fragman isimli tablonuzun içerisindeki kayıtları sadece resim adları olarak kaydediniz.
Kod:
Kimlik url
1 Chrysanthemum.jpg
2 Desert.jpg
3 Tulips.jpg
şeklinde.bu işlemleri uyguladığınız takdirde,çalıştırdığınızda;artık,resim yolu konusunda sorun yaşamamış olacaksınız.bilgilerinize...iyi çalışmalar,saygılar.