استفسار حول Check Box ؟؟؟؟؟ ارجو المساعدة

uppppp

السلام عليكم

بعد محاولات عدديدة توصلت الى الكود التالي :

If Me!checkbox1.Value = True Then

Me!checkbox2.Value = True

Else

Me!checkbox2.Value = False

End If

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

بلييييييييييييز انتظركم .....db1.rar

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

أختي الكريمة ... تم عمل ما تريدين في المرفق التالي .. وستلاحظين مربع نص للحقل id_person وضعته في النموذج الرئيسي .. لتفهمي الكود .. وتستطيعين إخفاءه لاحقا ... بتغيير خاصية "مرئي" إلا "لا"

koao_db1.zip

ولكن لاحظت خطأ في بنية قاعدة البيانات ... أدى إلى خطأ ... ستلاحظينه .... وهو عند النقر على مربع الإختيار "إنتهت المعاملة" عند سجل "عيد" مثلا فإن مربعات الإختيار لـ "تم الإستلام" له ستغير ... ولكن إذهبي للسجل التالي لعبدالرحمن ستجدين مربع الإختيار لـ "إنتهت المعاملة" موضوع عليها صح مع أن مربعات الإختيار لـ "تم الإستلام" له تخالفه ... أتمنى تكون واضحة

وذلك بسبب أنك وضعت لمربع الإختيار "إنتهت المعاملة" مصدر صف وهو end_process وهو في الجدول process ... فأي تغيير على هذه الخيار سينطبق على كل السجلات في العملية حتى ولو كان فيها أكثر من شخص

وما أردت أغير شئ حتى تفهمين الخطأ ثم يحل إن شاء الله

السلام عليكم لخي العزيز

جزاك الله خير على المساعدة فعلا اسال الله ان يجزاك كل خير

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

وبما ان المعاملة الواحدة تحتوي على اكثر من موظف ولكل موظف اكثر من شيك وضعت مربع الاختيار لانتهاء المعاملة مع جدول المعاملات فاذا كان هناك خطا ارجو منك توضيحه وتصحيحه

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

شكرا جزيلا

هل تقصد انه يجب وضع حقل end_process في جدول اخر ؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم

اخي العزيز

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

اشكرك جزيلا واسال الله ان يجعل مساعدتك في موازيين حسناتك

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

يبدو أني فهمت غلط ... والحمدلله ... مادام أن المطلوب تحقق ... وأنا وضعت رقم الموظف ... لأستخدمه في الشرط الذي حذفتيه ... وبهذه الحالة ... ليس لوجوده حاجة

وبالتوفيق

جزاك الله خيرا

هل لي من استفساراخر اذا سمحت ؟؟؟

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

المشكلة : انه عند الحذف من الكمبوبوكس فانه يحذف اسم الجهة اي القيمة ويترك السجل فارغا ايي انه لايحذف السجل بالكامل وبالتالي يترك هذا السجل فارغ

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

أختي الكريمة ... بحكم عدم وجود مثال ... فسأفترض الحل وأتمنى أن يكون ما تريدين

سنفرض أن عندك مربع تحرير وسرد بإسم MyCB ... به أسماء من الحقل MyName من الجدول MyTable ... وتريدين عند إختيار المستخدم إسم من مربع التحرير والسرد ثم النقر على زر الحذف ينحذف كامل سجل الإسم المطابق من الجدول ومن مربع التحرير والسرد

لعمل ذلك ضعي الكود التالي في حدث النقر على زر الحذف

نصيحتي لك إذا كنت تتعاملين مع كود حذف في مرحلة التجربة أن تأخذي نسخة لقاعدة البيانات لكي لا تضيع بياناتك ... وإذا نجح الكود فالحمدلله

DoCmd.SetWarnings False
DoCmd.RunSQL "Delet * From MyTable Where MyName = '" & Me![MyCB]
Me![MyCB].Requery
DoCmd.SetWarnings True

وبالتوفيق

تطبيق Microsoft Office Access جديد __.rarالسلام عليكم اخي الكريم

الكود الذي كتبته هو نفس الكود الذي استخدمه تقريبا ولكن مازالت المشكلة قائمة وهي انه يحذف القيمة من السجل ولايحذف سجل بالكامل اي بعد الحذف اذا ذهبت الى جدول الكمبوبوكس وهو points فستلاحظ وجود سجلات فارغة

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

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

أختي الكريمة ... السبب أنكي جعلتي خاصية "مصدر عنصر التحكم" لمربع التحرير والسرد work_point ... وفي آخر كود الحذف وضعتي الكود التالي

Me.نص10 = ""

فبداية الكود تحذف السجل والكود السابق يضيف سجل فارغ

ولحل المشكلة أجعلي مربع التحرير والسرد غير منضم وذلك بتغيير خاصية "مصدر عنصر التحكم" فارغة

وبالتوفيق

أخي koao

