ابو جودي

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

هــــدية : تغيير دقة الشاشة ChangeAndGetScreenResolution - قسم الأكسيس Access - أوفيسنا (officena.net)

سيدى الكريم Form_Timer هذا هو حدث الوقت للنموذج واليك المرفق الأصلي بعد التعديل حتى تتمكن من الوقوف على التعديل وأماكن الأحداث اتفضل CL (1).accdb

مشاركة مع استاذى الجليل و معلمى القدير والدى الحبيب الاستاذ @ابوخليل دى طريقة غريبة حبتين هاهاهاها جرب يا دكتور تغيير حجم النموذج تكبر النموذج وتصغره وتعمل له Maximize وشوف السحـــــــــر ملاءمة عناصر النموذج حسب حجم النموذج ☺.zip

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

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

لا لإقفال موضوعات الأساتذة القدماء

هاهاهاها وانا كما يخيل الي أني رأيت هذا الكود من قبل ☝️ ... وعلى فكرة عرفت حضرتك انه عجبتنى الفكرة انت ضيف ex انا تعبت يلا كمل شغل على اكوادك بطل دلع انا بس كنت احتاج لدمج ترجمة الازرار مع فكرتك يعنى ووضعت التاتش بتاعى هاهاهاهاها وبعدين ناوى افكر فى شئ تانى يلا انت اكمل الهدية

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

العفو منكم سيدى يكفينى انها نالت رضاكم

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

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

اضف هذا السطر من الكود الى حدث الوقت txtClock = Format(Now, "HH:nn:ss am/pm") واضف الى النموذج مربع نص وغير اسمه الى txtClock

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل اولا وقبل كل شئ كل عام وانتم بخير هذا اول ما خطر على بالى ولكن وجدت مشكلة فى التعديل باضافة النقطه كما تفضلتم استاذى الكود كان مكتوب على اعتبار ان الامتداد .mdb ولكن فى حالة ان الامتداد accdb يعتبر الامتداد ccdb فقط طبقا لذلك الجزء من الكود Right(DBwithEXT, 4 لاحظ الامتداد بعد الوقت pm لذلك قمت بتعديل طفيف حتى يكتب اسم الملف باللاحقة الخاصة بها كيفما كانت

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

طيب اتفضل فكرة بسرعة كده font (2).accdb

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

نعم استاذ قم بعمل استعلام اضافة كما بالمثال المرفق

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

اتفضل empoyee - Copie.accdb

اتفضل جرب الكود الاتى Dim StrNew As String Dim StrOld As String Dim DBwithEXT As String Dim NewFile As String Dim CopyMyDB As String StrNew = "D:\LaundrySoftware\" StrOld = CurrentDb.Name DBwithEXT = Dir(StrOld) NewFile = StrNew & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM" & "-") & DBwithEXT CopyMyDB = "cmd.exe /C copy " & """" & StrOld & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0

yx-2.mdb

طيب وانت زعلان ليه كده اتفضل يا سيدى فى استعلام اهون Split Full Name (2).mdb