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
