maaf mas. karno saya salah, kirain frm_PC tidak di
gabung, digabung juga toh, coba dech kirim balik lg
filenya soalnya punya saya td kehapus
Salam
Nurhasim
--- sukarno <[EMAIL PROTECTED]> wrote:
> untuk yg frm_PR sudah berhasil tapi untuk frm_PC
> ada komentar
> "you cant go to specified record"
>
> ada yg salah kah?
>
> sukarno
>
> [EMAIL PROTECTED] wrote:
> > coba ini mas cocok ngk ?
> > Private Sub new_Click()
> > DoCmd.RunCommand acCmdRefreshPage
> > Dim LastSending As String
> > LastSending = DLast("noPR", "tbl_PR")
> > 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
> >>>>
> > ininya ditaruh di sini (new_Clik)
> >
> >>>> Exit_duplicate_Click:
> >>>> Exit Sub
> >>>>
> >>>> Err_duplicate_Click:
> >>>> MsgBox Err.Description
> >>>> Resume Exit_duplicate_Click
> >>>>
> >>>>
> > Salam
> >
> >
> > Nurhasim
> >
> >
> >
> >
> > --- sukarno <[EMAIL PROTECTED]> wrote:
> >
> >
> >> Ini filenya,
> >> Mohon maaf masih sangat sederhana.
> >>
> >> Terima kasih atas bantuannya.
> >> Sukanro
> >>
> >> [EMAIL PROTECTED] wrote:
> >>
> >>> 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
> >>>>
> >>>>
> >>>>
> >>>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >
> >
> >
> >
> >
>
