gamal_mcse قام بنشر نوفمبر 15, 2017 مشاركة قام بنشر نوفمبر 15, 2017 السلام عليكم نرجو ن خبراء الاكسيس حل المشكلة حيث اننى بحثت كثيرا عن الطريقة ولم يفيدني احد مرفق برنامج ارشفه ملفات لدينا عدة دواليب كل دولاب به 5 درفة وكل درفة بها 50 مكان للملفات اريد مثلا اختيار الدولاب 1 والدرفة 1 وحجز رقم الملف 1 وعند اضافة ملف اخر رقم الملف اللي هو 1 لايظهر حيث انه تم حجزه وهكذا عند ملئ الدرفة ب 50 ملف يتوجب علينا اختيار الدرفة الاخري وعند اكتمال ال 5 درف يتوجب علينا اختيار دولاب اخر استفسار.rar رابط هذا التعليق شارك More sharing options...
Admintagsa1289 قام بنشر نوفمبر 16, 2017 مشاركة قام بنشر نوفمبر 16, 2017 ماشاء الله ولا واحد عارف الاجابة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر نوفمبر 17, 2017 مشاركة قام بنشر نوفمبر 17, 2017 في ١٦/١١/٢٠١٧ 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 2 رابط هذا التعليق شارك More sharing options...
gamal_mcse قام بنشر نوفمبر 17, 2017 الكاتب مشاركة قام بنشر نوفمبر 17, 2017 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 انا شاكر جد جدا جدا جدا لحضرك ولوقتك جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.