Age validation

[dolovenature]

Hi,
I am absolutely novice in access, and i am entrusted with a responsibility.
My Problem is.....
I have a FORM(form1) related to a table(table1).
While entering data using the FORM if the AGE field is less than 18 then a Message box would appear "Age is not valid" with only one button is the box "Ok",
If the user click OK it will return to the FORM.
can anybody help with the code?



Regards
saikat

[Missinglinq]

...can anybody help with the code?

I'm sure we can, if you'll re-post your problem as a new thread! Placing your post here, on someone else's thread, is considered highjacking and is frowned upon, not only here but on all forums. Be sure to give your thread a descriptive title, such as 'Age validation with warning message.'

Looking forward to hearing from you!

Linq ;0)>

[pbaldy]

I split this out to a new thread.

[dolovenature]

Thanks Everybody,

It was my ignorance about this forum...sorry..

Saikat

[pbaldy]

No problem, and welcome to the site!

[Missinglinq]

Is the age being entered by the user or is the date of birth being entered and you need to calculate the age and pop up your warning based on that?

If the former is the case, this will do it:

Private Sub txtAgeField_BeforeUpdate(Cancel As Integer)
 If Me.txtAgeField < 18 Then
  MsgBox "Age is not valid"
  Cancel = True
  txtAgeField.SelStart = 0
  txtAgeField.SelLength = Len(Me.txtAgeField)
 End If
End Sub

If the DOB is being entered, this modification will work:

Private Sub txtDOB_BeforeUpdate(Cancel As Integer)
 
Dim TrueAge As Integer
   
If Nz(Me.txtDOB, "") <> "" Then

TrueAge = DateDiff("yyyy", [txtDOB], Date) + Int(Format(Date, "mmdd") < Format([txtDOB], "mmdd"))

 If TrueAge < 18 Then
  Cancel = True
  txtDOB.SelStart = 0
  txtDOB.SelLength = Len(Me.txtDOB)
  MsgBox "Age is not valid"
 End If

End If

End Sub

Linq ;0)>