(20/12/2015, 00:00)salim.ekiz yazdı:(19/12/2015, 22:19)salim.ekiz yazdı:(19/12/2015, 21:52)SCavusoglu yazdı: Me.lblBildirim.Caption = "uyarı mesajı"
kodunda tırnak işaretleri arasına istediğiniz uyarı mesajını yazabilirsiniz. "" bu haliyle uyarı olmayacaktır. zira uyarı almak istemiyorum demiştiniz sanıyorum.
kayıt yenilemesi yaptığınızda listbox_adi.requery kodu işinizi görecektir.
Almak istediğim uyarıyı kodda düzeltmiştim son eklediğim örnekte mevcut fakat form açıkken değerlerde değişiklik olursa uyarı kayboluyor. Yani hepsi s_goruldu='EVET' olduğunda bir tanesini HAYIR olarak değiştirince hemen yeniliyor ama uyarıyı kod içerisinde yazdığım halde neden kayboluyor?
Teşekkür ederim sn SCavusoğlu, requery kodunu doğru yere yazınca düzeldi. Şimdi de yeni düşen uyarı için bildirim sesi uyarlamaya çalışıyorum. Tekrar teşekkür ederim.
Bildirim sesini
Kod:
Option Compare Database
Option Explicit
Const Yol As String = "C:\Users\salimekiz\Desktop\ACCESS\popup.m4a"
Private Sub btnKapat_Click()
On Error GoTo Err_btnKapat_Click
If Me.Dirty Then Me.Dirty = False
DoCmd.Close
Exit_btnKapat_Click:
Exit Sub
Err_btnKapat_Click:
MsgBox Err.Description
Resume Exit_btnKapat_Click
End Sub
Private Sub Form_Load()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") <= 0 Then
Me.lblBildirim.Caption = "INCELENECEK URUN YOK"
End If
End Sub
Private Sub Form_Timer()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") > 0 Then
Me.lblBildirim.Visible = Not Me.lblBildirim.Visible
Me.listboxurunler.Requery
Call Shell("C:\Program Files\Windows Media Player\wmplayer.exe /Play /Close " & Yol, vbHide)
Else
Me.lblBildirim.Caption = "INCELENECEK URUN YOK"
Me.listboxurunler.Requery
End If
End Sub
Private Sub listboxurunler_DblClick(Cancel As Integer)
Dim acilacak_form As String
Dim kriter As String
acilacak_form = "frmkalitedetay"
kriter = "[s_id]=" & Me![listboxurunler]
DoCmd.OpenForm acilacak_form, , , kriter
End Sub