jjafferr

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

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

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

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

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

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

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

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

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