untuk frm_PC ditempat saya oke2 aja, cuma fungsi New
Record + PR No aja kan
--- sukarno <[EMAIL PROTECTED]> wrote:
>
>
> [EMAIL PROTECTED] wrote:
> > 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
> >>>>>>
> >>>>>>
> >>>>>>
>
=== message truncated ===
