[مصمم هاوي]

(28-08-22, 10:41 PM)Taha Okla كتب :

(28-08-22, 09:15 PM)2003amin كتب : بارك الله فيك استاذي مثالك شغال و عال العال لكن صراحة عندما اردت نقله الى مشروعي لم يشتغل 
ارفقت لك جزء من المشروع ياريت تلقي نظرة اين يقع الخطا 
شكرا لك سلفا استاذي الغالي


المرفق

المتغيرات اللي شغلهن جزئي لا تعرفهن خارج أحداثهن - حتى يتم تدميرهن لما ينتهي عملهن - وما يظلوا سبب لمشاكل أنت بغنى عنهن..
أمسح تعريفهن من قسم التعريف العام .. 

خذ هذا الكود وانقله عندك - 
ولا تنسى تصحيح اسماء الحقول في الجدوال في قاعدة البيانات - أو تصلحهن ضمن الكود ..
لأن الأسماء غير مطابقة للحقول في الجداول بعضهن خطأ..

كود :

 Dim rs1 As New ADODB.Recordset
 Dim rs2 As New ADODB.Recordset
 
  rs1.Open "SELECT * FROM [addbook] Where NamEtatLivre ='ضائع'", Cn, adOpenDynamic, adLockOptimistic  'DB, adOpenStatic, adLockOptimistic
  rs2.Open "SELECT * FROM [addbookLoste] ", Cn, adOpenDynamic, adLockOptimistic
  If rs1.RecordCount > 0 Then rs1.MoveFirst
  If rs2.RecordCount > 0 Then rs2.MoveLast
 
  Do Until rs.EOF
      rs2.AddNew
      rs2![Code] = rs1![Code]
      rs2![Name] = rs1![Name]
      rs2![auther] = rs1![auther]
      rs2![CategorieLivre] = rs1![CategorieLivre]
      rs2![publisher] = rs1![publisher]
      rs2![yearEntrerLibrary] = rs1![yearEntrerLibrary]
      rs2![NamEtatLivre] = rs1![NamEtatLivre]
      rs2![Etab] = rs1![Etab]
      rs2![AgentLibrary] = rs1![AgentLibrary]
      rs2.Update
      rs1.Delete      ' اذا كنت تريد النقل فقط دون الحذف افسخ هذا الحقل
      rs1.MoveNext
  Loop

[/code]

بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله