DoCmd Command for Multipoint Area Application

[notrino]

Hi,
I attached my application. When I use single area (for example Alan1) for copy-paste application, below code is working without any problem on the button event.

DoCmd.GoToControl "Alan1"DoCmd.RunCommand acCmdCopyDoCmd.GoToRecord , , acNewRecDoCmd.GoToControl "Alan1"DoCmd.RunCommand acCmdPaste

But when I attached Alan2, Alan3,..... this code structure is not working for copy-paste application. For example attached application is including Alan1 and Alan2 areas. Where is my mistake? Thanks.

[davegri]

Birden_Fazla_Alanin-davegri-v01.zip

See attached. The db that you uploaded was corrupt, so I copied contents to a new db to fix that.
Then changed code in the click event to avoid copy/paste. Just saved contents of current record to insert in new record.

Option Compare Database
Option Explicit


Private Sub Komut8_Click()
    Dim sAlan1 As String
    Dim sAlan2 As String
    sAlan1 = Nz(Alan1)
    sAlan2 = Nz(Alan2)


    DoCmd.GoToRecord , , acNewRec
    
    Alan1 = sAlan1
    Alan2 = sAlan2
End Sub

[notrino]

Thank you.