Can someone tell me why do I get "Object required" error for this?
VBA highlights "Employees ="
Private Sub NewPayButton_Click()
Dim PayrollApp As Database
Dim Hours As Recordset
Dim Employees As Integer
Set PayrollApp = CurrentDb
Set Hours = PayrollApp.OpenRecordset("Hours")
Set Employees = DCount("[ID]", "Employees", "[Status] = 'Working'")
NewHours:
Hours.AddNew
Hours.Update
Set Employees = Employees - 1
If Employees > 1 Then GoTo NewHours
End Sub