[AccessD] Add new record + fill fields with last entered data?

William Hindman wdhindman at bellsouth.net
Fri Apr 2 00:12:22 CST 2004


...because Christian, I was never able to make the RunCommand version work
consistently in A97 and never tried using it in XP since I already had
working code  ...if you've got an actual sample where the RunCommands work
to dupe both the main form record and subs, I'd like to see it :)

William Hindman
ipsedixitism: something is true because I myself have said it is true ...the
philosophy of Noam Chomsky :)

----- Original Message ----- 
From: "Brock, Christian T, HRC-Alexandria"
<Christian.Brock at hoffman.army.mil>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, April 01, 2004 11:24 AM
Subject: RE: [AccessD] Add new record + fill fields with last entered data?


> The copy record and paste append commands will get every form field and
> subform.  Do not see how what you say to do provides any benefit over
using
> the three DoCmd.RunCommand statements.
>
> Christian Brock
>
>
>
> -----Original Message-----
> From: William Hindman [mailto:wdhindman at bellsouth.net]
> Sent: Thursday, 01 April 2004 10:49
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Add new record + fill fields with last entered
data?
>
>
> ...that "wizard" simply bites ...I'd create a "duplicate" button that
saves
> the pk of the current record to a variable or tag and then a query using
the
> saved pk to append a "new" record that is a duplicate of the saved one
> except for the pk ...that would get you a dupe of every form field
including
> any subform.
>
> William Hindman
> ipsedixitism: something is true because I myself have said it is true
...the
> philosophy of Noam Chomsky :)
>
> ----- Original Message ----- 
> From: "Brock, Christian T, HRC-Alexandria"
> <Christian.Brock at hoffman.army.mil>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Thursday, April 01, 2004 10:22 AM
> Subject: RE: [AccessD] Add new record + fill fields with last entered
data?
>
>
> > Why go to the trouble?  From the statement of intent, What the user
really
> > wants is a duplicate current record button, instead of a new record
> button.
> > The Access XP command button wizard will allow you to create a button
that
> > will duplicate the current record.
> >
> > It creates the following lines of code
> >     DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
> >     DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
> >     DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste
Append
> >
> > Obviously MS did not update the wizard to use readable code.  The
> following
> > will work as well.
> >     DoCmd.RunCommand acCmdSelectRecord
> >     DoCmd.RunCommand acCmdCopy
> >     DoCmd.RunCommand acCmdPasteAppend
> >
> >
> > Christian Brock
> >
> >
> >
> >
> > -----Original Message-----
> > From: Gustav Brock [mailto:gustav at cactus.dk]
> > Sent: Thursday, 01 April 2004 09:36
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Add new record + fill fields with last entered
> data?
> >
> >
> > Hi Tina
> >
> > > I begin to understand.  At the OnCurrent Event for the Form, the Event
> > > Procedure will set the DefaultValue of each TextBox to the values
> > > determined to already be stored in the record just saved.  Is that
> > > correct?
> >
> > Yes and no. No saving needs to take place:
> >
> > At the OnCurrent Event for the Form, the Event Procedure will set the
> > DefaultValue of each TextBox (or ComboBox etc.) to the values for the
> > current record of those controls.
> >
> > > Does this require explicitly listing each TextBox of the form?
> >
> > Yes.
> >
> > /gustav
> >
> >
> > >>>How does one set the DefautlValue at OnCurrent?  I don't know how to
do
> > >>>that.
> > >>
> > >>That's not difficult - something like this:
> > >>
> > >>  Dim txt As TextBox
> > >>  Set txt = Me!txtYourTextBox
> > >>
> > >>  txt.DefaultValue = txt.Value
> > >>
> > >>  Set txt = Nothing
> > >>
> > >>However, DefaultValue should be a string which means that if your
> > >>textbox contains decimals or a date/time value you must be careful and
> > >>convert to a string in US format:
> > >>
> > >>  txt.DefaultValue = LTrim(Str(txt.Value))
> > >>
> > >>or
> > >>
> > >>  txt.DefaultValue = _
> > >>    Format(txt.Value, "\#mm\/dd\/yyyy hh\:nn\:ss AM/PM\#")
> > >>
> > >>/gustav
> > >>
> > >>>>Tough day? No coffee?
> > >>>>
> > >>>>Set the DefaultValue at OnCurrent.
> > >>>>
> > >>>>As for Stuart's note on the KeyPreview, it's not a user feature, but
a
> > >>>>property of the form.
> > >>>>
> > >>>>/gustav
> > >>>>
> > >>>>>when a user clicks the 'Add new record' button (s)he wants the data
> of
> > the current record to be displayed in the new record.
> > >>>>>So if a user is on record 999 with field username filled with AAA
and
> > then clicks on 'Add new record' then a new record (1000) must appear
with
> > the field username filled with AAA.
> >
> > -- 
> > _______________________________________________
> > 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
> >
>
>
> -- 
> _______________________________________________
> 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