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

السلام عليكم اخى @عمر ضاحى فى الداله GetColType اضف السطر التالى Case Is = 7: GetColType = 1 بالتوفيق

فقط ..عليك استخدام هذه المعادلة بصفحة الإحصاء .. وضع ما شئت من الكلمات كما ترى =COUNTIF('ردود النموذج 1'!$B$2:$BX$220,B$1) بسيطة اذا كنت التريد العمل على عمود معين فقط فعليك بتغيير المدى بالمعادلة السابقة الى مدى اى عمود تريد فمثلاً العمود BV ... قستكون المعادلة كالتالى وبالتالى كده اكتملت كل الطلبات ويجب غلق المشاركة =COUNTIF('ردود النموذج 1'!$BV$2:$BV$220,B$1 23.xlsx

السلام عليكم-تفضل يمكنك استخدام هذه المعادلة للأدنى =MINIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) وهذه للمتوسط =Iferror(AVERAGEIF(SHEET1!$C$10:$C$250,$A$1,SHEET1!E$10:E$250),"") وأخيراً معادلة الأعلى .. وبارك الله فيك =MAXIFS(SHEET1!E$10:E$250,SHEET1!$C$10:$C$250,$A$1) TEST568.xlsx

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) 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

السلام عليكم ورحمة الله كل عام وانتم بخير ( برنامج الإحصاء والتوثيق ) مصمم على اوفيس 2003 ولكي تستفيد من البرنامج بشكل أفضل استخدم اوفيس 2003 يستفيد منه جميع القرى في المملكة السعودية وإن شاء الله يكون عمل موفق ونافع والله من وراء القصد - يفضل إدخال كبار السن في الاسرة حتى وإن كانوا متوفين - يفضل إضافة الصور للمتوفين فقط - اسم المستخدم ( S ) كلمة المرور ( 1 ) حقوق البرنامج لـ أبو / سعد والشكر الجزيل لمن استفدنا منه في هذا المنتدى أو المنتديات الأخرى البرنامج.rar

من خصائص الحقل كما بالصوره بالتوفيق

وعليكم السلام-طبعاً لا يمكن عمل هذا بهذه المعادلات -فقط يمكنك استخدام هذه المعادلة =SUMIFS('All Details'!$C$6:$C$1000,'All Details'!$A$6:$A$1000,$E$5,'All Details'!$B$6:$B$1000,$C7) تقفيل نهائي-فاضي-Index-1Match.xlsx

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

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

Sub Test() Dim ws As Worksheet, sh As Worksheet, rRange As Range, rCell As Range, rng As Range, t As Double, iRow As Long, r As Long, c As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(2) 'Tasks Set sh = ThisWorkbook.Worksheets(1) 'Summary iRow = 4: r = iRow With sh.Rows(iRow + 1 & ":" & Rows.Count) .ClearContents: .Borders.Value = 0 End With Set rRange = ws.Range("B5:B" & ws.Cells(Rows.Count, "B").End(xlUp).Row) Set rCell = rRange.Cells(1, 1) Do If rCell.Value = Chr(199) & Chr(225) & Chr(199) & Chr(204) & Chr(227) & Chr(199) & Chr(225) & Chr(237) Or rCell.Value = Empty Then GoTo NXT r = r + 1: t = 0 sh.Cells(r, 1).Value = r - iRow sh.Cells(r, 2).Value = rCell.Value For c = 3 To 16 Set rng = rCell.Offset(, c - 2).Resize(rCell.MergeArea.Rows.Count) t = Application.WorksheetFunction.Sum(rng) If t = 0 Then sh.Cells(r, c).Value = Empty Else sh.Cells(r, c).Value = t Next c NXT: Set rCell = rCell.Offset(1, 0) Set rng = Nothing Loop Until (rCell.Row > (rRange.Row + rRange.Rows.Count - 1)) With sh.Rows(iRow + 1 & ":" & r) .Borders.Value = 1 End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته سبق وان عملت امثلة وبرامج مصغرة ومختصرة للمبيعات والمشتريات ، ويمكن من خلال البحث في المنتدى تجدونها .وهذا العمل يختلف نوعا ما عن ما سبق . يسعدني ان ارفق اخر تطوير لعمليات البيع والشراء والمخازن ومنهجي الدائم في جميع مشاريعي هو استخدام الجدول الواحد في هذا العمل المرفق تم تحقيق التالي : 1- العمل المرفق هو زبدة النظام وان شئت نسميه المحرك الأساسي ، ويمكن ان يبنى عليه جميع التقارير التي تخطر على البال بلا استثناء 2- يشتمل على عمليات البيع وعمليات الشراء واختيار المخزن المناسب 3- يشتمل على عمليات المرتجع من المبيع او المشتريات على فرضية ان مرتجع البيع هو في الحقيقة شراء والعكس صحيح 4- امكانية البيع والشراء بالنقد والآجل 5- احتساب الضريبة في المبيعات . فقط 6- عملية تسجيل الاصناف بطريقة احترافية 7- استخراج ارصدة الاصناف حسب المخازن عند كل حركة 8- سهولة في الاستخدام ( جميع عملياتك بنقرة واحدة ) 9- المخرجات لم اعملها وانما تركتها لكم .. علما انه يمكن استخراج : - ارصدة المواد - الدائن والمدين والأرباح - الكاش والآجل للجميع او حسب كل عميل وأشياء اخرى يمكن استخراجها ستكتشفونها عند فحص وتجربة المثال اتمنى ان تجدوا فيه الفائدة .. ولا تنسوني من دعوة صالحة بظهر الغيب buyAsale1.rar

