ابو جودي

اسف على التأخير ولكن كل تأخير يأتى من وراه خير كثير وها قد آتاك الخيـر على يد أستاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR انا تخصص كيمياء علشان كده بيجى كتير اوقات اصير غبى

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

اتفضل انظر الى االجدول الجديد - tblRemoveZero انظر الى الاستعلام الجديد qryRemoveZero هههههه لا ليس هذا الجديد ولكنه الاسم الجديد لاستعلامك القديم الان انظر الى الاستعلام الجديد باسم استعلامك القديم T_ward_mons 100 (2).accdb

اعتقد كل ما تتمناه موجود هنا بالتمام والكمال

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

شوف يا دكتور اولا الحمد لله تعالى الذى هدانا واياكم وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا انا مجرد هاو وطالب علم ليس اكثر ولا اقل لازلت اتعلم وسوف أظل ان كنت ولابد تريد تقديم الاطراء و الشكر فليكن لاساتذتى الكرام العظماء هم فقط من يستحقون الشكر بعد رب العزة سبحانه وتعالى قدموا الينا الافكار والحلول والعلوم لم يملو او يكلوا يوما لم يبخلوا بالغالى والنفيس اتوجه بكل الشكر والتقدير والقدير والعرفان بالجميل لاساتذتى العظماء - الاستاذ الجليل القدير والدى الاستاذ @ابوخليل | الاستاذ الجليل القدير والدى الاستاذ @jjafferr | الاستاذ الجليل @أبو إبراهيم الغامدي -الاستاذ الجليل القدير واخى الحبيب الاستاذ @رمهان والذى افتقده كثيرا -الاستاذ الجليل القدير @أبو آدم - الاستاذ الجليل القدير @AlwaZeeR - الاستاذ الجليل القدير @أبو عبدالله الحلوانى - الاستاذ الجليل القدير والخ الحبيب @أبا عمر والذى افتقده كثيرا اعتذر ان نسيت ذكر من كان له فضل على

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

ممكن مرفق

جدول الرسائل UsystblMsgBox جدول اى مفردات عربية اخرى داخل البرنامج غير الرسائل UsystblUsefulData

اتفضل يا دكتور @حلبي ــــــــــــ هنا الدنيا اختلفت عن المرفق السابق لقد قمت بتطبيق توجيهات وارشادات استاذى الجليل ومعلمى القدير الاستاذ @jjafferr ولا كلمة عربى داخل محرر الاكواد جدول خاص للمفرادات العربية المستخدمة كاسماء الازرار جدول خاص للرسائل يتم جلب ابيانات منهم وقت الحاجة انا تعبت شوية الموضوع فعلا لم يكن بالسهولة التى توقعتها ولكن هذه محاولتى الاولى انتظر رأى الاستاذ @jjafferr بعد الاطلاع على المرفق فى الية العمل التى انتهجتها بس اللذيذ والممتع بخلاف الابتعاد عن مشاكل اللغة العربية داخل المحرر سهولة تغيير الرسائل والتحكم بها من الجداول دون الحاجه لفتح التصميم dbskn(4).zip

Input Mask

Like "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]" ضع هذا السطر فى Validation Rules قواعد التحقق من الصحة

انا لم اتعامل الا مع الاكسس انا لست مبرمجا اسا واسال فيما يخص الاكسس فقط

ولكن هنا جمهورية الاكسس استاذ @SEMO.Pa3x اولا اهلا بعودتكم اطلتم علينا الغياب واشتقنا لكم كثيرا عله خيرا ان شاء الله ثانيا ممكن طلب استاذى لو امكن المرفق هنا الذى يخص هذا الموضوع يعمل بشكل رائه بتعريب الازرار ان كان اعداد النموذج pop up=no اما ان كان pop up= yes للاسف تتوقف ترجمة الازرار الى العربية هل هناك حل لهذه المشكـــله

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

قم بعمل call للكود فى الحدث المناسب لك Private Sub TYPE1Value() Select Case RTYPE Case Is = "mk" TYPE1 = 9 Case Is = "KR" TYPE1 = 7 Case Is = "BG" TYPE1 = 3 End Select End Sub مثلا Private Sub RTYPE_AfterUpdate() Call TYPE1Value End Sub او Private Sub Form_Current() Call TYPE1Value End Sub

انا غبى كيف لم افكر ب select case جزاكم الله خيرا كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR

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

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

استاذ جعفر @jjafferr بالرغم من روعتها الا انها طريقة قاتلة انظر الى هذا المثال المشابه MultiLingualSample.zip

الفكرة رائعة وعبقرية لكن ممكن سؤال لو اننا نريد ان ندخل بدلا من الباسورد قيمة اخرى وزر الامر ينفذ امر اخر مثلا استعلام الحاق هل من حيلة لتمرير اى شئ الى نفس النموذج frmMSG ام اننا سوف نحتاج فى كل مرة الى نموذج خاص بالحاله التى سنتعامل معها ؟ وبذلك نكرر النموذج اكثر من مره وكل مرة باسم مختلف

