ابو جودي

طيب استاذى الجليل ومعلمى القدير الاستاذى ابو خليل انظر الى هذا المرفق اعجبتنى فكرته ولكن SampleReportingSystemNewVersion.mdb

لم ارفقه بالمرفق لانها بلا جدوى ولكن سوف اخبرك حاولت وقف الخطأ من حدث عند الخطأ وحاولت باكواد تصيد الاخطاء دون جدوى

ههههههههه لن اشارك مرة اخرى بدون مرفق ان اخبرتنى ان هذه ليست النتيجة التى تريدها 13 ثانية بالتمام يارب نخلص من شبح الـ 13 ثانيه progressbar.mdb

استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR اولا وقبل أى شئ كل الشكر والتقدير والعرفان بجميلكم انتم وكل اساتذتى العظماء الذين لم يبخلوا يوما على طلاب العلم فى هذا الصرح الشامخ والمسألة ليست تواضعا كما تفضلتم واشرتم بل ان نظرتى اليكم هى تبجيل واحترام واجلال لكل من اتعلم منهم وعلى ايديهم ويضيئون ظلام عقلى بنور علمهم ومعرفتهم ويقابلون خطأى بعلم وجهلى والحاحى عليهم بصبر وحلم جزاكم الله خيرا ان شاء الله وشكر الله لكم حسن صنيعكم اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى هل حضرتك جربت الاكواد ؟ ام طرحت الاجابه نظريا على اعتبار ان هذه هى الاكواد المنطقية لتصيد وتلافى الاخطاء

مكســـــــــــــل بفضل لى كانت لى الكثير من المشاركات وقدمت احد الحلول كذلك فى هذا الصدد ولكم ما اعانى انا منه هو انه لابد من وسيط برنامج خارجى لابد من استخدامه الا اننى وجدت مشاركة ذات يوم هنا بهذا الصدد ولكم بصراحة لم افهم شئ من المرفق ولم استطع الاجابة على السؤال المطروح انذاك وسوف اتيك بالموضوع ان احببت النظر الى تلك القاعدة https://www.officena.net/ib/topic/89591-طلب-تعديل-على-قاعدة-بيانات-للمسح-الضوئى/?tab=comments#comment-563661

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

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

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR فضلا وكرما اطلب منكم على استحياء النظر فى المرفق وابداء رأيكم وبالاخص حول مشكلة الاحباط وعدم استكمال التصدير فى الفكرة الثالثة هل لها من حل

لا اعتقد انه يمكن التعامل مع ملفات الاكروبات بتلك الطريقة التعديل والاضافة من خلال كود برمجى والله اعلم

بالفعل وجدت الكثير من الاخطاء فى بناء الاستعلامات داخل الجدول قمت بتعديل كل شئ كما اننى قمت بالاجابة بفكرة اجمل الطالب الذى يتم تسجيل غياب له يختفى اسمه من القائمة المنسدلة لنفس التاريخ انتظر ردك 998.تجربة.accdb

DoCmd.OutputTo acOutputReport, "rptEmp", acFormatXLS, , False هذا الكود من الطريقة الثالثة من المرفق ولا احبذ خذخ الطريقة لانه عند الذغط على زر الغاء لاحباط عملية التصدير تظهر رسالة بالكود الاتى run-time error '2501': بصراحة حاولت كثيرا تفاديها وتلاشيها بكود تصيد الاخطاء ولكن لم استطع ولذلك افضل الكود من الطريقة الثانية الموجودة بالمرفق

يا اخى الحبيب ارفق القاعدة ليتم التعديل

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

اتقضل وارجوك اخبرنى النتيجة بعد التجربة على اصدار الاوفيس لديك Full Arabic Message Box.mdb @ابو فتحى لا تنسي ان تخبرنى بالنتيجة رجاء

وايضا المسار يختلف تبعا لاصدار الويندوز حسب النواة لو نواة الويندوز 64 بيت يكون المسار كالاتى C:\Program Files (x86)\Common Files\microsoft shared\OFFICE15\MSO.DLL وكما قال معلمى القدير واستاذى الجليل انتبه لــ OFFICE11 سيختلف عندك سيكون OFFICE12 أو OFFICE14 أو OFFICE15 أو OFFICE16

من قال ذلك يبدو انك لم تشاهد تلفزيون اوفيسنا اتمنى لكم مشاهدة ممتعة officena_smart_tv.zip

هذا موضوع بالمنتدى لو بحثت وهذا التعديل على المرفق كما طلبت التسديد.accdb

اتفضل مرفق ولا اروع TestDB.mdb

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

