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

عليكم السلام مثلا لمعرفة عدد تكرار الحرف a في مربع النص text1 استخدم مثل هذا Len([text1])-Len(Replace([text1];"a";""))

وهذه مشاركة مع استاذنا القدير @ابوخليل طريقة اخرى test2.accdb

انظر التقرير أخي الامير .... DB (3).accdb

حجم الملف كبير جداً حوالي(7000 صف) لذلك من المفترض ان يأخد وقتاً للتنفيذ الكود الملف المرفق نموذج عما تريد (فقط حوالي 50 صف) لمتابعة عمل الكود الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A4:g4")) Is Nothing And _ Target.Count = 1 Then Range("A4:g4").Interior.ColorIndex = 40 Target.Interior.ColorIndex = 6 Call find_please(Target.Row, Target.Column) End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++ Sub find_please(IRow, ICol) Dim R As Worksheet, L As Worksheet Dim S_rg As Range 'Source range Dim m%, Ro%, i% Set R = Sheets("recherche") Set L = Sheets("liste") Set S_rg = L.Range("a2", L.Range("G1").End(4)) Ro = S_rg.Rows.Count For i = 1 To 7 If i <> ICol Then R.Cells(IRow, i) = vbNullString End If Next R.Range("A9").CurrentRegion.Offset(1).ClearContents m = 10 For i = 1 To Ro If UCase(Mid(S_rg.Columns(ICol).Cells(i), 1, Len(R.Cells(IRow, ICol)))) = _ UCase(R.Cells(IRow, ICol)) Then R.Cells(m, 1).Resize(, 7).Value = _ S_rg.Rows(i).Value m = m + 1 End If Next End Sub الملف مرفق list_saerch.xlsm

انت كررت الموضوع وهنا رد لموضوعك انظر

هذا الموقع به العديد من الايقونات والازار التي قد تفيدكم في تصميم شاشات وأزرار البرامج https://icons8.com/icons تحياتي

فورم تشغيل ملف صوتى للقران الكريم الفيديو

حتى الطريقة الاولى تؤدي نفس الهدف .... جربها لأنها اسهل كثير من طريقتي

هذا الموقع قد يساعد الكثيرين في تحويل الصور لصيغة png التي تتناسب كثيراً مع شاشات وبرامج الأكسيس والايقونات احببت مشاركتكم اياه لتعم الفائدة https://www.rapidtables.com/convert/image/jpg-to-png.html تحياتي

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

الدرس الرابع من تعليم الاكسيل بعد اعاده التحميل ورابط الفيديو https://youtu.be/SAeTKOqItOQ ورابط الشرح من المرفقات الدرس الرابع.xlsx

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

اشكرك اخي احمد

شكرا لك اخي

تفضل .... Database1 (3).mdb

جرب المرفق New Microsoft Excel Worksheet.xlsx.xlsm

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

وعليكم السلام ورحمه الله وبركاته أَمَّن يُجِيبُ الْمُضْطَرَّ إِذَا دَعَاهُ وَيَكْشِفُ السُّوءَ اللهم شافه بشفائك وداوه بدوائك انك على كل شي قدير

الاخ ابو طيبه شكرا لك عزيزي الاخ saad abed اضرب لي مثال حتي تتضح لي الرؤية

اسأل الله العظيم رب العرش العظيم ان يشفيه ةيشفى مرضانا ومرضى المسلمين اللهم آمين

الموقع يساعدك في تحديد الوان الخلفيات بصيغ مختلفة hex على ان تقوم بنسخ الكود لتبويب التصميم في عرض تصميم النموذج rgb وذلك بنسخ الارقام لكود تصميم الوان الخلفيات او النماذج ويكون من مكون من 3 ارقام وهذا مثال للون الاخضر بكل درجاته http://www.flatuicolorpicker.com/green-hex-color-model تحياتي

تفضل اخي العزيز ارجو ان يكون طلبك Database2.rar

السلام عليكم ورحمة الله استخدم المعادلة التالية =SUMPRODUCT(D6:D40;(E6:E40)-1)

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

في.rar

