lordring قام بنشر أكتوبر 5, 2011 قام بنشر أكتوبر 5, 2011 السلام عليكم قمت باستخدام الدالة =Count([اسم_الموظف]) ليظهر لدي الناتج كالتالي ماهي الدالة الواجب استخدامها ليظهر العداد بنفس شكل الاكسس اي ان يكون النتاج مثلا 2 من 7 اي الجزء من الكل وليس العدد الكلي فقط وشكرا
Bluemind قام بنشر أكتوبر 5, 2011 قام بنشر أكتوبر 5, 2011 اخوي ضع الكود التالي في حدث On current او الحالي للنموذج If Not Me.NewRecord Then Me.RecNum = "سجل " & CurrentRecord & " من " & RecordsetClone.RecordCount & " سجلات" Else Me.RecNum = "سجل " & CurrentRecord & " من " & (RecordsetClone.RecordCount + 1) & " سجلات" End If كذلك لابد من تغيير Me.RecNum الى اسم مربع النص المراد اظهار النص فيه شاهد المرفق Database1.rar
lordring قام بنشر أكتوبر 5, 2011 الكاتب قام بنشر أكتوبر 5, 2011 شكرا اخي تم التنفيذ لكن حدث لدي مشكلة انه عندما افتح النموذج او اقوم بفرز فان مربع النص يبداء بالشكل التالي ولايقوم بالعد الا بعد ان اتنقل بين السجلات المشكلة الاخرى في التطبيق الذي اعمل عليه عندما اقوم بادراج مربع نص لايظهر لدي بالشكل المعتاد وانما يظهر بالشكل التالي ؟؟؟؟ بدون مربع تسمية ومنسقا باللون الظاهر بالشكل فمالسبب في ذلك
Bluemind قام بنشر أكتوبر 5, 2011 قام بنشر أكتوبر 5, 2011 ارفق مثالك الكود اعلاه يعمل بشكل ممتاز كما هو موجود بالمرفق في المشاركه اعلاه
lordring قام بنشر أكتوبر 5, 2011 الكاتب قام بنشر أكتوبر 5, 2011 فعلا اخي الكود شغال تمام لكن في المرفق التالي تحدث المشكلة http://dl.dropbox.com/u/9352509/access/xy.rar انتظر اقتراحاتك في الموضوع وشكرا
Bluemind قام بنشر أكتوبر 5, 2011 قام بنشر أكتوبر 5, 2011 ضع هذا السطرين من الكود في اول سطور الحدث on load للنموذج DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acFirst
lordring قام بنشر أكتوبر 5, 2011 الكاتب قام بنشر أكتوبر 5, 2011 (معدل) الله ينور عليك الان تمام 100% بارك الله بيك تم تعديل أكتوبر 5, 2011 بواسطه lordring
lordring قام بنشر أكتوبر 5, 2011 الكاتب قام بنشر أكتوبر 5, 2011 اسف اخي لكن المشكلة مستمرة عند اجراء الفرز هل من حل لذلك فقط انتهت مشكلة البداية لكن عندما اقوم بالفرز فنفس الحالة يبداء بشكل 1 من 1
Bluemind قام بنشر أكتوبر 6, 2011 قام بنشر أكتوبر 6, 2011 اخوي في حدث عند الحالي او on current ضع هذا السطر من الكود قبل جمله if Me.RecordsetClone.MoveLast فيصبح الكود كالتالي Me.RecordsetClone.MoveLast If Not Me.NewRecord Then Me.RecNum = "ÓÌá " & CurrentRecord & " ãä " & RecordsetClone.RecordCount & " ÓÌáÇÊ" Me.RecordsetClone.MoveLast Else Me.RecNum = "ÓÌá " & CurrentRecord & " ãä " & (RecordsetClone.RecordCount + 1) & " ÓÌáÇÊ" Me.RecordsetClone.MoveLast End If
lordring قام بنشر أكتوبر 6, 2011 الكاتب قام بنشر أكتوبر 6, 2011 جيد الان الامور تمام بالنسبة الى الفرز شكرا لك
lordring قام بنشر أكتوبر 6, 2011 الكاتب قام بنشر أكتوبر 6, 2011 اخي الكريم اتعبتك معي لكن حدث معي التالي بعد كتابة الاكواد الدالة تعمل بشكل مثالي لكن حصل لي تضارب مع مربع بحث سريع استخدمه في نفس النموذج حيث كنت سابقا حين ادخل حرف غير موجود يظهر لي سجل فارغ وبمجرد اضغط زر الغاء يعديني النموذج من جديد بكامل سجلاته الان عندما اضغط حرف خاطئ تظهر رسالة خطاء بعدم وجود مثل هكذا سجل واضطر لغلقها ومسح الحرف يدويا حيث بالضغط على زر الغاء تظهر نفس رسالة الخطاء ارفق لك نموذجي لتطلع عليه واذا امكن تخبرني اين الخلل او تقوم بتعديله ايهما ايسر لك وشكرا http://dl.dropbox.com/u/9352509/access/xy2.rar
Bluemind قام بنشر أكتوبر 6, 2011 قام بنشر أكتوبر 6, 2011 اخوي في حدث عند الحالي اكتب السطر التالي اول سطر On Error Resume Next اي قبل الكود التالي Me.RecordsetClone.MoveLast
lordring قام بنشر أكتوبر 7, 2011 الكاتب قام بنشر أكتوبر 7, 2011 شكرا اخي الان فقط بقي انه عند مسح الحرف الخاطئ او الضغط على الغاء فاني اضطر الى اعادة التاشير في مربع البحث والكتابة من جديد عكس ما كان سابقا فان التركيز يبقى في مربع البحث عند مسح الكلمة او الضغط على الغاء ارهقاك معي لكن عشمي بان تستمر بمساعدتي ولك مني اطيب تحية .
lordring قام بنشر أكتوبر 7, 2011 الكاتب قام بنشر أكتوبر 7, 2011 اتمنى ان تجد حل لهذا الاشكال الاخير مع التحية
Bluemind قام بنشر أكتوبر 7, 2011 قام بنشر أكتوبر 7, 2011 اخوي بارك الله فيك مثالك كما هو لم يتغير فيه شي حتى بعد اضافه الكود اعلاه راجع المشاركه رقم 6 لم يكن هناك اعاده تركيز على مربع البحث الا في حاله وجود نتائج للبحث اما اذا كان لايوجد اي نتيجه للبحث فلا يحدث شي
lordring قام بنشر أكتوبر 7, 2011 الكاتب قام بنشر أكتوبر 7, 2011 طيب اخي هل هناك امكانية لاعادة التركيز عليه ؟؟
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.