أخطاء في مشروعي لم أجد لها حل

أينكم يا مباركين ...

.

بالنسبة الـ textbox التى لاتستطيع الكتابة فيها

اقف على الـ textbox ومن Properties إجعل Locked = False

بالنسبة للترقيم التسلسلى ضع الكود التالى تحت زر تفريغ الحقول الكود التالى

Text1 = rs.RecordCount + 1

شكرالك و بارك الله فيك ...أخي مصطفى ...

نرجو الافادة في البقية لمن لديه العلم ...

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

بخصوص عرض القيود تحت شرط معين فتحتاج اولا حقل في الجدول الرئيسي قابل للتحديث

وهذا الحقل يمثل حالة العائلة اي اذا كانت محتاجة وهو الحالة الاولية التي يجب ادخالها

ومن ثم اضافة حقل للتحديث ويعني استبعاد عائلة معينة من المساعدة ويكون كود التحديث

كالتالي

sqls1 = "update table1 set States = 'No' where code = '" & Text1 & "'"
If rs1.State = adStateOpen Then rs1.Close
rs1.Open sqls1, db, adOpenKeyset, adLockPessimistic

ويعني تحديث حقل الحالة من Yes الى No

وحسب كود الشخص لكي يتم تحديد القيد المطلوب تحديثة

وبعدها يصبح الاستعلام سهل بشرط الحالة وكما في الكود التالي

sqls = "select * from table1 where States = 'No'"
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic

ارجو ان يكون الشرح واضحا

وبالتوفيق

بخصوص الترقيم التلاقئ وهذا من قاعد البيانات حسث يكون اول حقل نمبر ويكون خصائصه ( ترقيم تلقائى)

ويكون مفتاح اساسى وفى التكست بوكس فى الفيجول خليها read only = true