ضع هذا الكود تحت حدث الزر
On Error GoTo Err_أمر0_Click
Dim X
X = CurrentProject.Path & "\" & CurrentProject.Name
DoCmd.TransferDatabase acExport, "Microsoft Access", X, acTable, "تأجير شقة", "نسخة من تأجير شقة", False
MsgBox "تم نسخ الجدول ", vbOKOnly, "تأكيد"
Exit_أمر0_Click:
Exit Sub
Err_أمر0_Click:
Resume Next