duplicating a record but changing a field value.

[Jrw76]

I have a form that allows users to enter data.
There will be times where these records will be duplicated except for one field. That field is called 'Hull'. I have a checkboxes included for each option of Hull. We'll call them 'Hull1', 'Hull2', 'Hull3', 'Hull4', 'Hull5', 'Hull6'. The Idea is when the user is entering the information, he may enter Hull1 in the 'Hull' field, but it may also be used for 'Hull2', 'Hull4', 'Hull6' - so when he clicks on the checkboxes for 'Hull2', 'Hull4', 'Hull6', the record will duplicate, change the value 'Hull', and append to the table. This is the code I came up with, but it's not working correctly.

Private Sub Check120_AfterUpdate()


If Check120 = "-1" Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
Me.Hull = "Hull2"
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
End If
End Sub

[June7]

Are you doing this on a bound form? I have never used DoMenuItem. What are items 8, 2, 5?

Why doesn't it work - error message, wrong results, nothing?

[Jrw76]

Not sure what the numbers represent...It duplicates the records, just ALL records and gave me an error table to append the errors later. I stole the code from the button wizard, and changed it to do what I needed...didn't work. Any suggestions?

Oh, and yes, this form is bound to a table that captures the data.

[Jrw76]

I think I have to reset the checkbox back to 0

[Jrw76]

Nope, different mistakes...What are your suggestions?

[orange]

It would help you and the reader if you would write down, in plain English, WHAT you are trying to do.

DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70

this sort of thing has been around at least since Access97. It is the genreated code when you use a wizard --at least it used to be.

[June7]

I've never used DoMenuItem. I think the method is discouraged. Think I would use code that sets the DefaultValue property of each control.

http://access.mvps.org/access/forms/frm0012.htm

or something like

http://support.microsoft.com/kb/210236

[ItsMe]

I believe DoCmd.DoMenuItem is being replaced with Docmd.RunCommand

acCommand Enumeration
http://msdn.microsoft.com/en-us/libr.../ff821354.aspx