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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

وعليكم السلام-لك ما طلبت wor2.xlsm

تفضل هذه الفكرة ************ الكتابة داخل التحديد ************ - يمكن الكتابة داخل التحديد - في حال ناسبتك الفكرة يمكن تعديل حدود التعديل لتكون على حدود السيارة بالضبط و لكن تحتاج الى مجهود للقياس مرفق الملف ******* يجب ان فك الضغط عن الملف و فتح الملف عن طريق المتصفح ملاحظة لتنفيذ هذه الفكرة يجب ان يكون لديك خلفية جيدة عن لغة HTML AND CSS و لكي تتعمق اكثر يجب كذلك ان يكون لديك خلفية للتعامل مع لغة javascript للاتصال بجداول قاعدة البيانات ما تطحمه له ليس مستحيل بل سيكون سهلا اذا تعلمات للغات برمجة اخرى كذلك بالإمكان فتح الملف من خلال الاكسس و بإستخدام عنصر الويب web.zip

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

التصفية بالحساب ومصدر التمويل...

بعد اذن الاستاد Ali Mohamed Ali ربما الاخ نسور الجو يقصد العمود B في صفحة قاعدة وهذه تجربة ...الكومبوبوكس2 دون تكرار wor1.xlsm

عندي بيرحل 100/100 لا ادري سبب المشكلة عندك

تفضل هذا التعديل مع بعض التعديلات على المكتبة و الاكواد حتى يكون اكثر تفاعلاً عند الاختيار و التنقل __Domain Functions Builder V1.0.accdb تم تغيير المكتبة يرجى تجربة اخر تعديل

ضع الوظيفة الاتية فى وحدة نمطية Option Compare Database Option Explicit #If VBA7 Or Win64 Then Public Declare PtrSafe Function apiGetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal flag As Long) As Long Public Declare PtrSafe Function apiEnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableMenuItem As Long, ByVal wEnable As Long) As Long #Else Public Declare Function apiEnableMenuItem Lib "user32" Alias "EnableMenuItem" (ByVal hMenu As Long, ByVal wIDEnableMenuItem As Long, ByVal wEnable As Long) As Long Public Declare Function apiGetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hWnd As Long, ByVal flag As Long) As Long #End If Const MF_BYCOMMAND = &H0& Const MF_DISABLED = &H2& Const MF_ENABLED = &H0& Const MF_GRAYED = &H1& Const SC_CLOSE = &HF060& Const SWP_NOSIZE = &H1 Const SWP_NOZORDER = &H4 Const SWP_NOMOVE = &H2 Const SWP_FRAMECHANGED = &H20 Const WS_MINIMIZEBOX = &H20000 Const WS_MAXIMIZEBOX = &H10000 Const WS_SYSMENU = &H80000 Public Function EnableDisableControlBoxX(bEnable As Boolean, Optional ByVal lhWndTarget As Long = 0) As Long On Error GoTo Err_EnableDisableControlBoxX Dim lhWndMenu As Long Dim lReturnVal As Long Dim lAction As Long lhWndMenu = apiGetSystemMenu(IIf(lhWndTarget = 0, Application.hWndAccessApp, lhWndTarget), False) If lhWndMenu <> 0 Then If bEnable Then lAction = MF_BYCOMMAND Or MF_ENABLED Else lAction = MF_BYCOMMAND Or MF_DISABLED Or MF_GRAYED End If lReturnVal = apiEnableMenuItem(lhWndMenu, SC_CLOSE, lAction) End If EnableDisableControlBoxX = lReturnVal Exit_EnableDisableControlBoxX: Exit Function Err_EnableDisableControlBoxX: MsgBox "Error:" & Err.Number & vbCrLf & "Description: " & Err.Description Resume Exit_EnableDisableControlBoxX End Function ويمكنك عدم تفعيل زر الاغلاق من خلال EnableDisableControlBoxX False ويمكنك الرجوع للوضع الاصلى بإعادة فاعلية زر الاغلاق من EnableDisableControlBoxX True

السلام عليكم ورحمة الله اعزائى اعضاء منتدى اوفيسنا زملائى العاملين بكنترولات التعليم التجارى لسنوات النقل بعد التحية و كل عام و انتم بخير بمناسبة قرب شهر رمضان الكريم .... اعاده الله علينا و على الامة العربية و الاسلامية و الانسانية جمعاء بالخير و البركات و ايضا قرب امتحانات آخر العام من حوالى 3 اعوام كنت قد اضفت الى منتدانا الموقر شيتات التعليم التجارى و الحقيقة لم اجد لها القبول الذى كنت اتوقعة و لكن بعد مرور تلك المدة اود ان اتوجه بالشكر و التحية للاخ الكريم عضو المنتدى / صوت الحق و الحقيقة لولاه ما عاد هذا الموضوع للنور مرة اخرى من بداية شهر فبراير الماضى حتى كتابة هذا الموضوع و انا فى عمل مستمر للتعديل و التطوير حتى يصبح العمل على اكمل و جه و اعلى الامكانيات يوجد فى كل شيت ورقة تعليمات فيها شرح مفصل لكل خاصية من خصائص البرنامج و الآن اليكم الشيتات : كنترول اولى.xlsm كنترول ثانية.xlsm

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

