mas. Karno kalo boleh bisa di lampirkan sample formnya
biar kita bisa belajar kotak-katik bareng2
Salam
Nurhasim
--- sukarno <[EMAIL PROTECTED]> wrote:
> Dear All,
> Mohon bantuan
>
> Berhubung belum dapat solusi jadi saya kirim lagi.
>
> Saya ingin membuat tombol duplikat, dimana saya akan
> mengcopy dari data
> yang sudah ada, namun juga sekaligus membuat nomer
> baru. Bagaimana cara
> menggabungkan
>
> Private Sub new_Click()
> DoCmd.RunCommand acCmdRefreshPage
> Dim LastSending As String
> LastSending = DLast("noPR", "tbl_PR")
> DoCmd.GoToRecord , "FRM_PR", acNewRec
> Me![NoPR] = Format(Left(LastSending, 4) +
> 1,
> "0000") & Right(LastSending, Len(LastSending) -
> 4)
> End Sub
>
> Private Sub duplicate_Click()
> On Error GoTo Err_duplicate_Click
>
>
> DoCmd.DoMenuItem acFormBar, acEditMenu, 8, ,
> acMenuVer70
> DoCmd.DoMenuItem acFormBar, acEditMenu, 2, ,
> acMenuVer70
> DoCmd.DoMenuItem acFormBar, acEditMenu, 5, ,
> acMenuVer70 'Paste Append
>
> Exit_duplicate_Click:
> Exit Sub
>
> Err_duplicate_Click:
> MsgBox Err.Description
> Resume Exit_duplicate_Click
>
>
> terima kasih
> Sukarno
>
>
