نجوم المشاركات

بسم الله الرحمن الرحيم أعلم ان هناك جهابذه واساتذه في هذا الموقع الكريم لكن هذا الشرح موجه للبسطاء والذين في بداية طريقهم للبرمجة الموضوع : كما هو واضح من العنوان معيار في دالة Dsum هذا رد على استفسار من احد الاخوة المتابعين مرفق ملف العمل رابط الفيديو على اليوتيوب معيار.rar

اقدم لكم برنامج مطعم كلاسيكي مفتوح المصدر. به بعض الكودات من أعمال بعض المنتسبين بمنتدانا (أفسينا)..... (به 33 طاولة طعام + دليفري + تيك أواي) ....والمهتم سيكتشف مابه ....... وأي استفسار أنا حاضر . اليكم لينك المرفق . https://www.mediafire.com/file/j0qasl6mlv1ju3x/CoffeShop.rar/file

Option Compare Database Dim trial As Date Dim b As Date ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ Private Sub Form_Open(Cancel As Integer) trial = GetSetting("aa", "bb", "trial", Nz(trial)) If trial = Empty Then SaveSetting "aa", "bb", "trial", Date End If trial = GetSetting("aa", "bb", "trial", Nz(trial)) rem هنا التعديل trial = CDate(trial) If Date < trial Then MsgBox "قم بضبط تاريخ جهاز الكمبيوتر", vbCritical Else b = trial + 60 ' 60 يوم مدة تجريبية If Date > b Then MsgBox "انتهت الفترة التجريبية؛ الرجاء الاتصال بالمصمم", vbInformation DoCmd.OpenForm"المصمم" Else MsgBox "نسخة تجريبية؛ بقي لديك " & b - Date & " يوم" End If End If End Sub

جزاك الله خير ورحم والديك جاري التحميل جزاك الله خير ورحم والديك جاري التحميل جزاك الله خير ورحم والديك جاري التحميل

هناك كود لإسترجاعها، ولكن الاسهل استعمال البرامج الجاهزة 🙂 جعفر

مشكور أخونا @عبد اللطيف سلوم على الشرح المبسط

شكرا على المجهود الرائع 🌹🌹

السلام عليكم ورحمة الله وبركاته وبها نبدأ تأكد من انه لا يوجد مشكله في اعدادات اللغه العربيه في الجهاز لان الكود (الرئيسيه) ليس به مشكله

قم باستبدالها الى ws.Cells(ligne, 1) = Me.TextBox1.Text وفي كود التعديل f.Cells(LigneN_Row, 1) = Me.TextBox1 وفي عمود حالة الاجازة يمكنك تجربة المعادلة التالية بدون الاعتماد على الخلية (1M) =IF(ISBLANK(H3);"";IF(H3<TODAY();"باشر";"يتمتع")) عند كتابة الكود يأتي الاسم -تحديث1.xlsb

يا أهلاً بجيران الرضا ، نورتمونا يا أستاذنا @حسونة حسين .. جعل الله لكم من الدعاء أضعاف مضاعفة وسنحاول إن شاء الله تطبيق الفكرة على نسخة ويندوز 64 إن شاء الله

مشكور جدا لكم جميعا 🌹🌹🌹

توجد نسخة كاملة مع الكراك accessFix - excelFix - outlookFix - wordFix اذا ما في مخالفة للقوانين المنتدى برفعها لمن يحتاجها

اخي عبداللطيف، شكرا لك على دعمك ومساعدتك للآخرين 🙂 وطبعا التزامك بقوانين المنتدى 🙂 قوانين المنتدى لا تسمح بإرفاق: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة

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

مشاركة مع الاستاذ ابو خليل الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر عن طريق عمل اجراء نعلى النحو التالي Sub x() LabelNameText = ActiveControl.ControlTipText End Sub ثم في زر الامر نشير لاسم الاجراء فقط x الملف مرفق اخونا الشايب LabelName.accdb

السلام عليكم رمضان كريم لمن يريد الغاء تمكين مفتاح الشفت واعادة تمكينه مرة اخرى ارفق هذا المثال لأجل الفائدة فورم الواجهة الرئيسية هو start عملت ازرار اثنين احدها قفل الشفت بمعنى عدم تمكينه مرة اخرى بعد غلق البرنامج واخر لتمكين الشفت بعد غلق البرنامج وفتحه مرة اخرى ملاحظة / بمكنك من اجل التمويه وضع صورة صغيرة او ايقونة للأزرار حتى لايتبين ذلك ملاحظة اخرى الازرار تفتح وتغلق بكلمة مرور هي 1234 وبامكتنكم تغييرها من موديل اترككم مع البرنامج وهو على اوفس 2010 ارجو منه ان يستفاد من يحتاج لهذا البرنامج مفتاح الشفت.rar

تفضل وياريت يكون هو المقصود (خاص بكل الكائنات في الاكسس) شامل إخفاء واظهار الجداول والكائنات.mdb

تفضل هذا لتعديل بطريقة مختلفة راح يكون اكثر تفاعلية و راح تشعر بأن الكود يفهم طلبك و تطلعاتك جرب و اعطيني انطباعك القروض والديون2024.rar

استخراج امداد الملف المرفق في حقل مرفق http://www.mediafire.com/file/d5ubalzgpe5iyz9/%D8%B4%D8%B1%D8%AD_%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D8%A7%D8%AC_%D8%A7%D9%85%D8%AF%D8%A7%D8%AF.rar/file على طريقه الاخ hany majdy مع بعض التعديلات