تفضلي هذا التعديل New Microsoft Office Access 2007 قاعدة بيانات (2).accdb

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

جرب هذه التجربة البسيطة جورج الطويل تعديل 3 .accdb

الف الف شكر اشتغلت تمام ^_^ ربي يحفظك من كل شر

الكود اعلاه يخص نتيجة مربع نص جرب النتيجة الان ..مع الرصيد السابق لكل مصادر التمويل T2Q - Copy.rar

فيديوووووو جديددددد في الفيديو دة هانتغلب على معادلة الوقت لما تستخدم المعادلة دي في أي مجال باركود او تاريخ تسجيل يومي، بالوقت والتاريخ حقيقي الموضوع مهم جدا .... ممكن موش عارف أوصل المعلومة صح لكن من خلال الشرح هاتقدر تفهم قصدي https://youtu.be/gmIJqMLbCN4 كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود.xlsx

عندي تعرف على نوع الحقول تلقائي في جميع الشروط .....

بالنسبه لسؤالك لا يمكن ان نضيف نص فى حقل رقمي لكن يقبل رقم فى حقل نصي اما الوحدات يجب ان تكون نص لكى تقبل ارقام ونصوص معا اما اذا كنت تريد ان تجعل الوحده رقم لكى تستخدمها فى العمليات الحسابيه وغيرها فيمكن ان تجعل للوحدات جدول مستقل وتربطه بالجدول الاساسى وفى الجدول المستقل للوحدات اجعل فيه حقل نصي وحقل رقمي لنفس الوحده (طبعا بخلاف الحقل الرقمي الذى سوف تقوم بربطه بالجدول الاساسى) وفى الحقل النصي اكتب اسم الوحده بالاحرف والارقام معا مثل ( 100 لتر ) وفى الحقل الرقمي اكتب 100 وعند عرض الفاتورة مثلا يظهر الحقل النصي لكن عتد استخدام العمليات الحسابيه يتم استخدام الحقل الرقمي فى الخلفيه هذا ما فكرت فيه وقد تجد افكار افضل من افكارى هنا (هذا اكيد) ^_^

شكرا لكل من ساهم في مساعدتي والملف اشتغل على جهاز اخر اكرر شكري

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

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

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

اخي عمر ماهو نوع الحقل الذي تستخدمه ؟

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

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

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

وعليكم السلام ورحمه الله وبركاته ومشاركه مع الاستاذ عمر جزاه الله خيرا على نفس تعديله لكن بالاستغناء عن الحقل المحسوب بالجدول انظر الاستعلام qry والاستعلام Qqry_1 عن طريق استعلام فرعى بالتوفيق رصيد تراكمي_1.accdb

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

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

جزاكم الله خير أ/ حسين وزادكم علما.

جرب هذا الشيء Book1 (1).xlsm

جرب هذا التعديل Database1.zip

ممكن شيت اكسيل ل اهلاكات الاصول في شركة مقاولات بطريقة القسط الثابت

استهلاك الاصول.xlsx ارجو ان يساعدك هذا النموذج

وبعد قليل تجدوا اخونا الغالى استاذى القدير ومعلمى الجليل الباش مهندس @Moosak يضع تلك المشاركة الله يخلى لنا اياه ولا يحرمنا منه ولا من مكتبته فننتظر منه بعد ان تمتلئ مكتبته مشاركتنا اياها مملؤه بدلا من المكتبة الخاوية التى ضحك علينا بها قبل فترة وهذا المرفق الأخير Database1011 v5.accdb

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

نستغنى عن النموذج الفرعي ونحول النموذج الاصلي لنموذج عناصر متعددة ونلعب في الريكورد سورس .. مش كده ولا أيه ؟ 😁

