[AccessD] Unbound Form Check For Changes

Bill Benson bensonforums at gmail.com
Mon Mar 24 13:24:38 CDT 2014


John, I think I already informed you there was a misunderstanding related
to how you implement class modules. I even asked a follow up question in
our earlier thread but got no response so just figured I had worn you out.
I think it is just that I am a horribly inept OOP person with no background
in anything other than VBA.

I would welcome reading more and learning from you (or I could say welcome
reading your attempts at instruction, since hard headed hacks with already
well formed but poorly informed bad habits find it hard to turn around). I
would buy your e-book as well however rather than a book I suggest serial
editions... modules (pun intended).  This way you can adapt the new modules
according to feedback received and your audience's requests/thirst for
more. Later on you can coalesce many well received modules into a book.

I will definitely come along for the ride however you do this but from what
I understand not many writers make money. Plus it is hard to pace (myself)
when there is an immense book to get through (and I can skip ahead). By
restricting the student to no more than their current module, and
containing within each module everything needed for that module (which
allows you also to repeat yourself if you like,  because skills and
knowledge are needed across ever more complex tasks and reinforcement is a
good thing), the pupil is a genius by the time they come out the other
side... or even if a dropout, at least they accomplished something.

Write on!
On Mar 24, 2014 10:26 AM, "Dan Waters" <df.waters at comcast.net> wrote:

> Hi John,
>
> I sincerely want to suggest that you write a how-to book on class usage in
> Access.  Your blog postings are a great start.  I don't believe I've ever
> seen anything commercially available like that.
>
> You can write it and sell it as an e-book on Amazon - you will get sales.
> You have a unique skillset here that you have developed with a lot of
> effort
> - it's time to get some reward!
>
> However, having watched my father write his 5th book, he still needed a
> good
> editor, and all authors do.  So write out the introductory chapter, post it
> here and we'll all give feedback - for free!
>
> All the best!
> Dan
>
> PS - I think you'd actually be doing many thousands of businesses a big
> plus
> - they will be able to get much better use out of a tool they already own.
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John W Colby
> Sent: Sunday, March 23, 2014 8:02 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Unbound Form Check For Changes
>
> And having done all that stuff, I would go with a class.  All of the code
> to
> check old value = new value, a dirty flag and so forth can be stored in the
> class.
>
> John W. Colby
>
> Reality is what refuses to go away
> when you do not believe in it
>
> On 3/23/2014 7:04 PM, Bill Benson wrote:
> > Re: Dirty, even if bound, a change would mean the user began to edit
> > the form, not that they necessarily "made" a change.
> >
> > As for storing the control values, if all you care about is testing if
> > ANY controls changed, I would put a tag in every control where this is
> > a possibility and loop through all controls, test for this tag - then
> > you won't have to worry about labels and controls with no value
> > throwing off a runtime error. I would just store all values in a
> > single string using a pipe separator, and check this again later.
> >
> > 'Warning air code!!!
> > Option explicit
> > Dim m_Initial_Control_Values as String
> >
> > Form_Load()
> > For each ctrl in controls
> >     If ctrl.tag = "ValidateMe" then
> >       m_Initial_Control_Values  = _
> >       m_Initial_Control_Values  &"|" & NZ(ctrl.value,"") &"|"
> >      End If
> > Next
> > '...
> > End Sub
> >
> > Have a function named FormChanged
> >
> > Function FormChanged() as Boolean
> > Dim strValidate as string
> > For each ctrl in controls
> >     If ctrl.tag = "ValidateMe" then
> >       strValidate  = _
> >       strValidate &"|" & NZ(ctrl.value,"") &"|"
> >      End If
> > Next
> >
> > FormChanged = (strValidate <> m_Initial_Control_Values) End function
> >
>
>
> ---
> This email is free from viruses and malware because avast! Antivirus
> protection is active.
> http://www.avast.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


More information about the AccessD mailing list