احتاج كود لتغيير اسم جدول

استخدم هذا الكود

DoCmd.Rename "NEWNAME", acTable, "OLDNAME"

الله يجزاك بالجنة ماقصرت

لكن المشكله عندي أن الجدول في قاعده أخرى

أريد تغيير اسمه ثم استيراده

السلام عليكم

اين مكان بالضبط استخدام هذا الكود

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

faisal-k كتب:

الله يجزاك بالجنة ماقصرت

لكن المشكله عندي أن الجدول في قاعده أخرى

أريد تغيير اسمه ثم استيراده

السلام عليكم ورحمة الله

استخدم هذا الكود في النموذج وضعه في زر أمر

Private Sub Command0_Click()

On Error Resume Next

Dim db As Database

Set db = OpenDatabase("E:\db")

db.TableDefs("tbl_student").Name = "tbl_stu"

Set db = Nothing

End Sub

opendatabse بعدها ضع مسار قاعدة البيانات الخاصة بك

tbl_student هو الاسم الحالي للجدول

tbl_stu هو الاسم الذي تريد التغيير إليه

جرب الكود الموجود فى مشاركة الاخ azouzeg

و ان لم تنجح يفضل وضع مرفق

ألف شكر للأخazouzeg

استخدمت الكود وعمل معي بالشكل المطلوب

وأشكر تعاونك أخ Abo-yossof

جزيتم الجنـــــــة,,