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