Change textbox word problem 1

[kupe]

If the field, LastJobEndDate, is more than 28 days old, a message should appear in field DailyGrind 'Available'.

For some unknown reason, this sub won't change the message. H e l p, please Experts.

Private Sub Form_Current()

If Abs(DateDiff("d", LastJobEndDate, Date)) >= 28 Then
Forms!frmMatrix.frmWorkers.Form!DailyGrind = "Available"

End If

End Sub

 

[mp9]

Is the DailyGrind field bound to a table field? If not, try:

Private Sub Form_Current()

    If Abs(DateDiff("d", LastJobEndDate, Date)) >= 28 Then
        Forms!frmMatrix.frmWorkers.Form!DailyGrind = "Available"
    Else
        Forms!frmMatrix.frmWorkers.Form!DailyGrind = vbNullString      
    End If

End Sub

http://www22.brinkster.com/accessory/

 

[kupe]

Looks a great improvement on mine. Thank you very much, mp9. Cheers

 

[PHV]

You may even use this simpler condition:
If LastJobEndDate <= Date - 28 Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886