محمد احمد لطفى قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 (معدل) أريد نسخ الجدول فى نفس القاعدة ويكون فارغ لا يوجد به بيانات وجزاكم الله خيراً testdate4.mdb تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
Hamtoooo قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 لم افهم ما تقصد هل تريد زر امر يقوم بتفرغ بيانات الجول او كيف ؟ 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 (معدل) عن طريق زر فى نموذج ينسخ الجدول والجدول الجديد فارغ مثل النسخ اليدوى تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
Hamtoooo قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 تفضل ان شاءالله يكون نفس ما تبي تفريغ الجدول.accdb 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 (معدل) 1 - نسخ جدول tblOld الى جدول جديد باسم tbLNew 2- أن يكون جدول tbLNew فارغ تم تعديل يناير 25, 2023 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 3 دقائق مضت, محمد احمد لطفى said: نسخ جدول tblOld الى جدول احر باسم tbLNew 2- أن يكون جدول tbLNew فارغ ده انكليزي ي محمد ههههه والله لم افهمك ..رغم اني اعلم بأن أسألتك كبيرة كيف ننسخ للجدول tbLNew ويكون فارغ ؟ هو بالاساس كان فارغ قبل النسخ ...وهو الان مليان بعد النسخ ممكن توضيح اكثر استاذ محمد 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 أستاذى @Eng.Qassim جدول tblOld أريد عمل نسخه جديده منه الى tbLNew و يكون جدول الجديد tbLNew لا يوجد به بيانات مثل الصورة ولكن عن طريق كود رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 طيب اعمل استعلام الحاق 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 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 أستاذى @Eng.Qassim جدول tblNew غير موجود رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يناير 25, 2023 أفضل إجابة مشاركة قام بنشر يناير 25, 2023 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 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر يناير 25, 2023 مشاركة قام بنشر يناير 25, 2023 بالاضافة لما تفضل به الاساتذة اليك مشاركتي 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 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 25, 2023 الكاتب مشاركة قام بنشر يناير 25, 2023 ربنا يبارك فيكم و يحفظكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان