jjafferr

وعليكم السلام في VBA ، في خانة البحث ، اكتب كلمة keycode ومنه فقيمتهم 33 و 34 وفي هذا الرابط المزيد: http://www.foreui.com/articles/Key_Code_Table.htm جعفر

نعم تستطيع الدخول لموقع جوجل كقيمة افتراضية ، ثم ماذا؟؟ واذا كان عنوان جوجل هو: http://www.google.com فكيف تريد فتح الموقع هكذا: http://www.google.com gmail او http://www.google.com Facebook العنوان خطأ ، فلن تصل الى الصفحة التي تريد!! جعفر

وعليكم السلام عملت شوية تغييرات في الجدول ، وهذا كود الزر: Option Compare Database Public web As Object Private Sub cmd_Go_Click() 'Make a Reference Internet Explorer Set web = CreateObject("InternetExplorer.Application") 'Open the site with Internet Explorer web.Navigate Me.Site 'make it visible web.Visible = True 'wait until the page opens fully Do Until web.ReadyState = 4 Loop End Sub جعفر 579.test90.mdb.zip

السلام عليكم اسم الموضوع مخالف ، ولا يوضح المطلوب ، والشرح غير واضح ، وبدون امثله ، والمرفق مافيه معلومات إلا 3 جداول اخاف يطول انتظارك في انتظار الاجابة ، لأنه مافي شئ مفهوم ، فكل من سيقرأ الموضوع ، لن يعرف المطلوب جعفر

يمكنك انزال المرفقات بطريقتين: 1. النقر على المرفق مباشرة بزر الفأرة اليسار ، 2. النقر على المرفق بزر الفأرة اليمين ، ومن القائمة تختارين "Save Link As". ويمكنك كذلك ان تنسخي رابط المرفق: https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=124252 وتلصقيه في متصفحك ، وان شاء الله سينزل المرفق جربي الطرق لوسمحتي ، واذا لم تفلحي ، اخبريني وسأرسل لك المرفق على بريدك ، وسأخبر المسؤولين في المنتدى عن هذا الخلل الفني لإصلاحه جعفر

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

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

وعليكم السلام أخوي رمهان 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