انا اتخضيت مش تخبط الاول وترمى السلام 🤭 يا هلا باش مهندس @Moosak اتفضل يا سيدى اسمح لك طبعا افعل ما تشاء كلنا ملك يمينك وتحت امرك انا كنت ناوى اربط له المرفق بالمرفق السابق لموضوعه الاخر تباعا والنهوض تدريجيا بمستوى الحلول مع التغييرات اللازمة لا احاول تقديم الحل فقط وانما احاول تقديم النصح والارشاد للبناء الصحيح

تفضل جرب هذا التعديل Database1.zip

السلام عليكم ورحمة الله جعل الكود هكذا Private Sub UserForm_Initialize() Label6 = WorksheetFunction.CountIf(Range("B2: B22"), "ذكر") Label7 = WorksheetFunction.CountIf(Range("B2: B22"), "انثى") Label8 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "بالغ", Range("D2: D22"), "موظف") Label9 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "بالغ", Range("D2: D22"), "عاطل") Label10 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _ "حدث", Range("D2: D22"), "عاطل") End Sub

نسيت اذكر ان فورم العمليات يفتح آليا على حركة المبيعات ، ولأنه عند التبديل بين الحركات لا يوجد ما يستدل به على نوع الحركة ، لذا اضفت لمسة تعريف بنوع العملية . buyAsale2.rar

السلام عليكم أختي الكريمة عملت هذا الملف المرفق حسبما طلبتِ أرجو أن يكون مناسباً والسلام عليكم سعر الصرف.xlsx

وعليكم السلام-يمكنك وضع هذا الكود فى حدث Thisworkbook بملفك ... فقط عليك بوضع اسم جهازك بالكود مكان ("Computername") بين القوسين .. وشكرا وهذا كود بسيط لمعرفة اسم جهاز الكمبيوتر لديك .عند وضع بمديول عادى Sub know() Msgbox ENVIRON("Computername") End Sub Private Sub Workbook_Open() Dim ChkName As String ChkName = MY - PC If Environ("Computername") <> ChkName Then MsgBox "File is only available to PC: " & ChkName, _ vbCritical + vbOKOnly, "Cannot Open File" Application.DisplayAlerts = False ThisWorkbook.Close Exit Sub Else MsgBox "PC security check passed.", vbOKOnly + _ vbInformation, "File Open Succesful" End If End Sub

اتفضل استاذ محمد الملف لعله يفى بالغرض xD.xlsm

في الفترة السابقة قمت بتطبيق هذة الفكرة للتحكم بمستويات الصلاحيات واحببت اليوم مشاركتها معكم لتعم الفائدة واستفيد من اي مقترحات وملاحظات على هذة الطريقة الفكرة: ان يتم تحديد الصلاحية لكل مستخدم ولكل نموذج او تقرير من حيث فتح النموذج او التقرير ، اضافة سجل جديد ، حذف سجل ، تعديل السجلات التطبيق : انشاء جدول للمستخدمين (رقم المستخدم ، اسم المستخدم وكلمة مرور) انشاء جدول للصلاحيات يحتوي على رقم متسلسل ، رقم الموظف، اسم الكائن ، .... وبعد ذلك اي صلاحية تريدها مثل صلاحية فتح، صلاحية تعديل، صلاحية اضافة ،صلاحية الحذف * الجداول مرتبطة ببعضها عن طريق رقم المستخدم انشاء نموذج للدخول الى البرنامج (اسم مستخدم وكلمة مرور) انشاء نموذج للتحكم بالصلاحيات مستند الى جدولي المستخدمين والصلاحيات انشاء وتعميم وظيفة لتطبيق الصلاحية عند فتح نموذج او تقرير باسم Privilege الية العمل: عند الدخول باسم مستخدم صحيح سيتم تخزين رقم المستخدم الحالي في متغير اسمة UsrID وبعد ذلك عند فتح اي نموذج او تقرير يتم استدعاء الوظيفة Privilege للتحقق من ان لهذا المستخد صلاحية فتح نموذج ام لا واذا كان لا فانه ستظهر رسالة بانه لا يملك الصلاحيات ، كما سيتم قبل ان يفتح النموذج ثم سيتم التحقق من ان له صلاحية التعديل ام لا وعندها سيتم تفعيل التعديل او تعطيله حسب الصلاحية ...وهكذا طريقة تعديل واضافة الصلاحيات: تم اضافة نموذج للتحكم بالصلاحيات يتم من خلاله تحديد اسم المستخدم وتحديد اسم النموذج ثم يتم اختيار صلاحيات هذا المستخدم على هذا النموذج وبخصوص قائمة النماذج والتقارير تم استخدام جدول النظام MSysObjects فيديو يوضح الطريقة https://youtu.be/AmfpDgLWUBg الصلاحيات حسب المستخدم و نوع الكائن .rar