تعديل ملفات ال DBF و MDB عن طريق الاكسل

[m.hindawi]

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

لقد انشات استعلام من شانه ان يعدل ملف MDB دون استيراد الملف الى الاكسل ولكنه لا يعمل به خطأ وحاولت كثيرا ان اعرف الخطا لكن دون جدوى

ارجو المساعدة

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

الملف موجود على الرابط التالي

http://www.officena.net/ib/index.php?act=A...pe=post&id=1687

تم تعديل مارس 6, 2005 بواسطه m.hindawi

[الدكتور خضر الرجبي]

السلام عليكم

الامر بسيط ، لقد نسيت أن تقوم بالانتقال إلى السجل التالي، والكود بعد التعديل يصبح :

Sub MM()
 Dim DB As Database
 Dim rs As Recordset
 Dim MYPATH As String
 MYPATH = Workbooks("Labour.xls").Path & "\MH1.mdb"
 Set DB = OpenDatabase(MYPATH)
 Set rs = DB.OpenRecordset("PM3")
 rs.MoveFirst
 Do Until rs.EOF
  If rs.Fields(3).Value = 395 Then
   rs.Edit
   rs.Fields(3).Value = 340
   rs.Update
  End If
  rs.MoveNext
 Loop
End Sub

مع الاحترام

[m.hindawi]

شكرا لك اخ خضر وسلمت يداك