Found a way to code this copy function. It's not so pretty but it works. If you're interested here's how I did it
Quote:
Private Sub cmdAddSameCase_Click()
On Error GoTo Err_cmdAddSameCase_Click
Dim txt1 As String, txt2 As String, txt3 As String, txt4 As String etc
txt1 = Me.Month.Value
txt2 = Me.Year.Value
txt3 = Me.centre.Value
txt4 = Me.Session.Value
etc
etc
DoCmd.GoToRecord , , acNewRec
Me.Month.Value = txt1
Me.Year.Value = txt2
Me.centre.Value = txt3
Me.Session.Value = txt4
etc
etc
Exit_cmdAddSameCase_Click:
Exit Sub
Err_cmdAddSameCase_Click:
MsgBox Err.Description
Resume Exit_cmdAddSameCase_Click
End Sub
|