ADODB.Recordset: операция не разрешена, когда объект закрыт - PullRequest
Новая
       44

ADODB.Recordset: операция не разрешена, когда объект закрыт

0 голосов
/ 04 июня 2019

Я пытаюсь обновить столбец в определенном поле, т.е. время выхода из системы на основе emp_name и текущей даты.Если текущая дата и emp_name не найдены, тогда должно отображаться сообщение.

Я использовал Recordset.EOF, но в этой строке выдается ошибка. 

  Set Connection = New ADODB.Connection
  Connect = "Provider=Microsoft.ACE.OLEDB.12.0;"
  Connect = Connect & "Data Source=" & DBFullName & ";"
  Connection.Open ConnectionString:=Connect


  'Create RecordSet
  Set Recordset = New ADODB.Recordset
  With Recordset

'Filter Data
Dim emp_name As Variant
emp_name = Replace(Application.UserName, ",", "")
Source = "UPDATE timetbl Set logouttime =#" & tmp & "#  where empname =  '" & emp_name & "' and c_date=#" & Date & "#"
.Open Source:=Source, ActiveConnection:=Connection
If Recordset.EOF = False Then 'error is here
   MsgBox "Please Login first"
Else
    'My code is here
End If
...