Set rw1 = CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код)

Private Sub Form_Timer()
    If Time() = "11:42:00" Then
      Dim rw1 As String
      Set rw1 = CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код)
      Do Until rw1.EOF
           If IsNull(rw1!Код) Then End If
             Else
             DoCmd.OpenForm "Ф_Оконч_Прост"
      rw1.MoveNext
           End If
      Loop
   End If
End Sub

 Dim rw2 As DAO.Recordset

 Dim rw1 As DAO.Recordset

 Dim rw1 As Recordset

If Not .BOF

Then

Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub
Private Sub Form_Timer()
   If Time() = TimeSerial(11, 42, 0) Then
      With CurrentDb.OpenRecordset("select * from [Запрос] where Код=" & Me.Код)
         If Not .BOF Then
             DoCmd.OpenForm "Форма"
         End If
      End With
   End If
End Sub

Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
   If Time() = TimeSerial(10, 0, 0) Or Time() = TimeSerial(11, 0, 0) Or Time() = TimeSerial(12, 0, 0) _
      Or Time() = TimeSerial(15, 0, 0) Or Time() = TimeSerial(16, 0, 0) Or Time() = TimeSerial(17, 0, 0) Then
      With CurrentDb.OpenRecordset("select * from [З_Приостанов] where Êîä=" & Me.Êîä)
         If Not .BOF Then
             DoCmd.OpenForm "Ф_Оконч_Прос"
         End If
      End With
   End If
End Sub

SELECT [Оперативные карточки].Код, [Оперативные карточки].[№ Доп], [Оперативные карточки].№_Договора, 
[Оперативные карточки].ОС, [Оперативные карточки].Статус_ОС, [Оперативные карточки].Дата_Оконч_Статус_ОС, [Оперативные карточки].ТС, 
[Оперативные карточки].Статус_ТС, [Оперативные карточки].Дата_Оконч_Статус_ТС, [Оперативные карточки].ФИО
FROM [Оперативные карточки]
WHERE ((([Оперативные карточки].ОС)="Есть") 
AND (([Оперативные карточки].Статус_ОС)="Приостановлена") 
AND (([Оперативные карточки].Дата_Оконч_Статус_ОС)=([Оперативные карточки].[Дата_Оконч_Статус_ОС])
Between Date() And DateAdd("d",3,Date()) Or ([Оперативные карточки].[Дата_Оконч_Статус_ОС]) 
Between Date() And DateAdd("d",-1000,Date()))) 
OR ((([Оперативные карточки].ТС)="Есть") 
AND (([Оперативные карточки].Статус_ТС)="Приостановлена") 
AND (([Оперативные карточки].Дата_Оконч_Статус_ТС)=([Оперативные карточки].[Дата_Оконч_Статус_ТС])
Between Date() And DateAdd("d",3,Date()) Or ([Оперативные карточки].[Дата_Оконч_Статус_ТС])
Between Date() And DateAdd("d",-1000,Date())));

'таймер запуска формы приостановки
Private Sub Form_Timer()
  Select Case Hour(Time())
  Case 10, 11, 12, 15, 16, 17
   If Minute(Time()) = 0 And Second(Time()) = 0 Then
      With CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код)
         If Not .BOF Then
             DoCmd.OpenForm "Ф_Оконч_Прост"
         End If
      End With
   End If
  End Select
End Sub