Cannot add to value in previous months

[lbunch]

I have a After_Update event on 12 fields (one for each month as follows). The users will add number values into the fields. Is there way to set the after update to prompt the user that they cannot add to the value in this field if it is a previous month???


If Me.Txtinv10 >= Me.Txtinv10 and is previous month from current month

msgbox 'Value cannot be changed"

is what I am trying to obtain - I believe.


Private Sub txtinv10_AfterUpdate()
Forms!frms19_1.AgedSellOffDate = "11/10/2006"
Me.Requery
Me.txtinv11.SetFocus
End Sub

 

[seagoing]

On_Load ...ing the form, why not determine the current month and then disable all the controls on your form you do not want your users to be able to make an entry in?