في النموذج في حدث بعد للتحديث لحقل مربع السرد والحوار الذي يضم أسماء المكاتب ضع الكود التالي: Me.Id = dcount("*";"YourTableName";"[YourCombobox]='"&[Yourcombobox]&"') & "\" &"2020" مع ضرورة جعل العمود الأول لمصدر صف مربع السرد والحوار هو أسماء المكاتب وليس المعرف التلقائي. هذه إحدى الطرق الممكنة.

السلام عليكم حملت مرفقكم، ولكن لم يتح لي رفع الحل ،أعتذر على التأخير حتى يتاح لي حاسب متصل بالإنترنت مجدداً. أو لعل أحد الأخوة يأتي بالحل المناسب.

مرحبا اخي حسان تعليقي من شقين : وقبل ذلك اعتذر عن التعديل على المثال لاني لا املك اكسس في حاسوبي الشق الأول : الترقيم حيث يمكنك ادراج رقم المكتب ضمن الرقم وايضا لست بحاجة الى العلامة الفاصلة (السلاش) بحيث يتكون الرقم من اربع خانات للسنة وخانتين لرقم المكتب على اعتبار ان المكاتب سوف تزيد مستقبلا وباقي الرقم من اليمين للترقيم المعاملة ( مفتوح بدون عدد ) فيكون اترقيم على النحو التالي : 2020011 2020012 2020013 ....... وهكذا ايضا يمكنك ادراج رمز ( رقمي ) ضمن هذا الترقيم يعبر عن الصادر او الوارد لو احببت تعمل على جدول واحد ملحوظة : من خلال هذه المعطيات الثابتة يمكن في التقارير استخراج التالي : فصل المعاملات الصادرة من الواردة معاملات كل مكتب على حدة ترتيب المعاملات حسب النوع وحسب الرقم ................................................................................ الشق الثاني : واضح ان المكاتب في اماكن متفرقة وانك تجمع البيانات بالنسخ واللصق اذا هذا صحيح فيجب عليك التفكير بطريقة تجمع بها هذه البيانات بدون تدخل يدوي من الطرق : جمع قواعد البيانات الواردة من المكاتب في مجلد واحد ( لاحظ ان كل قاعدة ستحمل اسما مختلفا حسب اسم المكتب ) ثم تعمل استعلاما يجلب لك هذه البيانات .

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

جرب هذا الكود مجرد ان تختار الصف من اي قائمة منسدلة يقوم الكود بعمله Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("All_class")) Is Nothing _ And Target.Count = 1 Then If Target = vbNullString Then Target.Offset(3, -2).Resize(10, 3).ClearContents GoTo Exit_me Else get_10_studiants (Sheets("first").Range(Target.Address)) End If End If Exit_me: Application.EnableEvents = True End Sub '========================= Sub get_10_studiants(rg As Range) Dim A As Worksheet, F As Worksheet Dim find_rg As Range, cel As Range Dim my_clas$, t Dim Obj As Object Dim x%, LF%, Ro%, first%, last%, i% Dim arr(9), Copy_rg As Range Dim adrs$ Set A = Sheets("ALL_STD") Set F = Sheets("first") my_clas = rg adrs = rg.Address rg.Offset(3, -2).Resize(10, 3).ClearContents Set Copy_rg = rg.Offset(3, -2).Resize(10, 3) Ro = A.Cells(Rows.Count, 1).End(3).Row Set Obj = CreateObject("System.collections.arraylist") Set find_rg = A.Range("a:a").Find(my_clas, lookat:=1) If Not find_rg Is Nothing Then first = find_rg.Row: last = first Do Obj.Add A.Range("AF" & last).Value Set find_rg = A.Range("a:a").FindNext(find_rg) last = find_rg.Row If last = first Then Exit Do Loop End If Obj.Sort: Obj.Reverse For i = 0 To 9 Copy_rg.Cells(1, 1).Offset(i) = i + 1 arr(i) = Obj(i) Next Copy_rg.Cells(1, 3).Resize(i) = Application.Transpose(arr) For Each cel In Copy_rg.Columns(2).Cells t = "=INDEX(ALL_STD!$B$3:$B$710,MATCH(" & adrs & "&" & cel.Offset(, 1) & _ ",ALL_STD!$A$3:$A$710&ALL_STD!$AF$3:$AF$710,0))" cel = Evaluate(t) Next End Sub الملف مرفق Many_Class_In One_Sheet.xlsm

تفضل اخي شاهد المرفق مع تحياتي Test_1.xls

بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar

