"DoCmd.GotoRecord" Help required

[abusaif]

Good Morning !



I have a sub form and a button on a Main form. I want to set the button's behaviour to go to a new record on subform (which is a datasheet form), for such I tried a code like ;

DoCmd.GoToRecord acDataForm, Me.frmMachineBasicSub.Form, acNewRec

but it does not work.

[June7]

I always give subform container control a name different from the object it holds, like ctrBasic. Set focus to the container control then GoToRecord.

Try:

Me.ctrBasic.SetFocus
DoCmd.GoToRecord , , acNewRec

[abusaif]

Thanks Bro...
It seems working but now debugger has moved to next line. Here is my complete code.

dim ID as Long
me.ctrBasic.setfocus
DoCmd.GoToRecord , , acNewRec
ID = me.ctrBasic.form.MachineID

it stops at the red line of code where MachineID is a text field.

[June7]

Why do you have that line? It doesn't make sense to me.

[abusaif]

Ya June7 !

My complete subroutine code is as follows, may it help you to understand. Actually, I want to copy current record.

[abusaif]

Private Sub btnCopy_Click()


Dim ID As Long
Me.frmMachineBasicSub.SetFocus
DoCmd.GoToRecord , , acNewRec


ID = me.frmMachineBasicSub.Form.MachineID


Me.frmMachineBasicSub.Form.MGP.Value = DLookup("MGP", "tblMachineBasic", "MachineID = " & ID)


Me.frmMachineBasicSub.Form.AssetNo.SetFocus


End Sub