Add a new record to a subform

[Daniel Owino]

Hi

I'm trying to add a new record to a subform called itemsreceived_subform, using a command button. I can't get the clear difference between the subform control, and the subform itself. My code is as follows:

Private Sub cmdadd_Click()
If Me!Itemsreceived_subform.Form.Dirty Then
Me!Itemsreceived_subform.Form.Dirty = False
End If

Me![Itemsreceived subform].SetFocus ' This is the name of the subform

DoCmd.GoToRecord , , acNewRec

End Sub
----------------------------------------------------

Any ideas? Thank you.

[MikeTheBike]

Hi

You have not given any indication of the difficulty you are having, but you could try this (your code was adding a new record to the main form)

Private Sub cmdadd_Click()
    If Me!Itemsreceived_subform.Form.Dirty Then
        Me!Itemsreceived_subform.Form.Dirty = False
    End If
 
    Me.Itemsreceived_subform.AllowAdditions = True 'THIS IS REQUIRED IF SET TO FALSE IN DESIGN VEW!!
    Me.Itemsreceived_subform.DataEntry = True
End Sub

Just a thought.


MTB

[Daniel Owino]

Thanks for your help, it worked out fine.