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 >