تعديل قيم الحقول بواسطة الكود

اسمl الحقل = true أو false

واعتقد انك تستطيع قراء السجل عندها يمكن تعديله

ارفق لكم مثال للجدول الذي اريد تغيير قيم احد حقوله بواسطة الكود مثلا السيد وليد معلم اريد ان امسح علامة ( الصح) من خانة معلم واضع تلك العلامة في خانة طالب

db5.rar

لنفترض ان اسم الحقل هو is_teacher

على الوحدة النمطية العامة Generalعرف المتغيرين التاليين

dim db as database

dim rs1 as recordset

على الوحدة النمطية عند التحميل للنموذج نكتب ما يلي

set db=currentdb

set rs1=db.openrecordset("khalid")

حيث khalid اسم الجدول

الان على اي زر في النموذج اكتب مايلي

dim i as integer

rs1.movefirst

for i=1 to rs1.recordcount

if rs1!teacher='ali' then

rs1.edit

rs1!is_teacher='no'

rs1.update

rs1.movenext

next i

شكرا لك اخي العزيز shawahneh

حاولت عدة مرات تطبيق هذا الكود وما ادى المطلوب اعتقد ان المشكلة في الجزء التالي

if rs1!teacher='ali' then

rs1.edit

rs1!is_teacher='no'

rs1.update

rs1.movenext

next i

لاني لا حظت ان البرنامج دائما يعتبر نتيجة الجملة الشرطية خطأ وبالتالي لا يكمل الاجراء

طبعا قمت بتغيير المسميات حسب ما هو لدي وادخلت عدة قيم في الحقل teacher للتجربة ولم يعمل

كذلك الكود الذي في حدث تحميل النموذج دائما يعطي رسالة خطا وقد نقلته في اول الاجراء في حدث الزر ومشى الحال

ايضا الاجراء السابق ينقصه End if

ارجو منك اخي الكريم اذا كان ممكن تطبق ذلك على المثال الذي ارفقته ولك مجددا الشكر والتقدير

تصدق في الجملة f rs1!teacher='ali' then قمت بتغيير العلامة = الى <> واشتغل الكود 100% وقام بتعديل اي سجل حقل الاسم به لا يساوي علي ولا ادري لماذا لا يعمل مع العلامة =