برمجة صندوق الرسائل واقصد هنا برمجته بمعنى الكلمة وليس استدعاءه قبل فترة كنت اتمنى تعريب صندوق الرسائل بحثت ووجدت الامثلة المختلفة ودمجتها مع بعص التعديلات وكانت النتيجة رائعة جدا ومرضية بنسبة 100 % الى ان توقفت فجأه وكان السبب خاصية النموذج المنبثق POP UP ان كانت فعاله يتوقف تعريب الازرار حزنت كثيرا ومع ذلك لم افقد الامل ومع البحث على الانترنت وجدت هذه الاكواد التى تخص الفيجوال بيزك http://www.vbforums.com/showthread.php?840593-Message-Box-with-Four-Buttons عدلت بالقدر الذى يتناسب معى النتيجة مرضية كانت مرضية فى بادئ الامر ولكن المشكلة وضعت الامر الذى اريد تنفيذه داخل الموديول عند الضغط على الزر من صندوق الرسائل اعرف ان هذا عبث منى لان الاحداث التى نريدها بعد الضغط على الزر تختلف يوجد حل مبدئيا ولكم مرهق ان لا يكون الجزء من الكود والذى استدعيه فى النموذج من خلال الموديول بل يكون على النموذج مباشرة المشكله فى ذلك - الكود كبير -لابد من وجوده مع كل حدث مختلف يعنى قد نحتاج الى تكراره اكثر من مره داخل النموذج هل من حل او حيلة عند اساتذتى الافاضل هذا هو الكود Public Sub MyMsg2() Dim md_Earlier As MSGBOXDATA_Earlier Dim md_Later As MSGBOXDATA_Later Dim lBtn(2) As Long Dim sTxt(2) As String Dim iRet As Long ' sTxt(0) = "موافق" lBtn(0) = 1 sTxt(1) = "إلغاء" lBtn(1) = 2 ' ' windows Vista and below use earlier structure. If WindowsVersion() < 61 Then With md_Earlier With .params .cbSize = LenB(md_Earlier.params) .lpszText = StrPtr("Text of the message within windows Vista and below use earlier structure") .lpszCaption = StrPtr("Title of the message windows Vista") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Earlier(md_Earlier) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) ' 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select ' windows 7 and higher use higher structure.------------------------------------------------------ Else With md_Later With .params .cbSize = LenB(md_Later.params) .lpszText = StrPtr("Text of the message within windows 7 and higher use higher structure") .lpszCaption = StrPtr("Title of the message windows 7") .dwStyle = vbMsgBoxRtlReading + vbMsgBoxRight Or vbYesNo End With .DefButton = 0 ' >>--> DefaultButtonOfMsgBox .CancelId = 2 ' >>--> Select the Cancel button .cButtons = 2 ' >>--> NumberButtonsOfMsgBox .pidButton = VarPtr(lBtn(0)) .ppszButtonText = VarPtr(sTxt(0)) .Timeout = -1 End With iRet = SoftModalMessageBox_Later(md_Later) 'MsgBox "Returns the default value of the Button: " & Format$(iRet) 'Execute the command after clicking Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select End If End Sub الكود ينقسك الى قسمين اولا الذى يخص انظمة التشغيل ويندوز فيستا او الادنى منها اصدارا الجزء الثانى الذى يخص انظمة التشغيل ويندوز سفن والاعلى منه اصدارا الجزء من الكود الذى يخص تنفيذ الامر عندما تختر من الرسالة الذغط على زر موافق Select Case Format$(iRet) Case Is = 1 'MsgBox "You are now clicking the OK button" DoCmd.SetWarnings False DoCmd.OpenQuery "qq" DoCmd.SetWarnings True Case Is = 2 'MsgBox "You are now clicking the cancel button" End Select المشكلة التى لاحظتها الان يمكن فتح الرسالة اكثر من مرة او فتح رسالة اخرى معها برمجة صندوق الرسائل.mdb

- الموديول UsysmodSysTray الذى اشرت اليه - الموديل UsysmodTaskbar كلاهما لتصغير قاغدة البيانات على شريط المهام بجوار الساعة ---------------------------------------------------------------------------------------------------------------- والموديول Usysmodicon تغيير ايقونة اكسس والتى تكون داخل المجلدات بجوار القاعدة المرفقة لتظهر فى راس النماذج و التقارير و على شريط المهام ---------------------------------------------------------------------------------------------------------------- والموديول UsysmodHideAccessFream لاخفاء اطار الاكسس ---------------------------------------------------------------------------------------------------------------- -الموديل UsysmodMovCenterPartA -الموديل UsysmodMovCenterPartB كلاهما لتوسيط جميع الشاشات بمنتصف الشاشة تماما ---------------------------------------------------------------------------------------------------------------- والموديول Module1 هههههههه نسيت اعادة تسميته سوف اجهل اسمه ان شاء الله UsysmodSettingDB يحتوى على اعدادت تخص القاعدة الغاء الدخول الى محرر الأكواد من خلال الضغط على الازرار Alt + F11 لعدم استعراض الاكواد اسم التطبيق كما احب ان اراه عندما يتم تصغيره بجوار الساعة بوضع سهم الماوس على ايقونة التطبيق مسار الايقونة الذى اجب ان اضعه للبرنامج تصحيح مسار الايقونة الخاصة بالاكسس ليناسب اى اصدار لعرضها ان تم فقد الايقونه التى وضعناها بجوار القاعدة ---------------------------------------------------------------------------------------------------------------- وللعلم بعد الاكواد فى الموديول قد تعتكد هلى اكواد اخرى فى موديول اخر وهذا ما احرص عليه لارهق من يحاول الاقتباس

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

- انا لم استطع فهم موضوع رقم السرير ممكن توضح من فضلك -وعن اى وحدة نمطية تتحدث انا اضفت 7 وحدات نمطيه