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

Thanks Darrell,

The result is the same.

Perhaps the SQL is the problem:

SELECT ClubYears.dateChartered AS Dayte, "Rotary Club of " &
[ClubName] & " " & ([years]) & "th Anniversary" AS Page,
NextAnniversary([DateChartered]) AS Anny
FROM ClubYears;

Many thanks,

Robin

At 1/02/2013 05:43 AM, you wrote:
>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
> >[mailto:MS_Access_Professionals@yahoogroups.com
ofessionals%40yahoogroups.com>] On Behalf Of patrickawood
> >Sent: Thursday, January 31, 2013 7:12 AM
> >To:
> MS_Access_Professionals@yahoogroups.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.aspx
> > > > > > > >
> > > > > > > >
> > > > > > > >--- In
> MS_Access_Professionals@yahoogroups.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,
> 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/AccessAndSQLAzureIn
> > > > > > > > > > > >fo.aspx
> > > > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > > > >--- In
> MS_Access_Professionals@yahoogroups.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
>
>
>