• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Müzik Deposu

  • Konbuyu başlatan Konbuyu başlatan Taruz
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
mexceluu9.jpg





Merhaba..

Bu çalışma sayesinde bilgisayarınızdaki medya (özellikle de müzik) dosyalarını, form üzerinden yönetebilirsiniz..
 

Ekli dosyalar

harikaa olmuş yaaa:) Taruz ellerine sağlık, mükemmelsin.. Eğerki bi eleştiri yapmama müsade edersen, şunu söyleyebilirm, tabi daha da iyisi olması açısından sdece, şarkı çalarken başka bi şarkı 1kez tıklandıgında hemen duruo önceki çalan şarkı, önemli bişi deil ama kullanım açısından daha gzel olurdu sanki die düşündm ben.. Tekarardan teşekkrler paylaşımın ve emeğin için..
 
Merhaba halise..

Teşekkür ederim.. Beğenmenize sevindim..;)

Aslında o özelliği ben kullanışlı bulmuştum..

Ama siz madem öyle istiyorsunuz ;) :

Listenin Güncelleştirme Sonrasında'ki olay yordamını silip Çift Tıklandığında'ya ekleyin, istediğiniz hale gelecektir..

Selamlar..
 
Tamamdır, teşekkür ederim Taruz .. Bu maharetin gerçekten harikaa:bravo:
 
harikasın kardeşim ellerine saglık müthiş başarılarının devamını diler saygılar sunarım
 
ellerinize sağlık her zamanki gibi harika olmuş
 
Çok Güzel Olmuş Sayın Taruz.

Çok Güzel Olmuş Sayın Taruz.
Bir Şey rica etsem, bu projeyi ana hatlarıyla sunsanız paylaşıma nasıl olur???
Ben çok merak ediyorum nasıl yapıyosunuz gözat ı felan....
 
Merhaba..

Değerli arkadaşlar, güzel sözleriniz için bende size teşekkür edrim..


Çok Güzel Olmuş Sayın Taruz.
Bir Şey rica etsem, bu projeyi ana hatlarıyla sunsanız paylaşıma nasıl olur???
Ben çok merak ediyorum nasıl yapıyosunuz gözat ı felan....

Tüm kodlar açık olduğu için her detayı inceleme şansınız var.. Gözat özelliği için; bu programda kullandığım modülün dışında, benimde sonradan sayın Zeki Gürsoy'dan gördüğüm bu kodları kullanabilirsiniz..


Kod:
Sub Test()
Dim fold As Object

Set fold = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Klasör seçiniz...", 0)

If fold Is Nothing Then Exit Sub

MsgBox fold.Self.Path
End Sub
Selamlar..
 
Elinize sağlık.

Yine harika bir çalışma yapmışsınız.
 
sayın taruz..

güzel bir proje ortaya koymussunuz paylaşımınız için teşekkürler
 
Sayın Taruz,
Access'e meraklı bizim gibi amatörlere sunduğunuz bu harika örneklerle ufkumuzu genişletiyorsunuz. paylaşımınız için çok teşekkür ederim.
 
güzel bir çalışma paylaşım için teşekkürler..
 
Merhaba Sn. Taruz

Programınız güzel olmuş emeğinize sağlık fakat;

Şarkı listesinde herhangi birine çift tıkladığımızda şarkı direkt açılmıyor
Şarkı çalarken listeye tıkladığımızda ise player stop durumuna geçiyor

Bunlarıda değiştirebilirseniz daha güzel olur

Saygılar
 
Ellerine sağlık arkadaşım. Çok güzel olmuş. Sayende müzik listem bir düzene girecek. Teşekkürler. :)
 
muhteşem olmuş gerçekten. Açık olarak tüm veritabanını göndersenizde incelesem? yeni başlıyor sayılırım.. elinize sağlık..
 
muhteşem olmuş gerçekten. Açık olarak tüm veritabanını göndersenizde incelesem? yeni başlıyor sayılırım.. elinize sağlık..

Sayın pc_ogren,

Kodlar gizli değil. Uygulamayı açarken Shift tuşunu basılı tutun.

İyi çalışmalar
 
Çok teşekkür ederim. Muhteşem olmuş gerçekten. Ama benim anlayabileceğimden çok daha karmaşık. Sorum sadece basitce bir media playerda bir tıklama ile şarkının nasıl dinletilebileceği..?
 
Geri
Üst