Select Case Trouble

[Dave]

Access 2007

Trying to get a reaction id age is less the 40 or greater then 72

I am getting NO reaction with this code

Private Sub Q1_AfterUpdate()
Dim age

age = DateDiff("d", [Q1], Date) / 365
Select Case Q1
Case "age < 40"
Forms!frmPage2.pgeIneligible.SetFocus
Case "age > 72"
Forms!frmPage2.pgeIneligible.SetFocus
Reason.Value = "Out of Age Range"
End Select
End Sub


Any assistance?

Thanks

dave

 

[Linq Adams via AccessMonster.com]

You're using Select Case Q1 but you to use the calculated age. Something like
this is what you need, I think.

Private Sub Q1_AfterUpdate()
Dim age as Integer

age = DateDiff("d", [Q1], Date) / 365

Select Case age

Case < 40
Forms!frmPage2.pgeIneligible.SetFocus

Case > 72
Forms!frmPage2.pgeIneligible.SetFocus
Reason.Value = "Out of Age Range"
End Select

End Sub

 

[Linq Adams via AccessMonster.com]

Meant to add that that should get the Case Select working properly. Not
exactly sure what the line

Forms!frmPage2.pgeIneligible.SetFocus

is supposed to be doing.. Is the form actually named

frmPage2

with a control named

pgeIneligible.SetFocus ?

What kind of control is pgeIneligible ?

 

[Dave]

That worked - thanks much,

dave

 

[Dave]

I renamed it for the purpose of this post.

it is another page on on the Page Object that has these fields.

Thanks

 

[Mike Painter]

Access 2007

Trying to get a reaction id age is less the 40 or greater then 72

I am getting NO reaction with this code

Private Sub Q1_AfterUpdate()
Dim age

age = DateDiff("d", [Q1], Date) / 365

Others have answered your question but note that using this to determine age
will mean you are wrong half the time on average.

Posted by Ken Getz: ( A long time ago)

Function GetAge(dtmBD as Date) As Integer
GetAge = DateDiff("yyyy", dtmBD, Date) + _
(Date < DateSerial(Year(Date), Month(dtmBD), Day(dtmBD)))
End Function

Basically, this counts on the fact that a True expression has a value of
-1, and so if the current date is less than the birthdate value in the
current year, it subtracts one from the year difference between the two.

If you're using Access 95 or 97, use a Date variable rather than a
variant.

--Ken

GetAge = DateDiff("yyyy", dtmBD, Date) +(Date < DateSerial(Year(Date),
Month(dtmBD),Day(dtmBD)))

 

[Dave]

Thanks for the additional insite

dave

Access 2007

Trying to get a reaction id age is less the 40 or greater then 72

I am getting NO reaction with this code

Private Sub Q1_AfterUpdate()
Dim age

age = DateDiff("d", [Q1], Date) / 365

Others have answered your question but note that using this to determine
age will mean you are wrong half the time on average.

Posted by Ken Getz: ( A long time ago)

Function GetAge(dtmBD as Date) As Integer
GetAge = DateDiff("yyyy", dtmBD, Date) + _
(Date < DateSerial(Year(Date), Month(dtmBD), Day(dtmBD)))
End Function

Basically, this counts on the fact that a True expression has a value of
-1, and so if the current date is less than the birthdate value in the
current year, it subtracts one from the year difference between the two.

If you're using Access 95 or 97, use a Date variable rather than a
variant.

--Ken

GetAge = DateDiff("yyyy", dtmBD, Date) +(Date < DateSerial(Year(Date),
Month(dtmBD),Day(dtmBD)))