نسخ الجدول فى نفس القاعدة وجعله فارغ بالكود

[محمد احمد لطفى]

أريد نسخ الجدول فى نفس القاعدة ويكون فارغ لا يوجد به بيانات

وجزاكم الله خيراً

 

testdate4.mdb

تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى

[Hamtoooo]

لم افهم ما تقصد
هل تريد زر امر يقوم بتفرغ بيانات الجول او كيف ؟

 

[محمد احمد لطفى]

عن طريق زر فى نموذج ينسخ الجدول والجدول الجديد فارغ 

مثل النسخ اليدوى

تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى

[Hamtoooo]

تفضل ان شاءالله يكون نفس ما تبي

تفريغ الجدول.accdb

[محمد احمد لطفى]

1 - نسخ جدول tblOld الى جدول جديد باسم tbLNew
2- أن يكون جدول tbLNew فارغ

تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى

[Eng.Qassim]

3 دقائق مضت, محمد احمد لطفى said:

نسخ جدول tblOld الى جدول احر باسم tbLNew
2- أن يكون جدول tbLNew فارغ

ده انكليزي ي محمد ههههه

والله لم افهمك ..رغم اني اعلم بأن أسألتك كبيرة

كيف ننسخ للجدول tbLNew ويكون فارغ ؟ هو بالاساس كان فارغ قبل النسخ ...وهو الان مليان بعد النسخ

ممكن توضيح اكثر استاذ محمد

 

[محمد احمد لطفى]

أستاذى @Eng.Qassim

جدول tblOld أريد عمل نسخه جديده منه الى tbLNew و يكون جدول الجديد tbLNew لا يوجد به بيانات مثل الصورة ولكن عن طريق كود

[Eng.Qassim]

طيب اعمل استعلام الحاق AppendQ

INSERT INTO tblOld ( sdate, idNum )
SELECT tblNew.sdate, tblNew.idNum
FROM tblNew;

ثم استعلام حذف deleteQ

DELETE tblNew.sdate, tblNew.idNum
FROM tblNew;

وفي زر نسخ الجدول ضع :

DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendQ"
DoCmd.OpenQuery "deleteQ"
DoCmd.SetWarnings True

 

[محمد احمد لطفى]

أستاذى @Eng.Qassim
جدول tblNew غير موجود

[kanory]

8 دقائق مضت, محمد احمد لطفى said:

أستاذى @Eng.Qassim
جدول tblNew غير موجود

مشاركة مع المهندس @Eng.Qassim

استخدم هذا .......

DoCmd.CopyObject , "tbLNew", acTable, "tblOld"
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbLNew.sdate  FROM tbLNew;"
DoCmd.SetWarnings True

 

[محمد احمد لطفى]

جزاكم الله كل خير

[سامي الحداد]

بالاضافة لما تفضل به الاساتذة اليك مشاركتي

Sub CopyTableStructure()
   
      If Not TableExists("tblOld") Then
        MsgBox "Table 'TblOld' does not exist in the current database."
        Exit Sub
End If

    Dim strPath As String
    strPath = CurrentProject.FullName
    DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, "tblOld", "TblNew", True


End Sub

Function TableExists(tblName As String) As Boolean
    TableExists = (CurrentDb.TableDefs(tblName).Name = tblName)
End Function

 

testdate4.mdb

[محمد احمد لطفى]

ربنا يبارك فيكم و يحفظكم