الى خبراء الاكسيس حجز قيمة داخل الحقل وعدم ظهورها عند اختيارها مرة

[gamal_mcse]

السلام عليكم

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

مرفق برنامج ارشفه ملفات

لدينا عدة دواليب كل دولاب به 5 درفة وكل درفة بها 50 مكان للملفات

اريد مثلا اختيار الدولاب 1 والدرفة 1 وحجز رقم الملف 1

وعند اضافة ملف اخر رقم الملف اللي هو 1 لايظهر حيث انه تم حجزه

وهكذا عند ملئ الدرفة ب 50 ملف يتوجب علينا اختيار الدرفة الاخري

وعند اكتمال ال 5 درف يتوجب علينا اختيار دولاب اخر

 

استفسار.rar

[Admintagsa1289]

ماشاء الله ولا واحد عارف الاجابة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[Shivan Rekany]

في ١٦‏/١١‏/٢٠١٧ at 17:51, Admintagsa1289 said:

ماشاء الله ولا واحد عارف الاجابة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

في ١٥‏/١١‏/٢٠١٧ at 21:03, gamal_mcse said:

لدينا عدة دواليب كل دولاب به 5 درفة وكل درفة بها 50 مكان للملفات

اريد مثلا اختيار الدولاب 1 والدرفة 1 وحجز رقم الملف 1

وعند اضافة ملف اخر رقم الملف اللي هو 1 لايظهر حيث انه تم حجزه

وهكذا عند ملئ الدرفة ب 50 ملف يتوجب علينا اختيار الدرفة الاخري

وعند اكتمال ال 5 درف يتوجب علينا اختيار دولاب اخر

اتفضل اخي 
اولا انا غيرت اسماء الحقول الجدول الارشيف الى حروف الانكليزية

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

Private Sub رقمه_AfterUpdate()
    Dim SqlOn As String
        SqlOn = "UPDATE ارشيف SET ارشيف.TimAlHiciz = On WHERE (((ارشيف.RqmDulab)=[Forms]![الملفات]![دولاب]) AND ((ارشيف.RqmDerfe)=[Forms]![الملفات]![درفة]) AND ((ارشيف.RqmMilaf)=[Forms]![الملفات]![رقمه]));"
            DoCmd.SetWarnings False
                DoCmd.RunSQL (SqlOn)
            DoCmd.SetWarnings False
End Sub

اليك المرفق بعد تعديل

 

استفسار.rar

[gamal_mcse]

4 ساعات مضت, Shivan Rekany said:

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

اتفضل اخي 
اولا انا غيرت اسماء الحقول الجدول الارشيف الى حروف الانكليزية

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

Private Sub رقمه_AfterUpdate()
    Dim SqlOn As String
        SqlOn = "UPDATE ارشيف SET ارشيف.TimAlHiciz = On WHERE (((ارشيف.RqmDulab)=[Forms]![الملفات]![دولاب]) AND ((ارشيف.RqmDerfe)=[Forms]![الملفات]![درفة]) AND ((ارشيف.RqmMilaf)=[Forms]![الملفات]![رقمه]));"
            DoCmd.SetWarnings False
                DoCmd.RunSQL (SqlOn)
            DoCmd.SetWarnings False
End Sub

اليك المرفق بعد تعديل

 

استفسار.rar

انا شاكر جد جدا جدا جدا لحضرك ولوقتك

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