خطأ لم أفهم ما معناه عن Method

فى الغالب خطأ بكتابة الكود , تخيل معى الكود التالى :

Me.Captiom = "d"

أنا كتبت Captiom و ليس Caption و لا توجد Method بالأسم ده و بالتالى ظهر الخطأ , أرفق كودك للتسهيل أن لم تجد الخطأ بنفسك .

أخي الفاضل أنا فهمت عليك لكن انظر إلى الصور وحاول أن تفسر لي الخطأ:-

صورة للكود ورسالة الخطأ:-

جرب :

Set DataGrid1.DataSource = rsmine

يظهر لي خطأ ويحدد لي الكود الذي أعطيتني إياة بالأحمر.

لا أعرف السبب؟؟

السلام عليكم ورحمة الله وبركاته

Set DataGrid1.DataSource = rsmine

هذا الكود خطأ خالص لا يصلح نهائيا في كودك :angry:

حيث ان هذا يقوم بأسناد الـ RecordSet الى مصدر البيانات للداتا جريد ( بمعنى يحدث فعل )

فا الشرط المستخدم غير منطقي !!!

فما الفكره الذي تدور قي دماغك حتى استوعب معك ما تريده ونصل لأفضل الحلول ؟

بالتوفيق ,,,,,

A7med_prof

أنا لدي قاعدة بها 14 جدول وعندي شاشة للبحث والتعديل والحذف ونتائج البحث تعرض في الداتا جريد فالأمر المستخدم في الحذف سوف يكون :-

rs.delete صح؟

ولكن بما أن لدينا 14 جدول في القاعدة فهذا معناة أن الداتا جريد ممكن أن يكون يقوم بعرض أي واحدة وهذا حسب البحث خذ هذا المثال لكي تفهم:-

عرضنا الجدول رقم 2 في الداتا جريد والقيمة المسندة إلية rs2 وأريد حذف سجل عندما أحدد السجل وأضغط زر حذف يقوم بتطبيق الأمر rs.delete وهنا بالطبع سوف يقع خطأ لأن السجل الذي إخترتة موجود في الجدول رقم2 والأمر مسند للجدول 1.

المطلوب:-

أنا إريد أن يتحقق من الجدول المعروض في الداتا جريد وعلى أساسها يطبق الأمر مثال:-

أنا عرضت الجدول رقم2 وأريد حذف سجل أضغط على زر حذف سوف يطبق الأمر وهو التحقق من الجدول المعروض حاليا الذي هو الجدول 2 وسوف يطبق الأمر rs2.delete.

وشكرا....

السلام عليكم ورحمة الله وبركاته

بدل اللفه و IF ...... وطول في الكود .... ومتنفعش اساسا بالطريق السابق ذكرها ...

اتبع هذه الخطوط

- عرف على المستوى العام Object من نوع Recordset فليكن مثلا اسمه rsaTemp :

Dim rsaTemp As Recordset

- ومن ثم عند اسناد الـ RecordSet الى مصدر البيانات للداتا جريد ساوي الـ Recordset المسند الى مصدر البيانات في الداتا جريد الى المتغير rsaTemp .

	Set DataGrid1.DataSource = rsa
	Set rsaTemp = rsa

وعند اجراء عملية المسح تعامل بـ rsaTemp

rsaTemp.Delete

بالتوفيق ,,,,

A7med_prof

فكرة حلوة أخي أحمد . :)