I have a form on which I have a field named DOB which stores the
client's date of birth (mm/dd/yyyy).
I would like that when users open the form, a message should alert if
that person is over age 96 (yes I do have old clients...). If under
age 96, I would not like any message.
The match should therefore be done between the date stored in the DOB
field and the current date.
Is there a code to do this and where should it go. 6 3110
Copy the code from this link into a standard module: http://members.iinet.net.au/~allenbrowne/func-08.html
You can then put a text box on your form, with this its ContorlSource:
=IIf(Age([DOB]) >= 96, "Geriatric warning", Null)
The function allows you to specify a death date if appropriate.
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"Paolo" <jp***@tin.it > wrote in message
news:9f******** *************** ***@posting.goo gle.com... I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
I would like that when users open the form, a message should alert if that person is over age 96 (yes I do have old clients...). If under age 96, I would not like any message.
The match should therefore be done between the date stored in the DOB field and the current date.
Is there a code to do this and where should it go.
If it is only to happen when the form happens, then in either it's On Open
or On Load events add
If DateDiff("yyyy" ,Me!DOBField,Da te) >= 96 Then
MsgBox ("Message Here", ButtonStyle, Title)
end if
"Paolo" <jp***@tin.it > wrote in message
news:9f******** *************** ***@posting.goo gle.com... I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
I would like that when users open the form, a message should alert if that person is over age 96 (yes I do have old clients...). If under age 96, I would not like any message.
The match should therefore be done between the date stored in the DOB field and the current date.
Is there a code to do this and where should it go.
On 30 Jan 2004 06:53:03 -0800, jp***@tin.it (Paolo) wrote: I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
Well... actually, it stores the date of birth as a Double Float
number, a count of days and fractions of a day since midnight,
December 30, 1899. The display format is irrelevant to the problem.
I would like that when users open the form, a message should alert if that person is over age 96 (yes I do have old clients...). If under age 96, I would not like any message.
The match should therefore be done between the date stored in the DOB field and the current date.
Is there a code to do this and where should it go.
I'd suggest code in the Form's Current event to bring up a message
whenever someone either opens the form, or navigates to an the record
of such an Esteemed Elder (note: in Chinese culture, someone who
reaches the age of 96 is considered an "honarary centenarian"). Try
code like
Private Sub Form_Current()
Dim iAge As Integer
iAge = DateDiff("yyyy" , [DOB], Date())
' Correct for people whose birthday has not yet arrived
If DateSerial(Year (Date()), Month([DOB]), Day([DOB])) > Date() Then
iAge = iAge - 1
End If
If iAge >= 96 Then
Msgbox "This person is " & iAge & " years old, handle with respect!"
End If
End Sub
John W. Vinson[MVP]
Come for live chats every Tuesday and Thursday http://go.compuserve.com/msdevapps?loc=us&access=public
John W. Vinson <jvinson@STOP_S PAM.WysardOfInf o.com> wrote in
news:a2******** *************** *********@4ax.c om: On 30 Jan 2004 06:53:03 -0800, jp***@tin.it (Paolo) wrote:
I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
Well... actually, it stores the date of birth as a Double Float number
It stores it in 8 bytes.
--
Lyle
(for e-mail refer to http://ffdba.com/contacts.htm)
Being two 4-byte integers, IIRC.
Clive
"Lyle Fairfield" <Mi************ @Invalid.Com> wrote in message
news:Xn******** ***********@130 .133.1.4... John W. Vinson <jvinson@STOP_S PAM.WysardOfInf o.com> wrote in news:a2******** *************** *********@4ax.c om:
On 30 Jan 2004 06:53:03 -0800, jp***@tin.it (Paolo) wrote:
I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
Well... actually, it stores the date of birth as a Double Float number
It stores it in 8 bytes.
-- Lyle (for e-mail refer to http://ffdba.com/contacts.htm)
Thanks, this is exactly what I am looking for. There is still one
debugging problem on the line: iAge = DateDiff("yyyy" , [DOB], Date())
Any idea?
John W. Vinson <jvinson@STOP_S PAM.WysardOfInf o.com> wrote in message news:<a2******* *************** **********@4ax. com>... On 30 Jan 2004 06:53:03 -0800, jp***@tin.it (Paolo) wrote:
I have a form on which I have a field named DOB which stores the client's date of birth (mm/dd/yyyy).
Well... actually, it stores the date of birth as a Double Float number, a count of days and fractions of a day since midnight, December 30, 1899. The display format is irrelevant to the problem.
I would like that when users open the form, a message should alert if that person is over age 96 (yes I do have old clients...). If under age 96, I would not like any message.
The match should therefore be done between the date stored in the DOB field and the current date.
Is there a code to do this and where should it go.
I'd suggest code in the Form's Current event to bring up a message whenever someone either opens the form, or navigates to an the record of such an Esteemed Elder (note: in Chinese culture, someone who reaches the age of 96 is considered an "honarary centenarian"). Try code like
Private Sub Form_Current() Dim iAge As Integer iAge = DateDiff("yyyy" , [DOB], Date()) ' Correct for people whose birthday has not yet arrived If DateSerial(Year (Date()), Month([DOB]), Day([DOB])) > Date() Then iAge = iAge - 1 End If If iAge >= 96 Then Msgbox "This person is " & iAge & " years old, handle with respect!" End If End Sub
John W. Vinson[MVP] Come for live chats every Tuesday and Thursday http://go.compuserve.com/msdevapps?loc=us&access=public This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: Ron Adam |
last post by:
Hi, I'm having fun learning Python and want to say thanks to everyone
here for a great programming language.
Below is my first Python program (not my first program) and I'd
apreciate any feedback on how I might do things differently to make it
either more consice, readable, or faster. ie... are there better ways
to do it in Python?
It won't break any records for calculating pi, that wasn't my goal,
learning Python was. But it might...
|
by: Kasp |
last post by:
Hi there,
I am trying to make an OLAP cube on a table having two columns (datetime,
Number_of_times_an_event_occured).
My dimension is time and I want to measure the Min and Max times an event
occured over time.
I have no problem in calculating Maximum occurance of events over time.
However, I have some NULL values in my Number_of_times_an_event_occured
column, due to which I don't see any result when I try to calculate
|
by: Joe Bongiardina |
last post by:
What does the message "calculating...." mean in the lower left status area
of a form?
I have a form with no calculated, concatenated or lookup fields, yet it
displays this msg.
The form takes forever to open and I'm wondering what it's "calculating" and
if that's the
bottleneck.
Thanks.
|
by: jlm |
last post by:
I have a form which feeds table (TblEmpLeave) of Employee Leave Time
(time taken off for Administrative, Annual, Sick, Compensation leave).
I have EmpID, LeaveDate, LeaveType, LeaveHours fields on this form.
Any employee can have multiple entries in the table (key fields are
EmpID and LeaveID) for multiple dates (John Doe can take 3 days annual
leave, then take 3 days sick leave in any given month.
I have a BeginningBalance of hours that...
|
by: robin9876 |
last post by:
In an Access 2000 database on some forms 'Calculating...' is
continuously displayed in the status bar window and the text of the
control is automatically selected.
The only workaround is switching to another application and back
between each field that data is entered.
I have tried this database on pc's that have office 2000 SP1a and
SP3.
How do investigate what is causing this calculating issue and how do I
resolve it?
| |
by: sugaray |
last post by:
Hi, my problem with calculating the size of an array is when
I pass an array as a parameter to a function which perform the
calculation, the result never comes right, like below:
int SizeOfArray(int a) {
return (sizeof(a)/sizeof(a));
}
main() {
int a={1,2,3};
printf("%d\n",SizeOfArray(a));
|
by: Umesh |
last post by:
i want to calculate the time required to execute a program. Also i
want to calcute the time remaining for the execution of the program.
how can i do that?
pl mention some good websites for learning advanced C.thx.
|
by: laredotornado |
last post by:
Hi,
Can anyone recommend a free script for calculating UPS shipping? I am
familiar with the script written in 2000 by Jason Costomiris, but UPS
is using an XML interface and I wondered if there's anything more
updated.
The pages I located on Google turned up broken links.
Thanks, - Dave
|
by: =?Utf-8?B?TmF2YW5lZXRoLksuTg==?= |
last post by:
Say I have a class like,
class Sample
{
public decimal first = 10;
public decimal second = 20;
}
I have initialized it
|
by: sumit kale |
last post by:
Hi,
Can somebody help me resolve my problem ?
I am getting error when calculating total using unbound textfiled in subform.
I have a main form called purchase_register_master and a subform called purchase_register_details, In sub form i have a unbound textfield called txt_Total_Amount where in i am calculating total amount for different items purchased by giving following code in control source.
ContolSource: =Sum()
In my main form i...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
| |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
| |
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |