Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Fri Apr 2 00:01:57 CST 2004
"...find myself a weddingsuit!" Spectator or victim? Rocky ----- Original Message ----- From: "S D" <accessd667 at yahoo.com> To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Sent: Thursday, April 01, 2004 9:54 PM Subject: RE: [AccessD] Add new record + fill fields with last entered data ? > Hihi here we go again. Everybody uses a different approach and they all work! > Some are more complex then others and in some cases (way) too heavy, how's that sledgehammer John ;-) but they all help! > > thnx a lot. > > Now all i have to do is do a LOT of documenting and then it's of to find myself a weddingsuit! > > regards, > > sander > > "Brock, Christian T, HRC-Alexandria" <Christian.Brock at hoffman.army.mil> wrote: > 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" > > To: "'Access Developers discussion and problem solving'" > > 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 > > --------------------------------- > Do you Yahoo!? > Yahoo! Small Business $15K Web Design Giveaway - Enter today > -- > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >