jjafferr

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

وعليكم السلام أخوي رمهان 1. لازلنا في انتظار هذا التنفيذ ، فالمثال الذي ارفقه اخونا ابوابراهيم لا علاقة له بالموضوع ، 2. نعم في ، عرض المجلدات والملفات عن طريق TreeView في النموذج ، وهناك العديد والعديد من الامثلة على الانترنت ، وارفق لك رابط فيه مرفقين (المشاركة 9 و 11): https://access-programmers.co.uk/forums/showthread.php?t=102667 جعفر

الفكرة الجديدة هي: خلينا نستعرض كل صفحة ونشوف نتيجة الجمع اسفل الصفحة ، ولما نشوف نتائج كل صفحة ، خلينا نحفظ هذه المعلومة في مكان ما (انا استعملت Array ، ولكن يمكن استعمال جدول مؤقت كذلك) ، وعلشان نستعرض كل صفحة ، فيجب استعراضها يدويا ، او طباعة التقرير ، انا طبعت التقرير بصيغة rtf (فحصلت على مجموع كل صفحة في Array ، ثم حذفت ملف rtf المؤقت ، ثم اعرض التقرير بطريقة عادية ، وتكون النتائج في رأس الصفحة ولكن يجب عليك فتح التقرير عن طريق النموذج علشان هذا العمل ، لازم تكون عندنا وحدة نمطية للإحتفاظ بالقيم ، الرقم 100 معناه 100 صفحة تقرير (يعني انا كتبت رقم كبير ، واذا تقريرك فيه صفحات اكثر ، فرجاء تكبير الرقم): Option Compare Database Public A1(100), B1(100), C1(100) وكود جمع البيانات كما عملناه سابقا ، بالاضافة الى إضافة النتائج الى Array : Option Compare Database Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A A1(Me.Page) = A Me.txt_B = B B1(Me.Page) = B Me.txt_C = C C1(Me.Page) = C A = 0 B = 0 C = 0 End Sub Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) On Error GoTo err_PageHeaderSection_Print Me.txt_A1 = A1(Me.Page) Me.txt_B1 = B1(Me.Page) Me.txt_C1 = C1(Me.Page) Exit Sub err_PageHeaderSection_Print: If Err.Number = 9 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip

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

هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر

1. هكذا نسحب عدد المتغيّر المطلوب ، 2. جرب جعفر

كود البرنامج في مشاركتي الاولى ، هنا: جعفر

1. هذا ممكن لأن الصفحة التي كتب فيها الاخ ابراهيم ، هي صفحة HTML فارغة ، بينما الموضوع يدور حول عمل متصفح الملفات File Explorer داخل المتصفح ، واذا ذاكرتي لم تخونني ، فقرأت يوما ما ان متصفح الانترنت IE ومتصفح الصور File Explorer هما شئ واحد ، والمتسمى المتعارف عليه كان Windows Explorer ، ولكن بتغيير في طبيعة عمله ، للملفات بشكل وللانترنت بشكل آخر. لهذا السبب ، ترى لما جعلناه يفتح \:E ، تغيرت قائمة الزر الايمن ، وظهرت مسميات الاعمدة ، عينا كما هو في File Explorer ، فكلامي كله يرمي الى ، انه كما لا يمكنك كتابة شئ في File Explorer ، لذا التحكم من الخارج يكون غير كذلك وللعلم ، استعملت برنامج الاخ ابراهيم الذي الغى الزر اليمين ، ونقلت الكود من برنامجي اليه ، وحصلت على نفس المشكلة 2. لا اتذكر الآن ، ولكن ان شاء الله لما اتذكر ، سوف اكتبه لك هنا جعفر عفوا ما فهمت قصدك بالشفرة؟

المرفق في الرابط اعلاه بصيغة accdb والمتوافق مع اكسس 2007 ، وارفق لك نسخة اخرى بصيغة mdb جعفر 569.Database1.mdb.zip هذا صحيح اخوي رمهان ، ولكن كود التعطيل يكون جزء من كود الصفحة ، بينما نحن نتعامل مع كود من خارج الصفحة للتحكم بالصفحة ، وكما تعرف ، بأن المتصفح داخل الاكسس لا يملك جميع ميزات وعمل المتصفح الاصل IE ، فلربما تكون هذه الميزة محذوفه منه!! جعفر

وعليكم السلام أخوي أبوابراهيم والله رأيت هذا الكود بعد بحث طويل في الانترنت ، ووضعته في البرنامج الموجود في المشاركة اعلاه ولكني كنت احصل على خطأ (Type mismatch) على هذا السطر: Set HTML = Me.objIE.Document ولم استطع التغلب على الخطأ ، فلم ارفقه في مشاركاتي ياريت تعدل على البرنامج المرفق في الرابط اعلاه ، علشان اقدر اعرف وين المشكلة. شكرا جعفر

وعليكم السلام تفضل . الكود هو Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A Me.txt_B = B Me.txt_C = C A = 0 B = 0 C = 0 End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip

السلام عليكم تفضل هو تقرير واحد ، وكل شئ معتمد على qry_Temp التي يكون فيها التواريخ كاملة ، والتقرير مصدره qry_T22 ، واستعملت الاستعلام المشروط ، حيث جعلت الايام التي ليس فيها غياب ولا تأخير ، باللون الاصفر: . جعفر 459.3.AbsentLate-10-12-2016.accdb.zip

تفضل غيّرت في طريقة الحساب ، وان شاء الله تشتغل في الطريقتين ، وهذا هو الكود الجديد: 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

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

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

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