lordring قام بنشر أكتوبر 5, 2011 مشاركة قام بنشر أكتوبر 5, 2011 السلام عليكم قمت باستخدام الدالة =Count([اسم_الموظف]) ليظهر لدي الناتج كالتالي ماهي الدالة الواجب استخدامها ليظهر العداد بنفس شكل الاكسس اي ان يكون النتاج مثلا 2 من 7 اي الجزء من الكل وليس العدد الكلي فقط وشكرا رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 5, 2011 الكاتب مشاركة قام بنشر أكتوبر 5, 2011 شكرا اخي تم التنفيذ لكن حدث لدي مشكلة انه عندما افتح النموذج او اقوم بفرز فان مربع النص يبداء بالشكل التالي ولايقوم بالعد الا بعد ان اتنقل بين السجلات المشكلة الاخرى في التطبيق الذي اعمل عليه عندما اقوم بادراج مربع نص لايظهر لدي بالشكل المعتاد وانما يظهر بالشكل التالي ؟؟؟؟ بدون مربع تسمية ومنسقا باللون الظاهر بالشكل فمالسبب في ذلك رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 5, 2011 الكاتب مشاركة قام بنشر أكتوبر 5, 2011 وشكرا لك مرة ثانية رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر أكتوبر 5, 2011 مشاركة قام بنشر أكتوبر 5, 2011 ارفق مثالك الكود اعلاه يعمل بشكل ممتاز كما هو موجود بالمرفق في المشاركه اعلاه رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 5, 2011 الكاتب مشاركة قام بنشر أكتوبر 5, 2011 فعلا اخي الكود شغال تمام لكن في المرفق التالي تحدث المشكلة http://dl.dropbox.com/u/9352509/access/xy.rar انتظر اقتراحاتك في الموضوع وشكرا رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر أكتوبر 5, 2011 مشاركة قام بنشر أكتوبر 5, 2011 ضع هذا السطرين من الكود في اول سطور الحدث on load للنموذج DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acFirst رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 5, 2011 الكاتب مشاركة قام بنشر أكتوبر 5, 2011 (معدل) الله ينور عليك الان تمام 100% بارك الله بيك تم تعديل أكتوبر 5, 2011 بواسطه lordring رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 5, 2011 الكاتب مشاركة قام بنشر أكتوبر 5, 2011 اسف اخي لكن المشكلة مستمرة عند اجراء الفرز هل من حل لذلك فقط انتهت مشكلة البداية لكن عندما اقوم بالفرز فنفس الحالة يبداء بشكل 1 من 1 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 6, 2011 الكاتب مشاركة قام بنشر أكتوبر 6, 2011 جيد الان الامور تمام بالنسبة الى الفرز شكرا لك رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 6, 2011 الكاتب مشاركة قام بنشر أكتوبر 6, 2011 اخي الكريم اتعبتك معي لكن حدث معي التالي بعد كتابة الاكواد الدالة تعمل بشكل مثالي لكن حصل لي تضارب مع مربع بحث سريع استخدمه في نفس النموذج حيث كنت سابقا حين ادخل حرف غير موجود يظهر لي سجل فارغ وبمجرد اضغط زر الغاء يعديني النموذج من جديد بكامل سجلاته الان عندما اضغط حرف خاطئ تظهر رسالة خطاء بعدم وجود مثل هكذا سجل واضطر لغلقها ومسح الحرف يدويا حيث بالضغط على زر الغاء تظهر نفس رسالة الخطاء ارفق لك نموذجي لتطلع عليه واذا امكن تخبرني اين الخلل او تقوم بتعديله ايهما ايسر لك وشكرا http://dl.dropbox.com/u/9352509/access/xy2.rar رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر أكتوبر 6, 2011 مشاركة قام بنشر أكتوبر 6, 2011 اخوي في حدث عند الحالي اكتب السطر التالي اول سطر On Error Resume Next اي قبل الكود التالي Me.RecordsetClone.MoveLast رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 7, 2011 الكاتب مشاركة قام بنشر أكتوبر 7, 2011 شكرا اخي الان فقط بقي انه عند مسح الحرف الخاطئ او الضغط على الغاء فاني اضطر الى اعادة التاشير في مربع البحث والكتابة من جديد عكس ما كان سابقا فان التركيز يبقى في مربع البحث عند مسح الكلمة او الضغط على الغاء ارهقاك معي لكن عشمي بان تستمر بمساعدتي ولك مني اطيب تحية . رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 7, 2011 الكاتب مشاركة قام بنشر أكتوبر 7, 2011 اتمنى ان تجد حل لهذا الاشكال الاخير مع التحية رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر أكتوبر 7, 2011 مشاركة قام بنشر أكتوبر 7, 2011 اخوي بارك الله فيك مثالك كما هو لم يتغير فيه شي حتى بعد اضافه الكود اعلاه راجع المشاركه رقم 6 لم يكن هناك اعاده تركيز على مربع البحث الا في حاله وجود نتائج للبحث اما اذا كان لايوجد اي نتيجه للبحث فلا يحدث شي رابط هذا التعليق شارك More sharing options...
lordring قام بنشر أكتوبر 7, 2011 الكاتب مشاركة قام بنشر أكتوبر 7, 2011 طيب اخي هل هناك امكانية لاعادة التركيز عليه ؟؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان