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 3102
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: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
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: 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: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
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...
| |