ابو جودي

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

شوف يا دكتور اولا الحمد لله تعالى الذى هدانا واياكم وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا انا مجرد هاو وطالب علم ليس اكثر ولا اقل لازلت اتعلم وسوف أظل ان كنت ولابد تريد تقديم الاطراء و الشكر فليكن لاساتذتى الكرام العظماء هم فقط من يستحقون الشكر بعد رب العزة سبحانه وتعالى قدموا الينا الافكار والحلول والعلوم لم يملو او يكلوا يوما لم يبخلوا بالغالى والنفيس اتوجه بكل الشكر والتقدير والقدير والعرفان بالجميل لاساتذتى العظماء - الاستاذ الجليل القدير والدى الاستاذ @ابوخليل | الاستاذ الجليل القدير والدى الاستاذ @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 وحدات نمطيه

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

اولا وللتوضيح فقط استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل جزاه الله تعالى الخير كله هو ليس من وضع حجر الاساس فقط بل قام بالبناء ايضا لقاعدة لبيانات لبنه لبنه وانهى البناؤ على اكمل وجه اما انا مقاول تشطيبات ديكورات فقط ثانيا بالنسبة للتحليل نجد ان رقم السرير متاح مع انه غير متاح انا قمت بالتجبة الان جعلت احد الاسرة غير متاح ولم يظهر اصلا بشاشة التسكين في النموذج frmsearch لم افهم هذا الكود Me.KeyPreview = True  هى المفروض لتهيئة النموذج للتعامل مع الازرار من لوح المفاتيح عند الضغط ولكن فى المرفق التالى سوف أقوم بإزالته هو والاسطر التى يمكن الاستغناء عنها تخفيفا لا اخفيكم كنت على عجل من امرى لم اركز جيدا وقت المرفق كما اننى ىف المرفق التالى ان شاء الله سوف اقوم بالكثير من التغييرات التى اشار اليها استاذى القدير ومعلمى الجليل الاستاذ @jjafferr بشأن اللغة العربية ومن اين يوضع تاريخ الدخول بمعني من اين اتي تاريخ الدخول والخروج من النموذج باسم frmchang حيث قام استاذى القدير ومعلمى الجليل الاستاذ @ابوخليل بعمل استعلام الحاق بعد اختيار الموظف والضعط على تسجيل الدخول DoCmd.RunSQL "INSERT INTO tblBedCase ( employid, bedno, activdate, activType )values (' " & Me.employid & " ',' " & Me.bedid & " ',' " & Date & " ',' " & 1 & " ')" بخصوص الاستيراد امهلنى لارى شئ واعود اليك ان شاء الله

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

انا تعلمت معك ولم اقدم اى شئ مطلقا كل الشكر والتقدير لاساتذتى الكرام الاستاذ @Khalf / الاستاذ @أبو إبراهيم الغامدي