kayıttan sonra sesli ikaz

[limanC34]

Selam Arkadaşlar
Örnek dosyadaki gibi kayıt işlemi bittikten sonra bir ses yada müzik çalınabilir mi?
Birde aynı isimden varsa ‘’aynı isimden bir kayıt var yinede kaydetmek istermisiniz’’ gibi mesaj nasıl ekleyebilirim?Kaydı yapabilmek şartıyla.
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim k As Range
If TextBox1.Text <> "" Then
    [B][COLOR="Red"]Set k = Range("B2:B65536").Find(TextBox1.Text, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If MsgBox("[ " & TextBox1.Text & " ] İsimli kişi kayıtlarda var." & _
        vbLf & "yinede kaydetmek istiyormusunuz?", vbYesNo + vbQuestion, "VAR") = vbNo Then GoTo atla
    End If[/COLOR][/B]
Son_Dolu_Satir = Sheets("VERİ").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("VERİ").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
Sheets("VERİ").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("VERİ").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("VERİ").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("VERİ").Range("E" & Bos_Satir).Value = TextBox4.Text
[B][COLOR="red"]Beep[/COLOR][/B]
MsgBox "KAYDETME  İŞLEMİ  TAMAMLANDI.."
Else
MsgBox "KİŞİNİN ADINI YAZMADAN KAYDA DEVAM EDEMEZSİNİZ...!!!"
End If
Sheets("YAZDIR").Range("B2").Value = TextBox1.Text
Sheets("YAZDIR").Range("B3").Value = TextBox2.Text
Sheets("YAZDIR").Range("B4").Value = TextBox3.Text
Sheets("YAZDIR").Range("B5").Value = TextBox4.Text
Sheets("YAZDIR").Range("B6").Value = TextBox5.Text
[B][COLOR="red"]atla:[/COLOR][/B]
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox1.SetFocus
End Sub

 

[Korhan Ayhan]

Selamlar,

Evren beyin çözümüne alternatif olarak aşağıdaki kodu denermisiniz. Kayıt tamamlandıktan sonra Windows'un ses dosyalarını çalar.

Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub CommandButton1_Click()
    Dim BUL As Range
    If TextBox1.Text <> "" Then
    Son_Dolu_Satir = Sheets("VERİ").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Set BUL = [B2:B65536].Find(TextBox1.Text, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ONAY = MsgBox("Kaydetmek istediğiniz " & TextBox1.Text & " isimli kişi daha önce kayıt edilmiştir." & vbCrLf & "Yinede kaydetmek istiyor musunuz ?", vbCritical + vbYesNo, "MÜKERRER KAYIT")
    If ONAY = vbNo Then GoTo Çıkış
    End If
    Sheets("VERİ").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
    Sheets("VERİ").Range("B" & Bos_Satir).Value = TextBox1.Text
    Sheets("VERİ").Range("C" & Bos_Satir).Value = TextBox2.Text
    Sheets("VERİ").Range("D" & Bos_Satir).Value = TextBox3.Text
    Sheets("VERİ").Range("E" & Bos_Satir).Value = TextBox4.Text
    Call PlayIt("c:\windows\media\tada.wav", 0)
    MsgBox "Kayıt işlemi tamamlanmıştır."
    Else
    MsgBox "Kayıt işlemini tamamlamak için lütfen kişinin adını yazınız !"
    End If
    Sheets("YAZDIR").Range("B2").Value = TextBox1.Text
    Sheets("YAZDIR").Range("B3").Value = TextBox2.Text
    Sheets("YAZDIR").Range("B4").Value = TextBox3.Text
    Sheets("YAZDIR").Range("B5").Value = TextBox4.Text
    Sheets("YAZDIR").Range("B6").Value = TextBox5.Text
Çıkış:
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox1.SetFocus
End Sub
 
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

 

[limanC34]

Sayın Evren Gizlen
Aynı isim tekrarı tamam fakat kayıt sonrası ses olayı çözülebir mi?Gerçi kayıttan sonra bir ses çıkıyor ama istediğim o sesi değiştirebilmek.

 

[limanC34]

Sayın Korhan Ayhan
İnternet o kadar kötükü cevabınızı geç görebildim.Çok yavaş açılıyor.
Valla ne diyeyim HARİKA.
Çok teşekkür ederim.
Saygılarımla.