[FONT=Arial Unicode MS][SIZE=2]Private Sub copyrecordbutton_Click()[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]On Error GoTo Err_copyrecordbutton_Click[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]Dim pown As Variant[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]Dim psource As Variant[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]Dim pclient As Variant[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]Dim ptax As Variant[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]pown = txtcurrent1.Value[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]psource = txtcurrent2.Value[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]pclient = txtcurrent3.Value[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]ptax = txtcurrent4.Value[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]RunCommand acCmdRecordsGoToNew[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]txtnew1.Value = pown[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]txt2[/SIZE][/FONT][FONT=Arial Unicode MS][SIZE=2]new.Value = psource[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]txt[/SIZE][/FONT][FONT=Arial Unicode MS][SIZE=2]new3.Value = pclient[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]txt[/SIZE][/FONT][FONT=Arial Unicode MS][SIZE=2]new4.Value = ptax[/SIZE][/FONT]
[FONT=Arial Unicode MS][SIZE=2]Exit_copyrecordbutton_Click:[/SIZE][/FONT]
[SIZE=2][FONT=Arial Unicode MS]Exit [/FONT][/SIZE][SIZE=2][FONT=Arial Unicode MS]Sub[/FONT][/SIZE]
[FONT=Arial Unicode MS][SIZE=2]Err_copyrecordbutton_Click:[/SIZE][/FONT]
[SIZE=2][FONT=Arial Unicode MS]MsgBox Err.Description[/FONT][/SIZE]
[SIZE=2][FONT=Arial Unicode MS]Resume Exit_copyrecordbutton_Click[/FONT][/SIZE]
[FONT=Arial Unicode MS][SIZE=2]End Sub[/SIZE][/FONT]