CurrentProject.Connection.Execute ("UPDATE Processing SET Busy = 0 WHERE (((IdUser)=" & Forms!Password_entry!Id & ") AND ((Busy)=" & Forms!Password_entry!Id & "))")

Public Sub RemoveClick()
Dim msg As String, Style As Integer, Title As String, Response As Integer
'Dim dbt As Database
Dim MyTbl As TableDef
Dim j As Long
Dim er As Long

   On Error GoTo Remove_Click_Error

er = 1
msg = "Пожалуйста, все пользователи должны выйти из базы данных, прежде чем продолжить!"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Внимание!"

er = 2
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
er = 3
    DoCmd.Hourglass True
    For Each MyTbl In CurrentDb.TableDefs
        If (MyTbl.Attributes And dbSystemObject) = False Then
er = 4
            For j = 0 To CurrentDb.TableDefs(MyTbl.Name).Fields.count - 1
er = 5
                If CurrentDb.TableDefs(MyTbl.Name).Fields(j).Name = "Busy" Then
er = 6
'If MyTbl.Name = "TypeProcessing" Then Stop
                    CurrentProject.Connection.Execute ("UPDATE " & MyTbl.Name & " SET Busy = 0")
                    GoTo 1
                End If
            Next j
        End If
1:
    Next MyTbl
    MsgBox "Очистка прошла успешно.", , "Выполнение"
    DoCmd.Hourglass False
End If


   On Error GoTo 0
   Exit Sub

Remove_Click_Error:
    
    If er <> 0 Then
        MsgBox "Ошибка процесса (" & er & ")", , "Ошибка " & Err.Number & "!"
    Else
       MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Remove_Click of Form_Settings"
    End If
    
End Sub