جرب هل هذا ما تريد ؟

السلام عليكم وهذه مشاركتي مع الاخوة والاساتذة بالتوفيق فرز (3).accdb

اخي العزيز..رمضان كريم اولا لايمكن استخدام دالة Dlookup من الجدول مباشرة لانها تعيد اليك سجل واحد بينما لديك عدة سجلات في الرصيد ثانيا انت تبحث عن مجموع الرصيد السابق لتاريخ ماقبل FromDate فلماذا تحشر انف EndYear في الدالة ثالثا ..الظاهر ان لديك جدولا يختلف عن الذي لدي رابعا ..استخدم هذه الدالة في حدث النقر على زر لتضهر لك نتيجة الرصيد السابق في مربع النص الذي اسمه Rsabek Me.Rsabek = Nz(DSum("[Creditor]-[Debit]", "Financial_Records", "Customer_ID=" & Me.Customers & " And [Registration_Date]<#" & Format([FromDate], "mm/dd/yyyy") & "#"), 0)

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى واساتذتى الافاضل جزاهم الله عنا كل خير اخى @nabilalibibo جرب التعديل التالى Like [Forms]![frm_Search]![Ser_Grade] & "*" بالتوفيق فرز_1.accdb

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

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

هل هذا ما تريد ؟ رصيد تراكمي.rar

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

جرب التعديل في هذا الملف نموذج (1).xlsm

لماذا الاحباط اخي amerma ملف اخي حسين مامون الفورم الثاني يقوم بالترحيل تماما

جرب المرفق نموذج (1).xlsm

حينما تدخل معلوماتك في form1.. وتضغط زر الرصيد السابق ستظهر لك الارصدة السابقة T1Q.rar

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

انا بالخدمة ياريت المرة الاخرى تشير الى الحقل لان الاغلب لايعرفون الفرنسي .. لولا اني ترجمت القاعة بالكوكل لما عرفت اي حقل تريد بالتوفيق...

شكرا اخي موسى على هذا المصنع ، بل هو ,, كتاب : دوال المجال للعمل والتطبيق في الحال ,, اضافة ثمينة لمكتبة المنتدى . غفر الله لنا ولك ولوالديك ومنحك البر بهما .

بارك الله فيكم احمد الفلاحجي وابو جودي هو المطلوب شاكرين لكم احبتي

ان كنت تقصد بالقاعة =salle شاهد المثال القاعاتq.rar

عمل اكثر من رائع و احترافي تفضل هذا التعديل البسيط لراحة المتسخدم اسهل من ناحية اختيار نوع البيانات __Domain Functions Builder V1.0.accdb

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

شاهد المرفق اخي كود (1).xlsb

هو كلام معاليك صح جدا جدا جدا طبعا يا أفندم بس جرب الكود وانت تعرف الفرق اولا الوقت يعمل على نظام 24 ساعة بإضافة علامة الـ سالب ( - ) يسار الوقت عداد الوقت يعمل تنازليا وبدون اى مشاكل وبدون الاعتماد على مربع النص t1 الدال على الوقت الحالى اى يمكنك ترك t1 يعمل على نظام الـ 12 ساعة و t2 يعمل بالعد التنازلى على نظام الـ 24 ساعة وبما اننا دخلنا لمحرر الأكود برجلينا واشتغلنا منه لاننا مضطرين لذلك بوضع الكود فى حدث الوقت ليعمل العد التنازلى خلى كل شئ من داخل المحرر يعنى علشان لو مستقبلا حب يعدل شئ ما يلفلف حوالين نفسه

او في Formt النص ضع HH:mm:ss

بسيطة برضو اتفضل يا سيدى t2= "- " & Format(DateAdd("N", 1, Format(#11:59:59 PM# - Time(), "HH:mm:ss")), "HH:mm:ss")

السلام عليكم و رحمة الله فى الملف التالى تم الاستغناء عن عمود الجنسية لتكون ترتيب الاعمدة الخاصة بالسن هى : الرقم القومى - تاريخ الميلاد - عمر الطالب فى 10/1 يتم ملء عمود الرقم القومى فقط و يتولى الكود استخراج تاريخ الميلاد فى عمود و عمر الطالب فى العمود التالى بضغطة واحدة من زر حساب السن - يعنى لا داعى لكتابة تاريخ الميلا فى حالة توافره كنترول - السن.xlsm

اصدقائي لقد صممت قبل فترة برنامج خاص بالجمعيا ت الخيرية الاردنية وقدمته هدية لوجه الله تعالى هذا رابط مباشر للبرنامج على الميديا فير ارجو لكم الفائدة http://www.mediafire.com/file/4kic669dx76jgzw/%D8%A7%D9%84%D8%AC%D9%85%D8%B9%D9%8A%D8%A7%D8%AA_%D8%A7%D9%84%D8%AE%D9%8A%D8%B1%D9%8A%D8%A9.accdb/file