I using the following in a command button...
Private Sub Command10_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
[Field2] = ""
Me.[Field2].SetFocus
End Sub
It works fine. I would like to make this work on after update in field2. When I do that, it seems to run a loop and add 80 records?
What is going on or I'm I doing wrong?
Private Sub Command10_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdPasteAppend
[Field2] = ""
Me.[Field2].SetFocus
End Sub
It works fine. I would like to make this work on after update in field2. When I do that, it seems to run a loop and add 80 records?
What is going on or I'm I doing wrong?