Merhabalar, tablomdaki bir alanda belirli aralıklarla kontrol yaptırıp istediğim durum oluşunca metin kutusuna yazdırıyorum. Bu bildirime bir de bildirim sesi (mp3 vs) eklememiz mümkün müdür acaba?
Teşekkürler.

Örnek çalışmam :
  YeniUrunBildirimiYazdirma1.rar (Boyut: 57,16 KB / İndirilme: 105)

Sn salim.ekiz;
Yol sabitine mp3'un dosya yolunu belirtip, koyu olan satirlar tasinabilir.
Option Compare Database
Option Explicit
Const Yol As String = "C:\Users\salim.ekiz\Desktop\ALARM.mp3"
Dim Surec as long

Private Sub btnKapat_Click()
...
If Me.Dirty Then Me.Dirty = False
Shell ("taskkill /IM wmplayer.EXE /F")
DoCmd.Close
...
End Sub
Private Sub Form_Timer()
...
Me.listboxurunler.Requery
Surec =Surec +1
if Surec =1 then Call Shell("C:\Program Files\Windows Media Player\wmplayer.exe /Play /Close " & Yol, vbHide)
if Surec >1500 then Surec=0
Else
...
End Sub

(20-12-2015, 00:48)dsezgin83260 demiş ki: Sn salim.ekiz;
Yol sabitine mp3'un dosya yolunu belirtip, koyu olan satirlar tasinabilir.
Option Compare Database
Option Explicit
Const Yol As String = "C:\Users\salim.ekiz\Desktop\ALARM.mp3"
Dim Surec as long

Private Sub btnKapat_Click()
...
If Me.Dirty Then Me.Dirty = False
Shell ("taskkill /IM wmplayer.EXE /F")
DoCmd.Close
...
End Sub
Private Sub Form_Timer()
...
Me.listboxurunler.Requery
Surec =Surec +1
if Surec =1 then Call Shell("C:\Program Files\Windows Media Player\wmplayer.exe /Play /Close " & Yol, vbHide)
if Surec >1500 then Surec=0
Else
...
End Sub

Teşekkür ederim Sn dsezgin83260. Dediğiniz gibi uyguladım ama 1 sn arayla sürekli tekrarlıyor. Bir defa sesli uyarı vermesini veya timerdan bağımsız bir değer yani 5 dakikada bir gibi bir değer belirleme imkanımız olabiliyor mu?

Mesaj 2'de ki kirmizi satirlar eklenebilir. Ileti yazisinin yanip sonme araligi ile uyar ses farki olusturulmasi saglanabilir.

(20-12-2015, 03:08)dsezgin83260 demiş ki: Mesaj 2'de ki kirmizi satirlar eklenebilir. Ileti yazisinin yanip sonme araligi ile uyar ses farki olusturulmasi saglanabilir.

Teşekkür ederim sayın dsezgin83260. Denemelere başladım hemen. İyi çalışmalar. Sonucu size bildireceğim.

Sn Selim;
Liste kutusunda ki GORULDU alanini asagida ki kod ile form acmadan guncellenebilir.
Private Sub listboxurunler_DblClick(Cancel As Integer)
CurrentDb.Execute "Update tblSinif Set s_goruldu=iif(s_goruldu='EVET','HAYIR','EVET') Where ((s_id)=" & Me.listboxurunler.Column(0) & ")"
Me.listboxurunler.Requery
If DCount("*", "tblSinif", "[s_goruldu]='HAYIR'") > 0 Then Me.TimerInterval = 300 Else Shell ("taskkill /IM wmplayer.EXE /F")
End Sub
Toplam EVET, HAYIR ide dcount(... ile yapilabilir.

  SelimEkiz.rar (Boyut: 24,36 KB / İndirilme: 124)