السلام عليكم ورحمة الله وبركاته
صباح الخير / مساء الخير
لدي جدول ومليان سجلات ..
تحتوي على ( التاريخ )
ومع الوقت أضطررت إلى إضافة حقلين إلى الجدول وهما :
رقم الشهر
رقم السنة
وأريد معالجة البيانات اللي في الجدول بحيث يكون رقم الشهر ورقم السجل في الحقول المخصصة لهما . ( المثال مرفق )db3.rar
وحاولت استخدم هذا الكود ولكن لم أوفق في ذلك ..
Dim db As Database
Dim MyTABLE As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyTABLE = db.OpenRecordset("t_data", dbOpenTable)
Do While Not MyTABLE.EOF
MyTABLE.Edit
MyTABLE![txty] = Format(txtdate, "yyyy")
MyTABLE![txtm] = Format(txtdate, "mm")
MyTABLE.Update
MyTABLE.MoveNext
Loop
MyTABLE.Closeفأرجو ممكن يعرف المساعدة في الطريقة المناسبة .
شكرا لكم .
