بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'dao.recordset'.
تم العثور علي 1 نتيجه
-
السلام عليكم اساتذتي الكرام كيف يمكن استعمال هذا الكود ليضيف جميع حقول الجدول table1 hg الى الجدول table2 دفعة واحدة مثل استعمال مود الاحاق باستخدام (*) Dim rstFrom As DAO.Recordset Dim rstTo As DAO.Recordset Dim StrSql2 As String Set rstTo = CurrentDb.OpenRecordset("Select * From table2") Set rstFrom = CurrentDb.OpenRecordset("Select * From table1") rstFrom.MoveLast: rstFrom.MoveFirst RC = rstFrom.RecordCount For i = 1 To RC rstTo.AddNew rstTo!codhesab = rstFrom!codhesab rstTo.Update rstFrom.MoveNext Next i Set rstTo = Nothing Set rstFrom = Nothing MsgBox "Done" وبارك الله فيكم وفي علمكم