Kodu aşağıdaki şekilde değiştiriniz.
Kod:
Private Sub Form_Load()
If DCount("s_goruldu", "tblsinif", "s_goruldu='HAYIR'") <= 0 Then
Me.lblBildirim.Caption = ""
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
Else
Me.lblBildirim.Caption = ""
End If
End Sub