ابو جودي

اراك تبالغ كثيرا استاذى القدير ومعلمى الجليل و اخى الحبيب استاذ @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 / الاستاذ @أبو إبراهيم الغامدي

الاستاذ الفاضل الكريم الاستاذ @محمد طاهر اولا كل الشكر والتقدير والعرفان بجميلكم وافضالكم علينا بعد رب العزة سبحانه وتعالى .. جزاكم الله خيرا لاول مره اسمع عن هذا اين تكون لا اجدها بنسخة الاوفيس عندى وكيف تعمل وهل يمكن الدمج بينها والاكسس اممممممم هل من خلالها يمكن سحب صفحات متعدده Scan multiple pages with ADF scanner هل يمكن الحفظ بتسيق pdf

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

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

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

بل كل الشكر والتقدير لكم تعلمت منكم وعلى يديكم شيئا كنت اجهله

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

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

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

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

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