السلام عليكم ورحمة الله تعالى وبركاته من منا يمل من كثرة استخدام الرسائل مثلى ويظل يفكر فى كل مرة كيف سيكتب الكود المناسب الان موديول واحد به الحل النهائى المرن فى التعامل مع الرسائل وحتى لا ننسي الفضل لاصحاب هذا العمل الحقيقين الاستاذ @أبو هادي >>----> تعريب الصندوق الاستاذ @ابوخليل >>----> تعريب الصندوق الاستاذ @أبو آدم >>----> تلوين محتوى الرسالة هذا المثال الذى اهديه لكم هو خلاصة دمج الاكواد المستخدمة من كل معلم من هؤلاء العظماء مع بعض التطوير البسيط الذى لا يذكـر اصلا والذى فقط يضفى المرونة فى سهولة استدعاء الكود داخل اى نموذج مع مرونة التغيير فى اضافات الرسالة او عنوان الرسالة حسب متطلبات المبرمج - ملاحظة للمرة الاولى احاول التوفيق بين الأكواد التى تعمل على كل من النواتين 64 بيت والـ 32 بيت ولا اعلم صراحة هل وفقت فى ذلك ام لا شرح سريع لمحتوى المثال المرفق اولا أكواد الموديول هذا الكود للاستاذ الجليل الاستاذ @أبو آدم '---- اللألوان -------------------------------------------------------------------------------- #If Win64 Then Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare PtrSafe Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #Else Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #End If Public DefaultColour As Long Public Const COLOR_WINDOWTEXT As Long = 8 Public Const CHANGE_INDEX As Long = 1 طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج DefaultColour = GetSysColor(COLOR_WINDOWTEXT) ' تخزين لون ثيم النظام الافتراضي SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed ' اضبط لون ثيم النظام على اللون الأحمر MsgBox "you welcome in officena forums", , "welcome" ' كود الرسالة SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, defaultColour ' استعادة القيمة الافتراضية بعد اغلاق الرسالة الشرح تفصيلا لكل سطر بالكود DefaultColour = GetSysColor(COLOR_WINDOWTEXT) هذا السطر لحفظ تنسيق الالوان المستخدم فى ثيم الويندوز ثم SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed هذا يغير اعدادت ثيم الويندوز لتغير لون الكتابة الى اللون الاحمر طبعا يمكن تغيير اللون كيفما تريد بتغير vbRed الى ما تريده انت ثم نكتب الرسالة داخل الكود المخصص لها مثلا MsgBox "you welcome in officena forums", , "welcome" ثم بعد عرض الرسالة العودة مرة اخرى للون المفضل لثيم الويندوز والذى اختفظنا به فى الجزء الاول من الكود SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, DefaultColour وبهذا انتهى جزء تلوين محتوى النص للرسالة الجزء الثانى من الكود داخل الموديول والخاص بتعريب الأزرار الاستاذ @ابوخليل / الاستاذ @أبو هادي #If Win64 Then Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #Else Declare Function GetCurrentThreadId Lib "kernel32" () As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #End If Private m_hHook As Long Const IDOK = 1 Const IDCANCEL = 2 Const IDABORT = 3 Const IDRETRY = 4 Const IDIGNORE = 5 Const IDYES = 6 Const IDNO = 7 Const IDCLOSE = 8 Const IDHELP = 9 Const WH_CBT = 5 Const GWL_HINSTANCE = (-6) Const HCBT_ACTIVATE = 5 Public Sub MessageBoxFullArabicButtons(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, "موافق" SetDlgItemText wParam, IDCANCEL, "إلغاء" SetDlgItemText wParam, IDABORT, "إحباط" SetDlgItemText wParam, IDRETRY, "إعادة" SetDlgItemText wParam, IDIGNORE, "تجاهل" SetDlgItemText wParam, IDYES, "نعم" SetDlgItemText wParam, IDNO, "لا" SetDlgItemText wParam, IDCLOSE, "إغلاق" SetDlgItemText wParam, IDHELP, "مساعدة" UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function الجزء التالى هو بناء كود عام للرسالة حتى يسهل استخدامه باستدعائه بكل سهولة فى جميع نماذج البرنامج Public Function MyMesg(Mesgtxt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا", _ Optional ByVal HelpFile As Variant, _ Optional ByVal Context As Variant) As VbMsgBoxResult MessageBoxFullArabicButtons Application.hWndAccessApp MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) End Function نلاحظ الاتى بوجه عام هذا الكود تم تصميمه على ان يكوم اقتراضيا بهذا الشكل الرسالة بسيطة تحتوى على زر امر واحد Buttons As VbMsgBoxStyle = vbOKOnly عنوان الرسالة الإفتراضى Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا" الجزء من الكود هذا MessageBoxFullArabicButtons Application.hWndAccessApp الذى يستدعى تعريب الازرار السطر الاخير البناء الطيعى لتكوين كود الرسالة بالاضافات التى يفضلها المبرمج MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج MyMesg "منتديات أوفيسنا ترحب بكم" لتغيير العنوان الافتراضى MyMesg "منتديات أوفيسنا ترحب بكم",,"العنوان الجديد كما تريد" استخدام الاضافات لتغيير الازرار مثلا MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo مع عنوان مخصص MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo,"عنوان جديد" والان وصلنا الى نهاية الموضوع اسأل الله تعالى ان يرزق اساذتنا العظماء الذين كان لهم الفضل فى هذا الموضوع البركة فى العمر والعلم والرزق والاهل والولد اللهم اغفر لهم ولوالديهم واللهم احسن اليهم كما احسنوا هم الينا اللهم تقبل اعمالهم يارب العالمين فى موازين اعمالهم وضاعف حسناتهم و الاجر اضعافا مضاعفة يارب العالمين اللهم ارفع درجاتهم فى أعلى درجات الجنان ودرجاتهم والديهم يارب العالمين امين امين امين Full Arabic Message Box.accdb Full Arabic Message Box.mdb

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

هههههههههههههههههههههههههه وايه المحامى العسل ده محامى الخصم كمان وبياخد فلوس من الموكل والخصم طيب ابشر ان شاء الله بدل ما احكى نظرى واتعب راح اجهز لك مرفق

اصبر بص

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

اربط بين النموذج الرئيسيى والفرعى بهذا الرقم مع ان هذا هذا ليس صحيح لان فى درحة التقاضى الاولى برقم وفى الاستئناف تعد قضية ثانية وهكذا اجل له ترقيم متسلسل لكل نوع ويكون بهذا الشكل مثلا مدنى 1/2019 مدنى 2/2019 مدنى 3/2019 ح ش 1/2019 من وجهة نظرى هذه افضل فكرة