ACCESS FEED: RE: [MS_AccessPros] Re: Editing a function

Darrell-

Nice catch. My logic was backwards for month.

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Embrey,
Darrell
Sent: Thursday, January 31, 2013 7:44 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Re: Editing a function

Hi Robin,

Change the following:

If (intMonth > Month(Date)) Or ((intMonth = Month(Date)) And (intDay <
Day(Date))) Then

To:

If (intMonth < Month(Date)) Or ((intMonth = Month(Date)) And (intDay <
Day(Date))) Then

Darrell

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Robin Chapple
Sent: Thursday, January 31, 2013 1:35 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Re: Editing a function

John and Patrick,

The time difference is our enemy. It is now 05:15 Friday morning.

First I need your help to understand 'Standard Module' and whatever the
alternative may be.

I have 'General' showing in a drop down box above the code. Is that a
standard module?

BTW I am an 83 year old fella! I am keen but inexperienced in code.

Many thanks for your interest and help.

I have tested all the options of the code you have prepared in the 'General'
area and all give me 2014.

I have added a screen capture on my web site.

http://www.rotary9790.org.au/test/test.asp

That example of code is working but gives 2014 for every entry.

Many thanks again for your patience.

Regards,

Robin Chapple

At 31/01/2013 07:01 PM, you wrote:
>Patrick & Robin-
>
>I found that "bug" a couple of days ago and gave Robin the correction
>for the missing close paren. She originally found that when she pasted
>the code in a module somewhere (probably a form module) and it wouldn't
>compile. I should have re-posted the entire bit of code with
>instructions as to how to put it in a Standard module.
>
>Robin- If you created and saved the code in a standard module, you
>should now see that module in the Nav Pane. Just right-click and choose
>Open to edit it.
>
>John Viescas, Author
>Microsoft Access 2010 Inside Out
>Microsoft Access 2007 Inside Out
>Microsoft Access 2003 Inside Out
>Building Microsoft Access Applications
>SQL Queries for Mere Mortals
>http://www.viescas.com/
>(Paris, France)
>
>
>
>-----Original Message-----
>From:
>MS_Access_Professionals@yahoogroups.com
40yahoogroups.com>
>[mailto:MS_Access_Professionals@yahoogroups.com
sionals%40yahoogroups.com>] On Behalf Of patrickawood
>Sent: Thursday, January 31, 2013 7:12 AM
>To:
>MS_Access_Professionals@yahoogroups.com
40yahoogroups.com>
>Subject: [MS_AccessPros] Re: Editing a function
>
>
>Hi Robin,
>
>I think I found the problem. Try this code exactly as it is. You will
>need to use this to completely replace what you have.
>
>
>Public Function NextAnniversary(datChartered As Date) As Date
>
>Dim intMonth As Integer, intDay As Integer, intYear As Integer
>
> intMonth = Month(datChartered)
> intDay = Day(datChartered)
> intYear = Year(Date)
>
> If (intMonth > Month(Date)) Or _
> ((intMonth = Month(Date)) And (intDay < Day(Date))) Then intYear =
> intYear + 1 End If
>
> NextAnniversary = DateSerial(intYear, intMonth, intDay)
>
>End Function
>
>
>Kind Regards,
>Pat Wood
>Gaining Access Technologies Founder
>http://gainingaccess.net
>Microsoft Access and SQL Azure Information Center for Developers:
>http://gainingaccess.net/SQLAzure/AccessAndSQLAzureInfo.aspx
>
>--- In
MS_Access_Professionals@yahoogroups.com
, Robin Chapple wrote:
> >
> > Thanks again Pat,
> >
> > Public Function NextAnniversary(datChartered As Date) As Date
> >
> > Dim intMonth As Integer, intDay As Integer, intYear As Integer
> >
> > intMonth = Month(datChartered)
> >
> > intDay = Day(datChartered)
> >
> > intYear = Year(Date)
> >
> > If (intMonth Month(Date)) Or _
> >
> > ((intMonth = Month(Date)) And (intDay Day(Date)) Then
> >
> > intYear = intYear + 1
> >
> > End If
> >
> > NextAnniversary = DateSerial(intYear, intMonth, intDay)
> >
> > End Function
> >
> > Call that from a query on your table like this:
> >
> > Anny: NextAnniversary([DateChartered])
> >
> > Regards,
> >
> > Robin
> >
> > At 31/01/2013 04:34 PM, you wrote:
> > >Hi Robin,
> > >
> > >Can you post the original Function?
> > >
> > >Pat
> > >
> > >--- In
MS_Access_Professionals@yahoogroups.com
, Robin Chapple wrote:
> > > >
> > > > Well done Pat,
> > > >
> > > > That found the function but I cannot edit it to give 2013
> > > > instead of
>2014.
> > > >
> > > > From February onwards the next anniversary will be in 2013 but
> > > > all are returning 2014.
> > > >
> > > > I have edited intYear = intYear + 1
> > > >
> > > > to
> > > >
> > > > intYear = intYear
> > > >
> > > > and
> > > >
> > > > intYear = intYear -1
> > > >
> > > > Without the change showing.
> > > >
> > > > I have even edited
> > > >
> > > > NextAnniversary = DateSerial((intYear - 1), intMonth, intDay)
> > > >
> > > > to
> > > >
> > > > NextAnniversary = DateSerial((intYear - 2), intMonth, intDay)
> > > >
> > > > without a change.
> > > >
> > > > 2014 seems to be set in concrete!
> > > >
> > > > Regards,
> > > >
> > > > Robin
> > > >
> > > > At 31/01/2013 04:05 PM, you wrote:
> > > > >Hi Robin,
> > > > >
> > > > >Don't worry about seeing blank until you do the search for the
> > > > >name of the Function according to my instructions I gave in an
> > > > >earlier post. If you have the name right and followed my
> > > > >instructions you will find the Function.
> > > > >
> > > > >If that does not work then perhaps you have the name of the
> > > > >Function wrong. You can then search for the text below which
> > > > >should be in
> > > your Function:
> > > > >
> > > > >intYear = intYear + 1
> > > > >
> > > > >Kind Regards,
> > > > >Pat Wood
> > > > >Gaining Access Technologies Founder http://gainingaccess.net
> > > > >Microsoft Access and SQL Azure Information Center for Developers:
> > > > >http://gainingaccess.net/SQLAzure/AccessAndSQLAzureInfo.aspx
> > > > >
> > > > >
> > > > >--- In
MS_Access_Professionals@yahoogroups.com
, Robin Chapple wrote:
> > > > > >
> > > > > >
> > > > > > Thanks for your persistence.
> > > > > >
> > > > > > The function is working but it gives the year as 2014 and I
> > > > > > need
> > > > > it to be 2013.
> > > > > >
> > > > > > So the answers to your queries must be 'Yes'.
> > > > > >
> > > > > > With the query on the worksapce Alt F11 gives me blank pages.
> > > > > >
> > > > > > Cheers,
> > > > > >
> > > > > > Robin
> > > > > >
> > > > > > At 31/01/2013 03:40 PM, you wrote:
> > > > > > >Hi Robin,
> > > > > > >
> > > > > > >Did you try searching as I laid out?
> > > > > > >
> > > > > > >If so, are you sure you saved the Function?
> > > > > > >
> > > > > > >And are you using the database in which you created the
Function?
> > > > > > >
> > > > > > >
> > > > > > >Kind Regards,
> > > > > > >Pat Wood
> > > > > > >Gaining Access Technologies Founder
> > > > > > >http://gainingaccess.net Microsoft Access and SQL Azure
Information Center for Developers:
> > > > > > >http://gainingaccess.net/SQLAzure/AccessAndSQLAzureInfo.asp
> > > > > > >x
> > > > > > >
> > > > > > >
> > > > > > >--- In
> > > > > > >MS_Access_Professionals@yahoogroups.com
> > > > > >ofessionals%40yahoogroups.com>, Robin Chapple
>wrote:
> > > > > > > >
> > > > > > > >
> > > > > > > > Thanks Pat,
> > > > > > > >
> > > > > > > > I had tried that and once again all I get is blank pages!
> > > > > > > >
> > > > > > > > Cheers,
> > > > > > > >
> > > > > > > > Robin
> > > > > > > >
> > > > > > > > At 31/01/2013 02:49 PM, you wrote:
> > > > > > > > >Hi Robin,
> > > > > > > > >
> > > > > > > > >That's OK. Try pressing the Alt and F11 keys at the
> > > > > > > > >same
>time.
> > > > > > > > >
> > > > > > > > >Kind Regards,
> > > > > > > > >Pat Wood
> > > > > > > > >Gaining Access Technologies Founder
> > > > > > > > >http://gainingaccess.net Microsoft Access and SQL Azure
> > > > > > > > >Information Center for Developers:
> > > > > > > > >http://gainingaccess.net/SQLAzure/AccessAndSQLAzureInfo
> > > > > > > > >.a
> > > > > > > > >spx
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >--- In
> > > > > > > > >MS_Access_Professionals@yahoogroups.com
> > > > > > > >s_Professionals%40yahoogroups.com>, Robin
> > > Chapple wrote:
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Thanks Pat,
> > > > > > > > > >
> > > > > > > > > > I cannot even find the "" window where you work with
> > > the code "".
> > > > > > > > > >
> > > > > > > > > > Woe is me! Sackcloth and ashes!!!
> > > > > > > > > >
> > > > > > > > > > Cheers,
> > > > > > > > > >
> > > > > > > > > > Robin
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > At 31/01/2013 12:37 PM, you wrote:
> > > > > > > > > > >Hi Robin,
> > > > > > > > > > >
> > > > > > > > > > >You can do a search for NextAnniversary was it? In
> > > > > > > > > > >the
> > > > > window where
> > > > > > > > > > >you work with the code on the Menu click "Edit" and
> > > > > > > > > > >then
> > > > > "Find" and
> > > > > > > > > > >enter NextAnniversary in the "Find What:" box at
> > > > > > > > > > >the
> > > top of the
> > > > > > > > > > >dialog that opens and then make sure that "Current
> > > > > > > > > > >Project" is selected and then click "Find Next".
> > > > > > > > > > >Keep clicking "Find
> > > > > Next" until
> > > > > > > > > > >you see the Function.
> > > > > > > > > > >
> > > > > > > > > > >Kind Regards,
> > > > > > > > > > >Pat Wood
> > > > > > > > > > >Gaining Access Technologies Founder
> > > > > > > > > > >http://gainingaccess.net Microsoft Access and SQL
> > > > > > > > > > >Azure Information Center
> > > for Developers:
> > > > > > > > > > >http://gainingaccess.net/SQLAzure/AccessAndSQLAzure
> > > > > > > > > > >In
> > > > > > > > > > >fo.aspx
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >--- In
> > > > > > > > > > >MS_Access_Professionals@yahoogroups.com
> > > > > > > > > >ccess_Professionals%40yahoogroups.com>, Robin
> > > > > Chapple wrote:
> > > > > > > > > > > >
> > > > > > > > > > > > My apology for being a 'lame duck'.
> > > > > > > > > > > >
> > > > > > > > > > > > John Viescas has taken me step by step through
> > > > > > > > > > > > adding
> > > > > a function to
> > > > > > > > > > > > my database. It works as planned with one
> > > > > > > > > > > > exception
> > > > > and I need to
> > > > > > > > > > > > edit one criteria.
> > > > > > > > > > > >
> > > > > > > > > > > > How do I get back to the function to edit it? I
> > > > > > > > > > > > have
> > > > > investigated
> > > > > > > > > > > > everything that looks possible without success.
> > > > > > > > > > > > The
> > > > > Microsoft help
> > > > > > > > > > > > page was no help.
> > > > > > > > > > > >
> > > > > > > > > > > > Your advice is welcome.
> > > > > > > > > > > >
> > > > > > > > > > > > Robin Chapple
> > > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >------------------------------------
> > > > > > > > > > >
> > > > > > > > > > >Yahoo! Groups Links
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >------------------------------------
> > > > > > > > >
> > > > > > > > >Yahoo! Groups Links
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >------------------------------------
> > > > > > >
> > > > > > >Yahoo! Groups Links
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >------------------------------------
> > > > >
> > > > >Yahoo! Groups Links
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> > >
> > >------------------------------------
> > >
> > >Yahoo! Groups Links
> > >
> > >
> > >
> >
>
>
>
>
>------------------------------------
>
>Yahoo! Groups Links
>
>
>
>
>
>
>------------------------------------
>
>Yahoo! Groups Links
>
>
>

The information contained in this communication is highly confidential and
is intended solely for the use of the individual(s) to whom this
communication is directed. If you are not the intended recipient, you are
hereby notified that any viewing, copying, disclosure or distribution of
this information is prohibited. Please notify the sender, by electronic mail
or telephone, of any unintended receipt and delete the original message
without making any copies.

Blue Cross Blue Shield of Michigan and Blue Care Network of Michigan are
nonprofit corporations and independent licensees of the Blue Cross and Blue
Shield Association.

[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links