ابو جودي

وايضا المسار يختلف تبعا لاصدار الويندوز حسب النواة لو نواة الويندوز 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 من وجهة نظرى هذه افضل فكرة

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

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

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

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

ياريت توضح بصوره اسهل

شوف ياسيدى انا النت عندى بعافيه وغير قادر على عمل دونلود الان اجعل الكودخلف زر الامر جديد كالاتى If IsNull(Me![txtAnalysisCode]) Or Me![txtAnalysisCode] = Null Or Me![txtAnalysisCode] = Empty Or Me![txtAnalysisCode] = "" Then Me![txtAnalysisCode].SetFocus MsgBox "من فضلك يجب وضع كود التحليل اولا" Exit Sub Else DoCmd.GoToRecord , , acNewRec End If على اعتبار ان حقل الكود اسمه txtAnalysisCode

Me.lbldata.Caption = name$ & Space(1) & "has" & Space(1) & age% & Space(1) & "years old" Me.lbldata.Caption = name$ & " " & "has" & " " & age% & " " & "years old" اتفضل

والطريقة الشائعه ياللى بيستخدمها الكل 'مسافة واحدة TEXT & " " &TEXT 'مسافتان TEXT & " " &TEXT 'ثلاث مسافات TEXT & " " &TEXT 'اربع مسافات TEXT & " " &TEXT معلش شرحت نظرى لان النت بعافيه لسه هم بيحمل المرفق

هههههههههه ما تركز انت فى مرفقاتى ولا موضوعاتى تدفع كام واحكى لك منشان تركز TEXT & Space(1) & TEXT والرقم بين الأقواس بتقدر تغيره اذا بدك تزود ها المسافات وتدلل

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

انا اسف انا عندى مشكلة بالانترنت انا نزلت المرفق بعد نص ساعه وتقريبا ساعه باعمل اب لود انا عدلت فى النموذج ده استعلام عن تاريخ تعيين والنتيجة بتاعته بتظهر فى الاستعلام ده qrytari5Eltaein انا كده عملت لك تاريخ التعيين علشان المهلومة توصل وتثبت انت افهم اللى حصل واعمل تاريخ الدرجة منطقة (3).accdb

عمان اعشقها واحب اهلها الطيبين كثيرا كثيرا يا ميت هلا والله

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

اتفضل اسم اليوم والتاريخ الهجري بالتقرير.rar