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
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
Kod:
Kimlik url
1 Chrysanthemum.jpg
2 Desert.jpg
3 Tulips.jpg