المشاركات : 759
المواضيع 133
الإنتساب : May 2015
السمعة :
62
الشكر: 659
تم شكره 1388 مرات في 627 مشاركات
(29-08-22, 01:35 AM)Taha Okla كتب : (29-08-22, 01:27 AM)مصمم هاوي كتب : (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]
[/code]
كود :
بارك الله فيك أستاذ طه على ردك الذي أعنز به كثيراً
والمشكلة قد أنحلت والحمد لله
أعلم بارك الله فيك ولكن هنا عضو جديد سأل عن مشكلة تشابه موضوع هذه الصفحة.. هذا الرد له على سؤاله ..
لأنني دخلت عن طريق الجوال لم أنتبه للموضوع جيدا؛ إنه البصر ياسادة ههههههه
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 10
المواضيع 3
الإنتساب : May 2022
السمعة :
0
الشكر: 2
تم شكره 1 مرات في 1 مشاركات
بارك الله فيك استاذي الكريم . مشكور جدا على تفاعلك و مساعدتك جعل الله اعمالك في ميزان حسناتك
الحمد لله قبل وصول ردك تمكنت بفضل الله و بمساعدتك في المثال الاول من انجاز المطلوب بشويه تعب و اعصاب لكن الحمد لله انحلت المشكلة كما اني الغيت بعض الاكواد اضفتها لموديل و اشتغل البرنامج هال العال مشكور اخي و استاذي العزيز
المشاركات : 1,010
المواضيع 15
الإنتساب : May 2016
السمعة :
242
الشكر: 665
تم شكره 1852 مرات في 958 مشاركات
حاول قد المستطاع ألا تعتمد على متغير عام مهما كانت درجة ضرورته.
وستبقى حينها مستمر بدون مشاكل أو توقفات..
فاستخددام المتغيرات العامة بشكل مستمر يودي إلى تعارض الطلبات واختلاف النتيجة عن المطلوب.
مشكلة صغيرة في متغير عام قد توقف برنامجك عن العمل لشهور وأنت تبحث عن مكان المشكلة..
وفي الاخر تجدها أتفه من أن تقف عندها --
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
المشاركات : 759
المواضيع 133
الإنتساب : May 2015
السمعة :
62
الشكر: 659
تم شكره 1388 مرات في 627 مشاركات
30-08-22, 09:09 AM
(آخر تعديل لهذه المشاركة : 30-08-22, 09:10 AM {2} بواسطة مصمم هاوي.)
(30-08-22, 04:00 AM)Taha Okla كتب : حاول قد المستطاع ألا تعتمد على متغير عام مهما كانت درجة ضرورته.
وستبقى حينها مستمر بدون مشاكل أو توقفات..
فاستخددام المتغيرات العامة بشكل مستمر يودي إلى تعارض الطلبات واختلاف النتيجة عن المطلوب.
مشكلة صغيرة في متغير عام قد توقف برنامجك عن العمل لشهور وأنت تبحث عن مكان المشكلة..
وفي الاخر تجدها أتفه من أن تقف عندها --
معلومة قيمة
وقد حدث لي هذا واحترت في معرفة الخطأ؛ حتى قمت بحذف المتغيرات العامة فانحلت المشكلة وكنت أظن أن فعلي هذا أيضا خطأ ولكن الآن اسديت لي وغيري معلومة قيمة.
جزيت خيرا وكفيت شرا
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