ابو جودي

chr34 هى لغة الاسكى كود وعندما تكتب فى عالم البرمجة تترحم عند معالجتها الى علامة التنصيص "

اولا احب اضيف شئ قاله لى ذات مرة استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل لذلك اعدت التصميم الاصل قمت ببعض التعديل وتم المطلبوب بفضل الله كما ان استخدام الـ الحقل من النوع yes/no افضل من الحقل النصى حتى وان استخدمنا حرفا واحدا فى كم البيانات وقيمتها من حيث احتلال المساحة داخل القاعدة وبكل صدق كنت اجهل تلك المعلومة عندما حاولت استخدام تلك الطريقة واشرت اليها من قبل Lab 2019- 2.zip

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

ما هو انا مش عارف اجرب والله انت مكبر حجم النموذج جدا جدا جدا جدا لايظهر عندى اى بيانات

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

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

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

مش عارف اجرب جرب انت بقه Lab 2019.zip احتمال تحتاج وضع الكود بالشكل ده لزر الامر اللى بيضع العلامة Private Sub JO_Click() Call OK_JO_Click Me.Requery End Sub بس لو اخترت شئ غلط اختفى خلاص

للاسف الصورة طالعه كده

صلاة علي النبي المصطفي (صلي الله عليه وسلم) واجهة ادارة قضايا مكتب محامى.zip

صدقنى ما راح اتركه لو طلب منى التصميم الا ان دفع وهى جفلت امعاى يا بوي حتى لو راح يطير بيها رجاب <<------< تحول الى صعيدى

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

فى هذه الحالة استخدم دالة حساب العمر سوف اتيك بالرابط اتفضل المرفق الفرق بين تاريخين (3).mdb

وضعت تصميم على السريع ورفعت صوره اخد راى الاستاذ @عبد اللطيف سلوم بس يا استاذ @kha9009lid شكله لما حكيت له تدفع كام هرب

لطلب التصميم اضغط الرقم 1 للعودة للقائمة الرئيسية اضغط الرقم 0 للتحدث لمسئولى الدعم الفنى والتطوير تـأكد من وضع موضوعك بقسم الطلبات واضغط الرقم 9 حبيبى من حضر القسمة فليقتسم لما يطلب راح اخبره يعمل حسابه على طلبين زيادة لينا لانى جعان جدا ههههههه بس بشرط لا احب الاسبايسي او الصودا اطلب كيف ما بدك وتدلل استاذ @kha9009lid الطلبات اليوم على حساب الاستاذ @عبد اللطيف سلوم

حاجة ع السريع كده

تدفع كاااااااااااااااااااااااااام ؟

اتفضل Prog1 (2).mdb

انظر الى هذا الاستعلام وأستاذى العزيز واخى الحبيب الاستاذ @kha9009lid اكتشفت شئ بمرفق اخونا الحبيب الاستاذ @مرحبا البي ماذا ان كان التاريخ >>----> 16/12/2019 لقد قمت بعمل الكود الاتى لحل هذه المشكلة Function RD(MyDate As Date) Select Case Nz(Month(MyDate), "") Case Is <= 11 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy"), "dd/mm/yyyy") End Select Case Is = 12 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01/01/" & Format(MyDate, "yyyy") + 1, "dd/mm/yyyy") End Select End Select End Function ---------------------- test5.accdb

على اى حقل تريد التطبيق

انا مش قادر افهم

انا لم افهم اين هى المشكلة تحديدا واين هو البخث اصلا ؟!

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

كل الشـــكر والتقدير أستاذى الجليل واخى الحبيب الاستاذ @kha9009lid يعنى ممكن نسهل الموضوع شوية ونقول انها تشبه دالة Replace ولكن الجميل انها تكتب مرة واحدة فقط طيب وممكن نعمل لها كود داخل موديول حتى نستطيع استخدامها فى كل زوايا البرنامج زى المثال البسيط ده Function RD(MyDate As String) Dim SmallerThan As String Dim GreaterThan As String Dim MyDay As Integer MyDay = Day(MyDate) 'extract the day from a specific date 'treatment of date to be returned on the day it was extracted SmallerThan = "01" & "/" & Format(MyDate, "mm/yyyy") GreaterThan = "01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy") RD = Switch(MyDay <= 15, SmallerThan, MyDay > 15, GreaterThan) End Function وننادى عليه بكل زوايا البرنامج مع مراعاة تغيير xx باسم حقل التاريخ RD([xx]) الاستاذ والاخ الحبيب @مرحبا البي جرب المرفق التالى واخبرنى بالنتيحة إرجاع تاريخ.accdb