كل الانشطه

وعليكم السلام ورحمة الله تعالى وبركاته حل اخر لتجاهل ورقة ff مثلا Option Explicit Sub call1() Dim CrWS As Worksheet, WS As Worksheet Dim Tbl As Integer, lastCol As Integer Set CrWS = ThisWorkbook.Sheets("ff") Tbl = 4 lastCol = 21 CrWS.Range(CrWS.Cells(3, Tbl), CrWS.Cells(3, lastCol)).ClearContents For Each WS In ThisWorkbook.Sheets If WS.Name <> CrWS.Name Then CrWS.Cells(3, Tbl).Value = WS.Name Tbl = Tbl + 1 End If Next WS End Sub

صحيح هذا تصحيح للمثال كما تفضلت .. لعله يناسب ابو عبدالله AcademicYear2.rar

تمام .. ليست بعيدة عن فكرة اخونا خليفة .. ولكن بأنامل محترفة المهم في طلب السائل هو فاذا اتبع هذه الطريقة عليه ان يتم احتساب الضريبة خلف زر الحفظ ( الوهمي) على اعتبار ان اكسس يحفظ بمجرد الخروج من الحقل

لا تعلو عين فوق حاجبها .. أنتم الأصل ومنكم نستفيد ونتعلم معلمي الفاضل . بالطبع هو أفضل ، وإن كان لي رأي في التصميم نفسه !! فما الحاجة لأن يكون مكرراً قيمة السنة في مربعي نص ( كود السنة الاكاديمية ، و اختيار السنة الاكاديمية ) . ولكني تماشيت مع طلبه ليس إلا .

من فضلكم اريد برنامج محاسبي لشركات المقاولات مصمم بواسطة برنامج الإكسل على أن يكون آلي و مستخدم فيه معادلات مالية وحسابية متقدمة و VBA وماكرو وربط بين القوائم و الصفحات .... الخ برنامج متكامل وشامل للقوائم المالية والتحليلة وطبقاً للمعايير المحاسيبة الدولية والأنظمة السعودية.

في كانت كفكرة تشبيه إنه يكون عنده أكثر من فاتورة = أكثر من طاولة . ومن الغير طبيعي انه يكون الكاشير قادر على التعامل مع أكثر من 3 فواتير تقريباً .. فهنا ممكن يكون عنده زر "فواتير مستخدمة الآن" على سبيل المثال . ويقدر يحجز فاتورة بسجل جديد الفكرة كانت تشبيه فقط ، كأن المستخدم عنده أكثر من فاتورة شغالة في نفس الوقت ، زي نظام الطاولات في مطعم ، كل طاولة لها فاتورة خاصة ، ويتنقل بينها بحرية . وطبيعي إن الكاشير ما يقدر يتابع أكثر من 2 أو 3 فواتير بنفس الوقت ، فممكن يكون فيه زر مثلاً اسمه "فواتير قيد الاستخدام" ، يعرض له الفواتير المفتوحة اللي ما تم إنهاؤها . يقدر من خلاله يحجز فاتورة جديدة (زي حجز طاولة) ، ويتنقل بين الفواتير النشطة ، وينهيها وقت الدفع . وطبعاً هنا نقدر نسمي الفكرة بـ "تعليقا فاتورة" بحيث عند النقر عليه يتم تعليقا الفاتورة والإستفادة من فكرة الحقل Yes/No السابق ذكره ,

فتح نفس النموذج لعدد غير محدود

انا كنت اعمل على المثال .. وسبقتني 👍 يوجد حل افضل .. وهو تحويل القائمة الى مربع نص وهنا لن يكون بحاجة الى جدول السنوات Academicyeartble

زدنا تفصيلا بارك الله فيك .. اعجبني لأن مثال السائل يشتمل على رأس فاتورة وتفاصيل

بالطبع سيكون الموضوع أكبر من مجرد قيمة = قيمة ، فماذا لو كان الاختيار لتاريخ أكبر بـ 5 سنوات وغير مدرج في الكومبوبوكس Academic_Name !!!!