لمن يعاني من ترتيب المخزن وجرده ويريد برمجه بسيطه تنظم مخزنه هذا هو الحل برنامج إدارة مخازن بسيط جداً معتمد علي الأكسيل وقد جمع كم هائل من المعادلات المعده مسبقاً حتي يكفي الغرض منه فهو يحتوي علي صفحة الأصناف والكميات وصفحة لحركة المخزن ككل .وفواتير المبيعات وكتابة الفواتير وتصديرها لصفحة فواتير المبيعات شرح مبسط للبرنامج 1. بعد تحميل البرنامج وفك الضغط عنه بستخدام أي برنامج فك ضغط نجد ملف به البرنامج وملف به باسورد البرنامج عند فتح البرنامج أول مره بيطلب تفعيل ميزة الماكرو ** تنبيه: الماكرو تفعيله لا يضر الجهاز طالما الملف من مكان موثوق .واذا لم تفعله لاتقلق فسوف يعمل البرنامج بشكل طبيعي غير أنه سوف تجد صعوبه في استخدام بعض مزايا البرنامج صورة توضيحية: 2. بعد تفعيل الماكرو يغلق برنامج الاكسيل ويفتح مره اخرى علي صفحة حماية البرنامج ويتم فيها ادخال كلمة السر المدرجة مع .ملف البرنامج صورة توضيحية: 3. بعد كتابة كلمة السر والدخول علي البرنامج بتظهر الصفحة الرئيسية اللي بتتكون من عده أقسام 1. الأصناف والكميات 2. حركة المخزن 3. المبيعات (فواتير المبيعات بعد ادخالها) 4. كتابة الفواتير 5. الخروج من البرنامج شرح الأقسام القسم الأول: الأصناف والكميات: يتضمن هذا القسم الأصناف حيث يتم تكويد الصنف ووضع اسم الصنف في الخانة التالية ليه وسعر بيع الصنف وباقي الصفحة يعمل اتوماتيك مع عمليات الادخال التي تقوم بها صورة توضيحية: *** نجد في الاعلي ازارا التنقل داخل البرنامج احصائيات حول الاصناف كمية الأصناف من كمية الوارد والمنصرف داخل المخزن تنبيه: هناك فلتر علي الصنف واسم الصنف حتي نتمكن من تحديد صنف معين ومعرفة الوارد والمنصرف من ذلك الصنف وكلمة سر فك الضغط هي f7men Stores_Management_V3.1-برنامج_اكسيل_إدارة_المخازن_الإصدار_3.1.rar

بعد أذن الأخ Ali Mohamed Ali الأخ Saadrafic شاهد المرفق هو يعمل جيدا مع ويندوز 64 والمفروض انه يعمل مع ويندوز 32 لقد قمت بتجربة الكود علي windows 32 bit وهو يعمل جيدا ايضا اذن الكود المرفق سابقا يعمل علي كل من نسختي ال windows سواء كانت 32 bit أو 64 bit Show_Keyboard.xlsm

تفضل UserformKeyboard.xls

الف شكر استاذ محمد اليكم الدرس الخامس بعد اعادة التحميل https://youtu.be/D6jU0UGZGV0 وملف الشرح بالمرفقات الدرس الخامس لشرح الاكسيل.xlsm

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

برنامج سهل وصغير لتقديم الأقرار الضريبي ، الرقم السري 1975 للأكسس2003 ، أي ملاحظة نرجو الأفادة أبدأ بنموذج الأقرارات الدائنة أولا اقرار.rar

تفضل ::بالتوفيق:: disableSavKaser906.rar

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

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

السلام عليكم من سلسلة معلومة في اكسس استخراج الاجمالي بواسطة دالة Dsum واستخراج العدد الكلي بواسطة دالة Count أتمنى لكم الفائدة dsum.accdb

برنامج مسير رواتب ..... لأني شايف ان كثير من رواد المنتدى بتسأل عن الرواتب ..... اهو برنامج حلو وفعال واحسن ما فيه انه مفتوح المصدر ... يعني تقدر تعدل فيه زي ما انت عايز والهدف اننا نتعلم كلمة السر ( 123 ) المرفقات A.salary.rar

وعليكم السلام تم تغيير اعدادات الحقل ID الى السماح بالتكرار ، وتفضل الكود ، والذي يشتغل بعد ان تُدخل قيمة الحقل Type في النموذج: Private Sub Type_AfterUpdate() Me.ID = Nz(DMax("[ID]", "Table1", "[Type]='" & Me.Type & "'"), 0) + 1 End Sub بس ملاحظة ، الموضوع غير متوقف على المادتين اللي ذكرتهم ، بل اذا اضفت اي مادة جديدة ، سوف يكون لها تسلسل مستقل. جعفر 718.db1.accdb.zip

تفضل مثال لشجرة العائلة باستخدام المتصفح شجرة العائلة متصفح.rar

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

شكرا على توجودكم اتمن ان احاول افيدكم على قدر ما استطيع للاسف انا صممت البرنامج على دقة 1024/768 وقمت بتعديل البرنامج ليتناسب مع اى دقة وتم الغاء تعديل دقة الشاشة معلومة اخرى يجب بعد تسجيل بيانات الموظف يجب اغلاق البرنامج واعادة التشغيل ليظهر امامك فى شاشة تسجيل اجازة لتقوم باضافة اجازة للموظف وشكرا مرة اخر على مشاركتكم الاجازات.rar

اخي العزيز ارفق لك مثال جميل ستستفيد من الافكار الموجودة فيه وقد قمت باضافة كود ادخال الرقم السري الذي سيظهر لك عند النقر على زر تعديل سيظهر نموذج به بيانات جرب تعديل اي بيانات مباشرة ستلاحظ تجميدها ثم انقر زر تعديل لتظهر لك رسالة تطالبك بالرقم السري جرب ادخال اي نص اورقم ثم ادخل "1234" وستلاحظ الفرق بالتوفيق,,, ___________.rar

وأرفق لكم المثال TENANTS.zip