Add a record to a subform

[TomBP]

As you can see I have a form with a subform in it. What I want to achieve is that when I press add new record a blank record will popup in the subform without all the other records you currently see. An example of this is the picture under this.

If I then fill in the new record row the record will be added to the main table.

I already tried it for myself but the problem that occurs with my macro is the following:

The macro has the following design:

How can I add a new record without opening the subform?

 

[clerics]

Use query or SQL to solve your problem .
Something like this

strSql = "INSERT INTO YourTBL (Firma,Factuurnummer,maand,Soort,Transport,Product)" & _
" SELECT [Forms]![YourFormName]![Firma] AS S1,[Forms]![YourFormName]![Factuurnummer] AS S2,[Forms]![YourFormName]![maand] AS S3,[Forms]![YourFormName]![Soort] AS S4,[Forms]![YourFormName]![Transport] AS S5,[Forms]![YourFormName]![Product] AS S6;"

Me.Refresh
DoCmd.RunSQL (strSql)
Me.SubFormName.requery

 

[TomBP]

Thx for your reply but I got it working using this:

I put this behind "Add New Record" in the OnClick event.

Me.frmSubform.SetFocus
Me.fromSubform.Form.Firma.SetFocus
DoCmd.GoToRecord , , acNewRec