Phew I'm in the clear
You changed the names of all my variables
This is how it should read
Dim db As DAO.Database ' DAO
Dim db As DAO.Database ' DAO
Dim rec As DAO.Recordset ' DAO
Dim datHireDate As Integer
Dim dat40 As Integer
Dim dat80 As Integer
Dim dat120 As Integer
Dim strStartDate As String
Set db = CurrentDb()
Set rec = db.OpenRecordset("EMPLOYEES")
Do Until rec.EOF
strStartDate = rec.Fields("HireDate")
datEmployed = DateDiff("d", strStartDate, Date)
dat40 = DateDiff("d", strStartDate, DateAdd("yyyy", 1, strStartDate))
dat80 = DateDiff("d", strStartDate, "01/01/" & Year(DateAdd("yyyy", 2, strStartDate)))
dat120 = DateDiff("d", strStartDate, DateAdd("yyyy", 10, strStartDate))
If datHireDate < dat40 Then
rec.Edit
rec.Fields("VacHrsAvailable") = "0"
rec.Update
End If
If datHireDate >= dat40 And datHireDate < dat80 Then
rec.Edit
rec.Fields("VacHrsAvailable") = "40"
rec.Update
End If
If datHireDate >= dat80 And datHireDate < dat120 Then
rec.Edit
rec.Fields("VacHrsAvailable") = "80"
rec.Update
End If
rec.Edit
If datHireDate >= dat120 Then
rec.Fields("VacHrsAvailable") = "120"
rec.Update
End If
rec.MoveNext
Loop
rec.Close
End Sub