如何解决不能转到指定记录

Private Sub Form_Timer()
If Me.RecordSource = "" Then
Else
Me.TimerInterval = 2000
Me!提示.LeftMargin = Me!提示.LeftMargin + 20000
    If Me!提示.LeftMargin > 6000 Then
         Me!提示.LeftMargin = 0
    If Me.CurrentRecord < Me.RecordsetClone.RecordCount Then
      DoCmd.GoToRecord , , acNext
    Else
        If IsNull(DLookup("交货日期", "印件明细", "交货日期=#" & Date + 1 & "#")) Then
            MsgBox "明天无数据!", vbInformation, "提示"
        Else
            DoCmd.GoToRecord , , acFirst
        End If
    End If
    Me!提示.Caption = Left("【" & Me!客户名称 & "】" & Left(Nz(Me!印刷名称), 20) & " " & "(" & Me!工单号 & ")" & "今天到期...", 50)

   End If
   End If
End Sub