AccessTr.neT

Tam Versiyon: Kayan Yazı Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
yapmış olduğum dosyada doğum günlerini süzerek bir kayan yazı çalışması yaptım. ancak süzülen tarih yoksa , yani sorgu boşsa hata veriyor. bu hatayı nasıl giderebilirim ve bu gün için herhangi bir kayıt yok uyarısı yazdırabilirim. şimdiden teşekkürler.
timer kodunu aşağıdakiyle değiştirip dener misiniz
Not: çalışma anında kayıtla oynayıp doğum gününü değiştirseniz bile maalesef sadece formu açıp kapatınca etkili oluyor
Private Sub Form_Timer()
With Me.ET
End With
Static strMsg As String, intLet As Integer, intLen As Integer
Dim strTmp, sssSQL As String
Const TXTLEN = 50
'Değişim Başla_________________________
sssSQL = " SELECT Tablo1.adi_soyadı, Tablo1.dugum_tar " & _
" FROM Tablo1 " & _
" WHERE Tablo1.dugum_tar = Date() " & _
" ORDER BY Tablo1.dugum_tar"
'Değişim _________________________Bitti

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset(sssSQL)

mes = ""
'ekleme Başla__________________________
If rs.RecordCount = 0 Then
mes = Date & " Tarihine ait kayıt yok"
GoTo 10
End If
'ekleme Başla__________________________
rs.MoveFirst
Do Until rs.EOF
mes = " *** " & rs.Fields(0) & " / " & Date & " *** " '<==Değişti fields("SSS") yerine ilk alan fields(0)
rs.MoveNext
Loop
rs.Close

10 '<==eklendi
If Len(strMsg) = 0 Then
strMsg = Space(TXTLEN) & mes & Space(TXTLEN)
intLen = Len(strMsg)
End If
intLet = intLet + 1
If intLet > intLen Then intLet = 1
strTmp = Mid(strMsg, intLet, TXTLEN)
ET.Caption = strTmp
End Sub
teşekkürler @"halily"


sorun çözülmüştür.