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

G'day John from Down Under,

Your message is appreciated but is a classic example of 'boot on wrong foot'.

I am convinced that all plaudits should be with the talented team who
are so willing to help those of us who so desperately need help.

I retired in 1995 and I am an 'inspired user' with no computer
training and would have been lost without the collective generous
assistance of 'Access Angels'.

You, John, have been a significant helper in my case and I am always
impressed by the tolerance shown by all towards those of us who are
'lame ducks'.

May you continue with your selfless work.

Best wishes,

Robin Chapple

At 1/02/2013 08:14 AM, you wrote:
>Hooray!
>
>Thanks for sticking with us, Robin.
>
>
>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 Robin Chapple
>Sent: Thursday, January 31, 2013 9:15 PM
>To: MS_Access_Professionals@yahoogroups.com
>Subject: RE: [MS_AccessPros] Re: Editing a function
>
>Gentlemen one and all,
>
>At last I have it working.
>
>There was a second copy!
>
>My thanks to you all.
>
>Regards,
>
>Robin
>
>
>At 1/02/2013 06:15 AM, you wrote:
> >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
on> als%>40yahoogroups.com>
> > >[mailto:MS_Access_Professionals@yahoogroups.com
Pr> ofes>sionals%40yahoogroups.com>] On Behalf Of patrickawood
> > >Sent: Thursday, January 31, 2013 7:12 AM
> > >To:
> > >MS_Access_Professionals@yahoogroups.com
on> als%>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
als%>40yah
> >oogroups.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
als%>40yah
> >oogroups.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
als%>40yah
> >oogroups.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.a
> > > > > > > > >sp
> > > > > > > > >x
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >--- In
> > > > > > > > >MS_Access_Professionals@yahoogroups.com
es> s_Pr> > > > > > >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/AccessAndSQLAzureIn
> > > > > > > > > > >fo
> > > > > > > > > > >.a
> > > > > > > > > > >spx
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >--- In
> > > > > > > > > > >MS_Access_Professionals@yahoogroups.com
_A> cces> > > > > > > > >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/AccessAndSQLAzu
> > > > > > > > > > > > >re
> > > > > > > > > > > > >In
> > > > > > > > > > > > >fo.aspx
> > > > > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > > > > >--- In
> > > > > > > > > > > > >MS_Access_Professionals@yahoogroups.com
> MS_A> > > > > > > > > > >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
> >
> >
> >
> >
> >
> >
> >------------------------------------
> >
> >Yahoo! Groups Links
> >
> >
> >
>
>
>
>
>------------------------------------
>
>Yahoo! Groups Links
>
>
>
>
>
>
>------------------------------------
>
>Yahoo! Groups Links
>
>
>