m.hindawi قام بنشر مارس 6, 2005 مشاركة قام بنشر مارس 6, 2005 (معدل) السلام عليكم ورحمة الله وبركاته لقد انشات استعلام من شانه ان يعدل ملف MDB دون استيراد الملف الى الاكسل ولكنه لا يعمل به خطأ وحاولت كثيرا ان اعرف الخطا لكن دون جدوى ارجو المساعدة والسلام عليكم ورحمة الله وبركاته الملف موجود على الرابط التالي http://www.officena.net/ib/index.php?act=A...pe=post&id=1687 تم تعديل مارس 6, 2005 بواسطه m.hindawi رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر مارس 7, 2005 مشاركة قام بنشر مارس 7, 2005 السلام عليكم الامر بسيط ، لقد نسيت أن تقوم بالانتقال إلى السجل التالي، والكود بعد التعديل يصبح : 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 مع الاحترام رابط هذا التعليق شارك More sharing options...
m.hindawi قام بنشر مارس 7, 2005 الكاتب مشاركة قام بنشر مارس 7, 2005 شكرا لك اخ خضر وسلمت يداك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها