تكرار السجل ؟؟؟

مسائكم الله بالخير

السلام عليكم

من فضلكم اريد طريقة لتكرار السجل

وشكراً

مساعده ؟؟؟

عزيزي هذال:

ضع هذا الكود في زر أمر في النموذج المراد تكرار السجل فيه! حيث Command0 هو اسم زر الأمر

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click


	DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
	DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
	DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Exit_Command0_Click:
	Exit Sub

Err_Command0_Click:
	MsgBox Err.Description
	Resume Exit_Command0_Click

End Sub