مطلوب كود حذف جدول ثم استنساخه مرة أخرى من جدول آخر

[ابو جودي]

24 دقائق مضت, ابوخليل said:

خلف الزر الصق هذا السطر :

سبحان الله مع انو جربتها ولكن لا اعرف لماذا لم تعمل 

وممكن تنفيذ السيناريو المطلوب بالشكل التالى  بوضع الكود الاتى فى وحدة نمطية عامة لو اردنا استدعاء الكود اكثر من مرة وفى اكثر من مكان
 

Const TargetTableName As String = "tblDataB"
Const SourceTableName As String = "tblData"

Sub CopyTableWithOverwrite()
    ' Check if the destination table already exists and delete it
    If TableExists(TargetTableName) Then
        DoCmd.DeleteObject acTable, TargetTableName
    End If
    
    ' Copy the source table to the target table
    DoCmd.CopyObject , TargetTableName, acTable, SourceTableName
End Sub

' Helper function to check if a table exists
Function TableExists(tableName As String) As Boolean
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    On Error Resume Next
    Set db = CurrentDb
    Set tdf = db.TableDefs(tableName)
    TableExists = (Err.Number = 0)
    On Error GoTo 0
    Set tdf = Nothing
    Set db = Nothing
End Function

على ان يكون الاستدعاء فقط بالشكل التالى على زر الامر او وفق اهوائك ورغباتك فى الحدث والوقت المناسبين
 

    ' Call the CopyTableWithOverwrite subroutine to perform the table copy
    CopyTableWithOverwrite

 

[ابوخليل]

شكرا ابا جودي على المرور والتقييم

3 دقائق مضت, ابو جودي said:

سبحان الله مع انو جربتها ولكن لا اعرف لماذا لم تعمل 

 

اعتقد يبدوا حينها ان لديك خلل او خطأ في التسمية

[ابو جودي]

2 دقائق مضت, ابوخليل said:

اعتقد يبدوا حينها ان لديك خلل او خطأ في التسمية

بصراحة لا اتذكر السبب تحديدا ولتأكدى من التجربة اكثر من مرة والحصول على نقس النتيجة وقتها اعتقدت انها مشكلة وقصور فى الاكسس 

[أحمد العيسى]

DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "tbl_Student2"
DoCmd.CopyObject , "tbl_Student2", acTable, "tbl_Student"
DoCmd.SetWarnings True

فعلاً  هى أفضل إجابة بقليل من السطور فى كتابة الكود .. شكراً لك

لكن أيضاً  لا أنسى توجيه الشكر للأخ العزيز  Foksh  على مجهوده وعمله

وكذلك  ابو جودي  على التحفيز والتحدى لنصل لهذا الحل

[ابوخليل]

منذ ساعه, أحمد العيسى said:

فعلاً  هى أفضل إجابة بقليل من السطور فى كتابة الكود .. شكراً لك

 

ليست بالقليل .. فخلف هاتين الكلمتين   DeleteObject و  CopyObject  مكتبة عظيمة اوجدتها مايكروسوفت

لو اني تمهلت  قليلا لكان الإخوة بارك الله فيهم عملوا وحدة نمطية محاكية لها . او بالاصح محاكية للجزئية الخاصة بالنسخ واللصق .