Re: [MS_AccessPros] Date comparisons in a form control

 

Thanks Graham (and John and Duanne)

I now have it doing what I need it to do - I seem to have a mental block that date comparisons in vba require dates to be in US format !!

On Wednesday, 2 August 2017, 23:41, "'Graham Mandeno' graham@mandeno.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

 

Hi Phil

I'm in New Zealand, so I have similar problems with US-centric date formats.  One way to remove ambiguity is to use DateSerial:

If [date placed] < DateSerial( 2017, 8, 1 ) Then

Best wishes,
Graham

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, 3 August 2017 10:01
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Date comparisons in a form control

 

 

I forgot to put the #s John - I did have them and still had the same problem.

 

When you asked Douane if my dates were in US format that rang a bell - I am in the UK and the date I am comparing to is 1st August - so do I simply use #08/01/17# instead of my natural inclination to use #01/08/17# ?

 

What about code to enable this to work from year to year without recoding?

 

many thanks

 

 

 

On Wednesday, 2 August 2017, 20:28, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

 

 

Phil-

 

You're comparing a date to 1 divided by 8 divided by 17. :-)

 

If [date placed] < #1/8/17# Then

John Viescas, author

Effective SQL

SQL Queries for Mere Mortals

Microsoft Office Access 2010 Inside Out

Microsoft Office Access 2007 Inside Out

Building Access Applications

http://www.viescas.com/

On Aug 2, 2017, at 12:31, pdk444444@yahoo.co.uk [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

Hi Guys

This one should be straightforward I hope ....

In a form control I am trying to prevent the user from putting in an incorrect date.

I only want the date to be between 1/8/17 and the current date

 

I have the following code triggered by the On Exit event of the control

 

if [date placed] < 1/8/17 then

msgbox "date placed cannot be before 1/8/17"

[date placed] = null

elseif [date placed] > date then

msgbox "date placed cannot be in the future"

[date placed] = date

end if

 

the elseif seems to work perfectly but the test for before 1/8/17 doesn't work properly.

 

What am I doing wrong?

 

Also, so that I don't have to change the code each year, how can I code it so that between 1/8/nn and 31/7/nn+1 it uses 1/8/nn for the date test?

 

cheers

 

Phil

 

 

__._,_.___

---

Posted by: Phil Knowles <pdk444444@yahoo.co.uk>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (7)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 2

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___