VB Code to change the Allow Additions Property

paquer

I want users to be able to set the Allow Additions property to 'True'
via a command button when required. (The command also adds data to the
subform) If they skip the command, they skip the data transfer. Hence
I want to set the Allow Additions property via a command button.

I set up the command button with the following code, but I keep
getting an error: Method or Data Member not found (Debug highlights
the allow additions section.

The command button is located on the main form.

Here are the variations of code I have tried;

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Field_Sub_Form.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Me.Field_Sub_Form.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Am I putting the Allow additions in the wrong place? Any help would be
greatly appreciated.

Mar 30 '07 #1

paquer

THis is for Access 2000 SP3.
On Mar 30, 4:23 pm, paq...@gmail.com wrote:

I want users to be able to set the Allow Additions property to 'True'
via a command button when required. (The command also adds data to the
subform) If they skip the command, they skip the data transfer. Hence
I want to set the Allow Additions property via a command button.

I set up the command button with the following code, but I keep
getting an error: Method or Data Member not found (Debug highlights
the allow additions section.

The command button is located on the main form.

Here are the variations of code I have tried;

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Field_Sub_Form.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Me.Field_Sub_Form.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Private Sub Create_Job_Click()
Me.Field_Form_Sub.Visible = True
Me.Field_Form_Sub.SetFocus
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec

Am I putting the Allow additions in the wrong place? Any help would be
greatly appreciated.

Mar 30 '07 #2

storrboy

The sub form control is called Field_Form_Sub?
If so it does not have an AllowAdditions property. The underlying form
does.
Try Me.Field_Form_Sub.Form.AllowAdditions = True

Mar 31 '07 #3

paquer

Perfect!
I wasnt stipulating the Subform. A Duh.
Thanks

Apr 4 '07 #4