تغيير القيم داخل قاعدة بيانات أكسس

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

اخي الكريم هذا يتوقف على التقنية المستخدمة في برنامجك

فاذا كنت تستخدم الـ DAO او ADO

فببساطة اذهب وافتح الجدول الموجود به السجل مثلا وغيرها كالتالي

RS("MyRecord") = "MyUpdate"

ثم تقوم بعمل تحديث للكل كالتالي

RS.Update

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

==========

الى اللقاء

السلام عليكم

الف الف شكر عزيزي

MR^King

على الرد

ربما لم استطع صياغة السؤال بشكل جيد

طلبي هو :

عندي قاعدة بيانات بأسم mmdf وقاعدة بيانات بأسم madf في كل القاعديتين يوجد جدول واحد فقط وأسمه tabel

ويوجد في الجدول الأول حقل يحمل أسم الحالة الاجتماعية وخصائص هذا الحق قيمة ثابتة وضعتها اثناء تصميمي للجدول وهذه القيمة هي (أعزب)

وعدد السجلات حوالي 300 سجل وتحمل القيمة أعزب

أريد زر كوماند يقوم بتغيير القيمة إلى متزوج داخل الجدول لجميع السجلات الـ 300

أتمنى ان يكون طلبي واضح وأنا على استعداد لأي اتفسار حول مشكلتي

المهم ان ينجح مشروعي بالكامل

ولك عزيزي MR^King جزيل الشكر والعرفان على لطفك وسعة صدرك علي وعلى أمثالي اللي ما بيفهموا بعض ؟؟؟؟؟؟؟؟؟؟؟

هذه طريقة

If Not RS.BOF Then RS.MoveFirst
Do Until RS.EOF
RS![Marital_State] = "متزوج"
RS.MoveNext
Loop

أهلاً وسهلاً بك عزيزي COMFORT

لكن ياريت تشرح لي أين اضع هذا الكود هل هو كود لزر أمر أما ماذا

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

أخي layan أعتقد ان الكود اللي وضعه كومفورت يقوم بالمطلوب وهذه طريقة أخرى مشابهة

RS.MoveFirst
Do While Not RS.EOF
RS("MyField") = "ãÊÒæÌ"
RS.Update
RS.MoveNext
Loop

وهذا الكود يتم وضعه تحت زر الكوماند اللي انت عاوزه يغير لك القيمة

لو فيه حاجة مش واضحة اكتب مرة اخرى وان شاء الله نساعدك بقدر الامكان :)

========

الى اللقاء

حياك الله

والله يعجز اللسان عن شكرك يا MR^King

يعطيك ربي 10000000000000000000 عافية

المعذرة الرقم في الأعلى مادري كم لكن تستاهل اكثر من كذا

وياليت تشوف مشكلتي الأخرى على هذا الرابط وتعطيني الحل

/index.php?showtopic=101685

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

اخي لا شكر على واجب

وجاري النظر في مشكلتك وان شاء الله تتحل :)

=========

الى اللقاء

للأسف لم تنحل مشكلتي بعد ولن أريدأن اخبرك بشئ نسيته

هو

أسم الجدول tabel

وأسم الحقل الذي أريد تغيير البيانات الموجودة فية هو halh

طبعاً القيمة أعزب أريد تغييرها إلى متزوج في 300 سجل تقريباً

السلام عليكم

اخي ضع هذا الكود تحت زر الأمر

If RS.state = 1 Then RS.Close

RS.open " select * from tabel", CN, 1, 2
RS.MoveFirst
Do While Not RS.EOF
RS("halh") = "متزوج"
RS.Update
RS.MoveNext
Loop
MsgBox "All records has been updated", vbOKOnly + vbInformation, "MR^King"

ان شاء الله يشتغل معاك

يمكن استدعاء استعلام بهذا الشكل

UPDATE tabel SET halh = 'متزوج';

الف الف شكر لكم جميعاً سأجرب وسأوافيكم بالنتيجة

للأسف لم تنجح الطريقة والأكواد في الأعلى

السلام عليكم

حمل المثال التالي

=======

الى اللقاء

examplez.rar

عفواً لم استطع تحميل المرفق