Не могу разобраться, помогите, пожалуйста с кодом.

Пятница, 15 Февраля 2019 г. 10:48 + в цитатник

Ругается на переменную.

Нужно проверить свойства запроса [З_Приостанов] (если пусто до игнорировать запуск формы, ну и соответственно...)
но при запуске ругается на строчку -

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

а именно "rw1 = "

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