أخي @algammal ربما ما لم تلاحظه هو أن القيم تعبأ على عناصر الكومبوبوكس مع تجاهل الفراغات والتكرارات ولهذا السبب تظهر معك مرة واحدة فقط وذلك لأن أرقام التسلسل الموجودة على ورقة معاشات هي نفسها الموجودة على الـ DATA ما يهمنا هنا هو جلب جميع البيانات المتوفرة على الورقتين التي تتضمن شروط التصفية المختارة وهذا واضح من خلال الإحصائيات أسفله وللتوضيح أكثر دعنا نجرب إضافة تسلسل جديد على ورقة المعاشات غير موجود مسبقا في DATA ونرى كيف سيتم التعامل معه لاحظ معي عند اختيار رقم التسلسل 1 الاحصائيات لدينا تظهر عدد الموظفين 2 على ورقة معاشات 1 وورقة DATA 1 أرفق لك آخر تحديث للملف توحيد البحث في شيت واحد v7.xlsb

تمام استاذنا .. ويمكن وضع ضابط من اجل تجاوز الخطأ فيما لو لم تكن القيمة موجودة ضمن القائمة

وعليكم السلام ورحمة الله وبركاته ،، مشاركة معنوية مع الأساتذة والمعلمين ، وكفكرة أستاذنا @kkhalifa1960 ، هي جميلة وتجهلك تتنقل بين الفواتير التي تريدها ، وتستطيع التعديل عليها كتحسين ( لا ينقص من جمالها شيء طبعاً ) بحيث يتم تعليم الفواتير التي تم دفعها بحقل Yes/No = Yes للفواتير المدفوعة ، وهنا سيتم عرض الفواتير التي لها قيمة = No . وطبعاً في زر الدفع سيتم اضافة استعلام لتحديث قيمة هذا الحقل = Yes مع Requery للقائمة المنسدلة . أو أن التنفيذ الذي يحاول أخونا الكريم الوصول اليه هو ما يشبه نظام الطاولات في مطعم على سبيل المثال ، على اعتبار ان الطاولات هي فواتير مفتوحة ولكل فاتورة رقم تم حجزه ويحتوي بيانات ، ويتنقل بينها كيف ما يشاء وإنهاء ما يشاء حسب الإنتهاء منهم .

وعليكم السلام ورحمة الله وبركاته ,, جرب هذه الفكرة البسيطة ، في حدث بعد التحديث لمربع نص تاريخ الإجتماع :- Private Sub MeetingDate_AfterUpdate() Me.Academic_Name = Me.Text7 End Sub طبعاً هذا سيعتمد على تحديث القيم في القائمة المنسدلة بشكل تلقائي كل سنة دراسية على سبيل المثال , AcademicYear.accdb

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

أخي الكريم الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته حفظكم الله ورعاكم؛ وسلمت يداكم على هذه الروعة؛ وعلى كل ما قدمتموه؛ وجزاكم الله خير الجزاء؛ وجعل ما قمتم به في ميزان حسناتكم. آمين رب العالمين · القائمة المنسدلة في الخلية (E5) تم تغيير مصدرها من (=AA1:AA6) إلى (=AA1:AA8) حتى يتم إضافة خلية فارغة ضمن هذه القائمة المنسدلة؛ كي أستخدمها في (تصفير) بيانات البحث؛ ولكن تم ملاحظة أن الخلية الفارغة المضافة يتم حذفها بعد النقر على زر (أنقر هنا للبحث) وكذلك الحال في كل مرة يتم إضافتها فيها فإنها تختفي تلقائيا بمجرد الضغط على زر (أنقر هنا للبحث)؛ فكيف يتم إضافة خلية فارغة ضمن القائمة المنسدلة في (E5) وتظل ثابتة ولا يتم حذفها. وتقبلوا خالص الشكر والتقدير والاحترام لشخصكم الكريم. وكل عام وأنتم بخير أخي الكريم الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته حفظكم الله ورعاكم؛ وسلمت يداك على هذه الروعة؛ وعلى كل ما قدمتموه؛ وجزاكم الله خير الجزاء؛ وجعل ما قمتم به في ميزان حسناتكم. آمين رب العالمين أرجو أن يتم إضافة الرقم المسلسل لشيت (معاشات) في (ComboBox1) الخاص بالمسلسل حيث أنه يقتصر على مسلسل شيت (DATA) فقط. وتقبلوا خالص الشكر والتقدير والاحترام لشخصكم الكريم. وكل عام وأنتم بخير

