Kayitlara Ses Dosyasi Eklemek

[oerbas]

Selamlarımla ;

Örneğin Sayfa1 Çalışma sayfasında personel bilgileri mevcut.Ses kayıtları ise C:\PERSONEL\SES dizininde personel ile ilgili ses kaydına o personelin ismini vereceğim. Böylece UserForm üzerinde ComboBox aracılığı ile Personel adı seçilince o personele bağlı olan ses kaydının çalmasını istiyorum. Bu mümkünmüdür. ses kaydı mp3 olabilir.

 

[Zeki Gürsoy]

Merhaba,
Formunuza gizli media player nesnesi ekleyin.
Böylece combo her değiştiğinde ilgili mp3'ü çalabilme
imkanınız olur.

 

[oerbas]

Forma Pedia Player nesnesi ekledim yapmam gerekenleri analatabilirmisiniz

 

[Zeki Gürsoy]

http://www.excel.web.tr/showthread.php?t=27685

Aynı konu için birden fazla başlık açmayacağınızı umuyorum.

Aşağıdaki şekilde ses dosyasını çalıştırabilirsiniz.

Private Sub ComboBox1_Change()
    WindowsMediaPlayer1.URL = "C:\PERSONEL\SES\" & _
    ComboBox1 & ".waw" 'Yada ".mp3"
    
    'MPlayer eski vesiyon ise,
    'WindowsMediaPlayer1.Filename = "C:\PERSONEL\SES\" & _
    'ComboBox1 & ".waw" 'Yada ".mp3"

End Sub

 

[oerbas]

Sayın anemos verdiğiniz kodları ComboBox1 Change olayına bağladım ama olmadı biraz açıklama yapabilirmisiniz

 

[Zeki Gürsoy]

Merhaba,
Dosyanız üzerinden gidelim.Ekleyebilir misiniz?

 

[oerbas]

Ses Dosyasi

Selamlar Hocam
Dosyamı eklemeye çalıştım ama dos boyutu büyük olduğu için ses ve resim dosyalarının için boşaltmak zorunda kaldım. Siz C:\PERSONEL dizininde dosya oluştursunuz. ekleyeceğiniz ses ve resim isimleri xxx, yyy, vvvv, rrr şeklinde olması gerekiyor.

Ben ekli dosyada açıkladığım başka bir yöntem denedim oldu ama yine dosyada bellirttiğim şekilde hata veriyor. bir incelerseniz....

 

[Zeki Gürsoy]

Siz Combobox'a "persadı" ismi verdiğiniz için çalışmamış.
Son hali şu şekilde olmalı.

Private Sub persadı_Change()
 WindowsMediaPlayer1.URL = "C:\PERSONEL\SES\" & persadı.Text & ".mp3"
 cmdbul_Click 
End Sub

Açıkladığınız uyarıyı görmemek için aşağıdaki kodu 1 sefere mahsus çalıştırmanız yeterlidir.

Sub regolustur()

Dim deg As Object

anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"

Set deg = CreateObject("WScript.Shell")

deg.RegWrite anahtar, 1, "REG_DWORD"

End Sub

 

[oerbas]

Selemlar hocam öncelikler yardımlarınız için çok teşekkür ederim. Dediğiniz gib düzeltme yaptım ve oldu. Yalınız bahsettiğim hata mesajını vermemesi için gönderdiğiniz kodları birsefere mahsus çalıştırmak üzere bir bodül içine atıp form üzerinde bir düğme aracılığı ile çalıştırdım aşağıdaki satır hata verdi. Saygı ve selamlarımla.


anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"

 

[oerbas]

Hocam gönderdiğim dosyanın DEVAM DURUMU sayfısı için bir sorum daha olacak.
Bu sayfanın C2:H34 Hücre aralığını silen kodlara ihtiyacım var. Fakat E sütununda E2:E34 Hücre aralığındaki tarih Bugünün tarihinden büyükse o satır silinmeyecek. Ben bu soruyu form üzerinde sormuştum ama yardımcı alan arkadaşın verdiği kodlar çalışmadı.

 

[Zeki Gürsoy]

"regolustur" prosedürünü boş bir Excelde de çalıştırabilirsiniz, hata için şu an fikrim yok.

Son mesajınız için de şunu bir deneyin.

Sub sil()
    For a = 34 To 2 Step -1
        If CDate(Sheets("DEVAM DURUMU").Cells(a, "e")) < Date Then
            Rows(Sheets("DEVAM DURUMU").Cells(a, "e").Row).Delete
        End If
    Next
End Sub

 

[oerbas]

Hocam bu kod hata veriyor.
Önce a değişkeni hata veridi. En üst satıra
Dima a dedim Bu seferde şart satırı hata verdi

Sub sil()
For a = 34 To 2 Step -1
If CDate(Sheets("DEVAM DURUMU").Cells(a, "e")) < Date Then
Rows(Sheets("DEVAM DURUMU").Cells(a, "e").Row).Delete
End If
Next
End Sub​