السلام عليكم اساتذتي الافاضل
في القاعده المرفقه النموذج Faaa هل بالامكان وضع زر امر فيه يتيح لي تكرار السجل الحالي . تحياتي لكم
تكرار السجل الحالي.rar
تفضل هذا كود تكرار السجل : 🙂
Private Sub DublicateRecBtn_Click()
On Error GoTo Err_DublicateRecBtn_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Exit_DublicateRecBtn_Click:
Exit Sub
Err_DublicateRecBtn_Click:
MsgBox Err.Description
Resume Exit_DublicateRecBtn_Click
End Sub