السلام عليكم ورحمة الله وبركاته الأستاذة الافاضل الاخوة الأعزاء في منتدى اوفيسنا في قاعدة البيانات المرفقة وفي نموذج Meetingfrm عند ادخال تاريخ الاجتماع سوف يتم تحديث وتحديد العام الدراسي تلقائيا في مربع نص كود السنة الاكاديمية هذه العملية المطلوب تطبيقيها على مربع تحرير وسرد السنة الاكاديمية (اي عند ادخال تاريخ الاجتماع يتم اختيار العام الدراسي تلقائيا في combo box اختيار السنة الاكاديمية بدل من ان يتم اختيار العام الدراسي يدويا في هذا الكومبوبوكس ؟ ( يعني اختيار قيمة من مربع تحرير وسرد من قيمة مربع نص ) هل من الممكن ؟؟ AcademicYear.rar

وعليكم السلام ورحمة الله وبركاته اليك الكود المتاسب لطلبك Sub call1() Sheets("ff").Range("D3:U3").ClearContents Dim i As Integer For i = 1 To Sheets.Count Sheets("ff").Cells(3, 3 + i) = Sheets(i).Name Next i End Sub

لطفا المساعدة في تصليح الكود لهذا النموذج من الجدول للمدرسة في اضافة درجة القرار أصل الموضوع هنا مدرسة.rar

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

احبتي في الله السلام عليكم كل عام وانتم بالف خير معي هذا الكود لجلب اسماء الضفخات ولكن في عمود واريد ان يكون في ضف Sub call() Sheets("ff").Range("a1:a23").ClearContents Dim i As Integer For i = 1 To Sheets.Count Sheets("tt").Range("a" & i + 6) = Sheets(i).Name Next i End Sub يعني بدل من العمود a1:a23 يكون الضف من d3:u3 وشكر جزبلا لحضرتكم

بعد اذن اخي واستاذي خليفة اولا : النموذج المفتوح لا يمكنك فتحه مرة أخرى . ثانيا : بطريقتك هذه التي هي ربط النماذج بالجداول او الاستعلامات مباشرة .. لا يمكنك تحقيق فكرتك بطريقة علمية احترافية صحيحة وحتى لا اخيب آمالك يمكنك عمل نماذج عدة طبق الأصل والعمل عليها في وقت واحد بشروط : 1- ان تكون النماذج غير منضمة الى اي مصدر بيانات 2- ادخال البيانات وحفظها باستخدام مجموعة السجلات Dao

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

الله يعطيكم العافية ، نقاشكم أثرى معلوماتي وأضاف لي الكثير ، فجزاكم الله خيراً . تسمحولي أطرح عليكم كم سؤال خطروا في بالي .. ؟ 🔸 في التطبيقات الكبيرة التي تحتوي على بيانات ضخمة ، برأيكم : هل من الأنسب تحميل البيانات من جدول الإعدادات إلى TempVars عند بدء التشغيل ، أم أن القراءة من الجدول عند الطلب أفضل ؟ ولماذا ؟ 🤔 🔸 هل ترون أن وجود جدول إعدادات واحد رئيسي كافٍ ؟ ، أم أن الأفضل تقسيم الإعدادات على جداول منفصلة حسب الحاجة (مثل إعدادات النظام ، المستخدم ، النماذج ... إلخ ) ؟ 🔸 وأخيراً ، إذا تغيّرت بعض الإعدادات أثناء تشغيل البرنامج ، فما الطريقة المثلى لإعادة تحميل أو تحديث TempVars دون الحاجة لإعادة تشغيل البرنامج ؟ 🌟 كل الشكر والتقدير لكم معلمينا وأساتذتنا الأفاضل .

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