بارك الله فيك .. لاحظت ماتقدمه لإخوتك هنا

جزاك الله كل خير .. واصل العطاء أخي ...... +1

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

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

وجزاك الله خير على تقديرك واهتمامك

السلام عليكم

شكرررررا جزيلا اخي الكريم اسال الله ان يزيدك من فضله ويجزيك كل الخير على المساعده

هل لي باخر استفسار فضلا لا امرا عزيزي انا اعتذر على كثرة الاسئلة فعلا انا خجلانه !!!!

طبعا سؤالي هذه المرة بخصوص اضافة سجل جديد في النموذج الفرعي الشيكات من خلال زر يسمى ( اضافة شيك ) موجود في النموذج الرئيسي

بانتظار الرد db1.rar

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

أختي الكريمة ... شفت طلبك هذا في مشاركه سابقة ... وحاولت المساعدة ولكن كل مرة يتعقد برنامجك ... وبحكم أني لا أعرف كيفية إرتباط البيانات وعلاقاتها .. وهناك أكواد ليست مرتبطة بعناصر في النموذج ... فيبدو أنكي تحذفين بعض الكائنات التي ليس لها إرتباط بسؤالك ... فوجدت صعوبة ... في المساعدة

ولكن طلبك هنا مرة أخرى ... كان لابد أن أفهم كل جزئية ... فحاولت واجتهدت ... والمرفق التالي كان محاولتي

فأرجو من الله أن يكون ما تريدين

وبالتوفيق

koao_db888.zip

السلام عليكم

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

لدي سؤال حول عملية التشيك بوكس الخاصة بانتهاء المعاملة هل تذكر عندما نضع صح على انتهت المعالمة يتم التاشير تلقائيا على جميع خانات تم الاستلام لشيكات الموظفين المرتبطين فقط بهذه المعاملة وليس كل المعاملات

انت كتبت الكود التالي DoCmd.RunSQL "update checks set receive_status = " & Me!end_process.Value & " where id_person= " & Me! id_person

حيث في هذا الكود يتم التغيير في جدول الشيكات لموظف واحد فقط وانا كنت اريد كل الموظفين الموجودين ضمن المعاملة المحددة فقمت بحذف الشرط وظننت ان المشكلة انحلت ولكن عندما بدأت في مرحلة اختبار البرنامج لاحظت انه بعد البحث عن رقم معاملة معينة واستعراض الموظفين وشيكاتهم في هذه المعاملة فقط وليس جميع المعاملات ومن ثم الضغط على خانة انتهت المعاملة فيتم كما نريد التاشير والتغيير في خانة تم الاستلام لجميع شيكات الموظفين طبعا بعد ان حذفت الشرط الخاص ب id_person ولكن اذا بحثت عن معاملة اخرى سواء بالرقم او التاريخ واستعراض الموظفين وشيكاتهم الاحظ ان خانة انتهت المعاملة لم التاشير عليها وهذا هو الصح وفي المقابل اجد جميع خانات تم الاستلام لشيكات الموظفين قد تم التاشير عليها رغم اني لم انقر على خانة انتهت المعاملة لهذه المعاملة وانما لمعاملة اخرى برقم وتاريخ اخر

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

DoCmd.RunSQL "update checks set receive_status = " & Me!end_process.Value & " where id_process= " & Me! id_process

ولكن مازالت المشكلة قائمة ارجوووووووووك ساعدني لا ادري مالمشكلة هل الكود غلط koao_db1.rar

بانتظار الرد

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

اختي الكريمة .. تم إستخدام جملة SQL التالية

DoCmd.RunSQL "update checks set receive_status = " & Me!end_process.Value & " where id_person in (select id_person from persons where id_process = " & Me!id_process & ")"

ولتجميل عرض الكود وتقسيمه على اكثر من سطر .. كتبنا الكود التالي .. عوضا عنه

Dim SQL As String
SQL = "update checks set receive_status = " & Me!end_process.Value
SQL = SQL & " where id_person in (select id_person from persons where id_process = "
SQL = SQL & Me!id_process & ")"
DoCmd.RunSQL SQL

ومعنا جملة SQL السابقة بالعربي .... حدث الجدول checks بجعل قيمة الحقل receive_status تساوي قيمة مربع الإختيار Me!end_process.Value بشرط ان قيمة الحقل id_person تساوي أي من ما في القوسين من قيم ... وهذه القيم تجلب من جملة SQL التي بين القوسين ومعناها ... إجلب قيم الحقل id_person من الجدول persons بشرط أن قيمة الحقل id_process تساوي مربع النص Me!id_process

وبالتوفيق

koao_db8888.zip

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

جزاك الله خير واسال الله ان يكثر من امثالك الذين لايبخلون ولايتعبون في مساعدة الاخرين طالما لديهم المعلومة والعلم النافع

شكرا جزيلا لك .......تحياتي