كيف انسخ جدول الى A

جواب السؤال الأول :

ضع الكود التالي في وحدة نمطيه عامة

Function Transfer()
On Error GoTo Transfer_Err

    DoCmd.TransferSpreadsheet acExport, 8, "أكتب هنا اسم الجدول", "A:أكتب هنا اسم الجدول", False, ""


Transfer_Exit:
    Exit Function

Transfer_Err:
    MsgBox Error$
    Resume Transfer_Exit

End Function

وضع زر أمر على أي نموذج تريد ثم في حدث عند النقر الخاص بزر الأمر ضع التالي :

=Transfer()

جواب السؤال الثاني نفس الطريق الأولة ماعدى الكود هو التالي :

Function acImport()
On Error GoTo Transfer_Err

    DoCmd.TransferSpreadsheet acImport, 8, "أكتب هنا اسم الجدول", "A:أكتب هنا اسم الجدول", False, ""


Transfer_Exit:
    Exit Function

Transfer_Err:
    MsgBox Error$
    Resume Transfer_Exit

End Function

لك أخي مصلح الحريصي وبارك الله فيك.

:b1