السلام عليكم ورحمة الله وبركاته
أنا عندي مشروع كامل لم يبقى الا زر الاضافة و التعديل و الحذف استعملت كل الطرق ولكن بدون جدوى لا تعمل الازرار
مع أن الكود صحيح ولكن بدون فائدة أرجو المساعدة و الله أنا محتاج له ضروري
لقد أرفقت لكم المشروع لتعديل عليه
جازاكم الله خيرا
هو فين الكود ؟؟
اشرح لو سمحت بتفصيل أكتر
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
الحقيقة أخي , انا حاولت معه الآن لكن قاعدة البيانات مش عندي
بعدين كما ذكرت , يجب انك توضح وظيفة البرنامج , ووظيفة الأزرار اللي فيها المشكلة .
وانت عارف ان الفاجوال بيزك لما بيحصل خطأ في البرنامج ويطلع لك رسالة الخطأ يقوم بتظليل جملة الخطأ باللون الأصفر , فيرجى ذكر ما هي
إلخ من المعلومات أخي , وبالذات ان البرنامج مش عربي أو انجليزي
شكرا
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
المشكلة هي في زر الاضافة (Ajouter)
و زر الحذف (Supprimer)
و زر التعديل (Modifier)
استعملت جميع الاكواد دون جدوى
الاكواد التي استعملتها
Data1.Recordset.addnew
واستعملت أيضا
With Data1.Recordset
.AddNew
!Referance = Text1
!Désignation = Text2
.Update
End With
Data1.Refresh
ولكن دون جدوى أرجو المساعدة
جازاك الله خيرا
لقد قمت بالتعديل على مشروعك وارفقت النسخة المعدلة وإليك ما قمت به:
*-تعديل خصائص الـ(Data Control) التالية:
Connect=Access
RecordSource=Bloca
حيث أنه كانتا هاتين الخاصيتين تحملان قيما أخرى
*-استبعاد الكائنين (RS,DB) وكل ما يتعلق بهما في البرنامج لعدم الحاجة لهما
حيث قمتُ بوضع علامة التعليق أمام تلك الشفرات,لإتاحة المقارنة مع ما تم إستبداله.
لأنه لا داعي لاستخدام أداة وصول أخرى(ADO) بما أنك قد أستخدمت أداة تحكم البيانات(Data Control)
وذلك لعدم التشعب والخلط!!!!!
*-الأهم في ذلك, أنني قد قمت بإضافة زر أسميته(NEW)وكتبت في حدث النقر الخاص به الكود:
Data1.Recordset.AddNew
أما حدث النقر على الزر(Ajouter) فلا يحتوي إلا على الكود التالي:
Data1.Recordset.Update
**-وبالتالي عندما تريد أن تضيف سجلاً جديدا قم بالنقر على زر(NEW)
لتلاحظ أنه قد تم تفريغ مربعات النصوص, عند ذلك قم بإدخال البيانات الجديدة
ثم انقر على زر(Ajouter) ليتم الحفظ.
وهذا الأسلوب معتمدفي قواعد بيانات ميكروسوفت وغيرها......!!
نقطة أخيرة : لقد قمت بزيادة حجم الحقل() إلى 80 لأني لاحظت أن هناك عنوان
قمت انت بكتابته يحتوي على اكثر من خمسين حرف, وكان قد تسبب بخطأ لذلك قمت بهذا التعديل.
لأي استفسار على الإميل:
FaresNet22@hotmail.com
فارس واصل...
FaresXyZ
هذا الموضوع مغلق.