jjafferr

تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: Private txtPageCount2 As Integer Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txtPageCount = txtPageCount2 txtPageCount2 = 0 End Sub Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If PrintCount = 1 Then txtPageSum = txtPageSum + [تسمية79] End If txtPageCount2 = txtPageCount2 + 1 End Sub جعفر 570.1.حساب عدد الأسر.accdb.zip

انا ما اعرف كيف تريد مني اساعدك !! كل اللي اعرفه ، اخبرتك !!

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

هلا والله بشفان انا من الكوكب الذي كما قلت عنه: جعفر

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

شكرا أخوي رمهان ، خليتني افكر بطريقة ثانية بدل الاستعلام ، نستخدم الكود في وحدة نمطية ، ونناديها من الاستعلام هذا الاستعلام ، وننادي الوحدة النمطية هكذا: . والنتيجة: . وهذه هي الوحدة النمطية: Function Lookup_Values(N) 'rsT = Row Source Type 'rs = Row Source rsT = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSourceType").Value rs = CurrentDb.TableDefs("tabl").Fields("nams").Properties("RowSource").Value If rsT = "Value List" Then Dim x() As String x = Split(rs, ";") For i = LBound(x) To UBound(x) If x(i) = N Then Lookup_Values = x(i + 1) Lookup_Values = Replace(Lookup_Values, Chr(34), "") Exit For End If Next i End If End Function . ولكن ، الجواب الاساسي كان ولا يزال: جعفر 574.1.NamoerAndTeixt.accdb.zip

أخي الفاضل أبو جاسم عندك المرفق ، وفيه الكود ، فخذ منه ما يناسبك الى برنامجك جعفر

أخي محمود نتائج الجمع تختلف بأي تغيير في التقرير (يعني اذا عملت/ازلت مجموعات ، او عملت/ازلت فواصل للصفحات) ، وكما رأيت ، فالمرفق الذي وضعته انا لك ، كان يعمل مثل ما طلبت ، ولكنك قمت بتغيير تصميم التقرير ، فعليه يجب تغيير الطريقة لتتماشى مع هذا التغيير يعني ، لا يوجد حل واحد لكل تصاميم التقارير فالذي اقترحته عليك هو: اعطني التقرير النهائي ، وان شاء الله نغير الكود ليعمل على حساب عدد سجلات كل صفحة جعفر

وعليكم السلام الجواب المباشر ، لا يمكن تكبير هذه الكائنات ولكن هناك طرق للتحايل ، منها المرفقات من: http://www.utteraccess.com/forum/yes-no-checkbox-alternati-t1284948.html&hl=checkbox و http://www.utteraccess.com/forum/Bigger-Checkbox-t1252269.html&hl=checkbox كما يمكنك استعمال الخط "Wingdings 2" ، وبه عدة اشكال ، ويمكنك وضع الشكل على الآخر ، وعند حدث "بعد التحديث" تخفي احد الاشكال وتُظر الاخر ، يعني بإختصار ، المسألة فيها شغل جعفر yesno.zip DemoBigCheckBox2K.zip

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

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

غدا ان شاء الله (فنيا اليوم)

وعليكم السلام حيا الله اخوي كاسر حسب علمي ، لا تستطيع الحصول على قيمة العمود/الاعمدة الآخرى من حقل في جدول فيه قيم عن طريق Lookup ، لذا يجب فصل هذه القيم في جدول مستقل ، ثم ربط الجدولين بهذا الحقل ، وعرض النتائج المطلوبة هذه احد الاسباب التي لا يُنصح بإستخدام Lookup في الجداول جعفر 574.NamoerAndTeixt.accdb.zip

وعليكم السلام واهلا وسهلا بك في المنتدى هذا الرابط به طلبك جعفر

وعليكم السلام يجب ان يكون اسم المشروع كلمة غير محجوزة للأكسس ، فقد كان اسم مشروعك Round ، ولم يقبل اكسس استعمال الدالة Round ، ظنا منه انك تنادي المشروع ، لا الدالة المرفق به طريقتين بإستخدام الدالة Round : احدهما من الاستعلام مباشرة ، والاخرى موجودة في وحدة نمطية جعفر 573.round.accdb.zip

عفوا ما كنت فاهم هذه النقطة

آسف ما فهمت قصدك جعفر

وعليكم السلام برنس ومخالف عندك مخالفتين في الموضوع: اولا: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف وثانيا: عندك اكثر من سؤال في الموضوع ، وقوانين المنتدى تسمح بسؤال واحد في كل موضوع لوسمحت افتح سؤال جديد ، آخذ في الاعتبار الملاحظات اعلاه جعفر

انا اعتذر عن التأخر في الرد عليك في مشاركتي الاخيرة ، ولكن لم يكن في اليد حيلة ، للأسف ولكن الحمدلله وصلنا الى حل جعفر

السلام عليكم للأسف هذه المعلومة متداولة كثيرا ، ولكنها غير دقيقة انظر هذا الرابط . الدالة NZ تعني ، اذا قيمة الحقل لا شئ Null ، فبدل ان تعطيني خانه فاضية ، اعطني قيمة اخرى (الرابط فيه شرح وامثلة). جعفر

وعليكم السلام اعمل في جدولك حقلين ، حقل به الكلمات بالتشكيلة ، وحقل آخر للكلمات بدون تشكيلة ، في النموذج ، اعمل الحقل بدون تشكيله مخفي ، وفي الحدث بعد التحديث لحقل التشكيلة ، استخدم هذه الوحدة النمطية لإزالة التشكيلة ، وحفظ النتيجة في الحقل الآخر. الآن وقد اصبح لديك حقل بدون تشكيلة ، فإعمل البحث فيه (لا تنسى انه سيكون مخفي) ، ونتيجة البحث اجعلها تُعرض في حقل التشكيلة وهذه هي الوحدة النمطية ، وغيّر فيها كيف شئت (وللأسف ، لأن الكلمات بالعربية ، فدالة Replace عكست اماكن الخانات كما ترى ، ولكن الكود يعمل بطريقة صحيحة): Function Simplify(CW) On Error GoTo err_Simplify 'CW = Correct Word ' when we want to search, we write in simple words, ' simple words = words without hamza for example, ' so we want to avoid these letters ' If Left(CW, 2) = "وَ" Then CW = Replace(CW, "وَ", "") ' If Left(CW, 2) = "فَ" Then CW = Replace(CW, "فَ", "") ' CW = Replace(CW, "وَ", "") ' CW = Replace(CW, "وَ", "") CW = Replace(CW, "آ", "ا") CW = Replace(CW, "أ", "ا") ' CW = Replace(CW, "ؤ", "ا") ' CW = Replace(CW, "ؤ", "ء") CW = Replace(CW, "إ", "ا") ' CW = Replace(CW, "ئ", "ا") ' CW = Replace(CW, "ئ", "ء") ' CW = Replace(CW, "ى", "ا") 'CW = Replace(CW, "ة", "ه") CW = Replace(CW, "ّ", "") CW = Replace(CW, "ـ", "") CW = Replace(CW, "ً", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, "ٍ", "") CW = Replace(CW, "ُ", "") CW = Replace(CW, "ِ", "") CW = Replace(CW, "ْ", "") CW = Replace(CW, "َ", "") CW = Replace(CW, " ", "") CW = Replace(CW, "!", "") CW = Replace(CW, " ", "") CW = Replace(CW, "ٌ", "") CW = Replace(CW, " ", "") CW = Replace(CW, ".", " ") CW = Replace(CW, "-", " ") CW = Replace(CW, "[", " ") CW = Replace(CW, "]", " ") CW = Replace(CW, "(", " ") CW = Replace(CW, ")", " ") CW = Replace(CW, ",", " ") CW = Replace(CW, "_", " ") CW = Replace(CW, "¬", " ") CW = Replace(CW, ":", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, ".", " ") CW = Replace(CW, "،", " ") CW = Replace(CW, "«", " ") CW = Replace(CW, "»", " ") CW = Replace(CW, "{", " ") CW = Replace(CW, "}", " ") CW = Replace(CW, "§", " ") CW = Replace(CW, "ـ", " ") CW = Replace(CW, "1", " ") CW = Replace(CW, "2", " ") CW = Replace(CW, "3", " ") CW = Replace(CW, "4", " ") CW = Replace(CW, "5", " ") CW = Replace(CW, "6", " ") CW = Replace(CW, "7", " ") CW = Replace(CW, "8", " ") CW = Replace(CW, "9", " ") CW = Replace(CW, "0", " ") CW = Replace(CW, "~", " ") CW = Replace(CW, CrLf, " ") CW = Replace(CW, Lf, " ") CW = Replace(CW, Cr, " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") CW = Replace(CW, "؛", " ") CW = Replace(CW, Chr(34), " ") CW = Replace(CW, "*", " ") CW = Replace(CW, "؟", " ") ' CW = Replace(CW, "؛", " ") ' CW = Replace(CW, "؛", " ") Simplify = CW Exit Function err_Simplify: If Err.Number = 94 Then 'null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر

تفضل جعفر 570.عدد الأسر.accdb.zip

نعم انا قلت هذا في طريقة ، ولكن بتغيير الـ Registry ، http://www.thewindowsclub.com/enable-disable-right-click-context-menus-windows-explorer http://www.liutilities.com/products/registrybooster/tweaklibrary/tweaks/10160/ ونستطيع عن طريق البرنامج التحكم فيه ، بحيث نمنع النقرة بيمين الفأرة عند دخولنا في البرنامج ، ثم نسمح لها عند خروجنا من البرنامج ، ولكن عند تشغيل البرنامج ، لن تعمل نقرة الفأرة اليمين في برنامج تفحص الملفات في الوندوز File Explorer ايضا !! ولكني ضد تغيير اعدادات كlبيوتر المستخدم ، لهذا السبب لم اعرض الفكرة جعفر

هلا والله

وعليكم السلام اختي انا عملت لك التعديلات على حقل الوظيفة ، وانتي اكملي الباقي بنفس الطريقة الجزء الاخير من الصورة مهم ، لأنك تستخدمين وحدة نمطية ، وتعريف طريقة البحث يجب ان تكون Like ، والتي رمزها من الكود هو LS : . مصدر بيانات الحقل يجب ان يكون اسماء الوظائف ، وليس رقمها ، لأن رقمها سيعطيك قيمة واحدة فقط . وعليه ، يجب ان نجري التغيير في الاستعلام ايضا ، حتى نرى اسماء الوظائف وليس ارقامها . هكذا نتيجة الاستعلام . ولما تبحثين عن اسم الوظيفة ، تستطيعين حذف بقية المسمى ، والاكتفاء بالمسمى الذي تريدين البحث عنه (ويمكنك استبدال مربع التحرير والسرد بمربع نص عادي وتكتبين فيه كلمة البحث) ، والنتيجة: . وسلام لأخي رضوان جعفر 572.Employees.mdb.zip