كل الانشطه

وعليكم السلام ورحمة الله وبركاته اليك الكود المتاسب لطلبك 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 دون الحاجة لإعادة تشغيل البرنامج ؟ 🌟 كل الشكر والتقدير لكم معلمينا وأساتذتنا الأفاضل .

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

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

اذا فيه صعوبة ممكن نقلل الشروط

هههههههههههههههه ما شاء الله فى كل مره بخسر ((فعلا اللعبه وقفت معايا لما سجلت اسمي انجليزي لكن لما كتبته عربي اشتغل عادي ^_^)) يا عم طلع التركيز بتاعي 0 ههههههههههههه

السلام عليكم ورحمه الله وبركاته شاهد الموضوع ادناه لعله يكون المطلوب تجميع و دمج عده ملفات عمل اكسيل في ملف عمل واحد - منتدى الاكسيل Excel - أوفيسنا

في برنامج الصور ، وبسبب شح المعلومات ، كنت اشوف نجوم السماء في كل وقت !! كل شوي ويتوقف البرنامج ، او النتائج ما تكون صحيحة ، او ... فكان اعتمادي الكبير على نافذة immediate window لقراءة القيم ، فكان مهم ان تبقى القيم عند توقف البرنامج. نعم هي الطريقة المتعارف عليها (وعادة هي سجل واحد بعدة حقول) ، والتي ذكرها اخوي موسى كذلك بالتفصيل وبالدوال ، وانا استعمل هذه الطريقة في برامجي كذلك ، ولكني استدعي بيانات جميع الحقول مرة واحدة (دائما احاول ان اقلل من زيارات الجدول قدر الامكان ، وجعل الجدول جاهز للمستخدمين) ، فانادي القيم هكذا: dim tbl_values as string, x() as string tbl_values = dLookup("Aspect_Ratio_Width & '|' & Aspect_Ratio_Height & '|' & Lock_Aspect_Ratio & '|' & Save_On_Exit_Sides & '|' & IrfanView_Path & '|' & Employees_Pic_Folder & '|' & Others_Pic_Folder & '|' & Big_Pic_Folder & '|' & tmp_Pic_Folder & '|' & Pictures_BackUp_Folder & '|' & Left_Position & '|' & Top_Position & '|' & Save_On_Exit_Position & '|' & Percent_Smaller_Picture & '|' & EOS_or_Webcam & '|' & How_Many_EOS", "tbl_Settings") x = Split(tbl_values, "|") 'x(0)*15 Aspect_Ratio_Width 'x(1)*15 Aspect_Ratio_Height 'x(2) Lock_Aspect_Ratio 'x(3) Save_On_Exit_Sides 'x(4) IrfanView_Path 'x(5) Employees_Pic_Folder 'x(6) Others_Pic_Folder 'x(7) Big_Pic_Folder 'x(8) tmp_Pic_Folder 'x(9) Pictures_BackUp_Folder 'x(10) Left_Position 'x(11) Top_Position 'x(12) Save_On_Exit_Position 'x(13) Percent_Smaller_Picture 'x(14) EOS_or_Webcam 'x(15) How_Many_EOS 'Debug.Print x(11) . ولكن ومع استعمال الجدول ذو السجلات الكثيرة ، فعندنا 3 طرق: 1. استعمال الدوال العادية ، وتكون هناك دالة خاصة لكل سجل (لأننا لا نعرف رقم السجل وانما قيمة في حقل) ، 2. استعمال Recordset ، 3. والطريقة الاخيرة هي TempVars. نعم لكل طريقة ميزة وعيوب ، وبعد ان القيت اقلامي ، اخترت الطريقة الثالثة 🙂

جزاك الله خيرا علي المجهود الرائع

السلام عليكم ورحمه الله وبركاته اتفضل لعله المطلوب Book1.xlsm

السلام عليكم ورحمه الله وبركاته ممكن تستخدم الكود التالي عند ظهور الاخطاء الخاصه من 32 الي 64 Private Declare Function استبدلها الي Private Declare PtrSafe Function ----------------------------------------------------------------- Private Declare استبدلها الي Private Declare PtrSafe

. 1. هي عادة احاول التمسك بها ، مثل عند الانتهاء من عمل Recordset ، فلا يوجد داعي لإستعمال set rst=Nothing ، ولكنها عادة جيدة خصوصا لما يكون عندك مجموعة من Recordsets 🙂 2.1. الحد الاقصى لـ TempVars هو 255 متغير فقط ، 2.2. هذه الطريقة استعملها فقط لجدول اعدادات البرنامج ، ولا اعتقد انها ستتعدى 30-40 معلومة ، وكما قلت سابقا:

الله الله على الفكر الإبداعي الجميل طبعا أنا خبرتي في مجال الألعاب محدودة .. لذلك كنت أفكر لو كانت اللعبة لها مراحل كيف شكل كل مرحلة بيكون ؟!! لكن صاحب الخبرة لما يتكلم ، علين أن ننصت بإمعان ✌ طبعا المهندس العزيز @Foksh قدم لي نسخة مطورة طبق فيها الأفكار اللي طرحها جزاه الله عنا كل خير 😊🌹🌷 .. وسيتم طرحها حالما تجهز .. 👍 وأنا سعيد جدا أن اللعبة لاقت استحسانكم .. ولله الحمد والفضل والشكر والمنّة . 🤲🌷 والشكر موصول لعمي العزيز @jjafferr 😊🌹

صحيح .. ومسح الذاكرة ما يحدث عادة .. بعض البيانات التي تحملها المتغيرات يجب ان تبقى طيلة فتح البرنامج .. وغالبا يكون وقت التحميل عند فتح البرنامج .. مثل المستخدم ورقمه وغير ذلك من البيانات انا استخدم في عملي الجدول والدوال ( جدول محلي يخص المستخدم ) تثبت القيم في الجدول عند فتح البرنامج .. ومهما حدث من اخطاء ؛ القيمة ستكون موجودة عند استدعاء الدالة .. مع امكانية التحديث لبعض القيم عند الحاجة خلال عمل البرنامج هذا بيت القصيد

عندي سؤال خاطف - ليش تحذف المتغير قبل تعيين قيمة جديدة له ؟ وسؤال آخر ؟ - لو خزنا آلاف السجلات في TempVars بيكون عندنا عدد كبير منها ومساحة لا بأس بها في الذاكرة .. ألن يؤثر هذا على الأداء ؟ 🙂

معلومة قيمة ، شكرا جزيلا 🙂 احنا كل اللي نعرفة عن الشبكة هو ، عندنا DNS وعندنا IP (لما ما يشتغل DNS) للوصول لمجلد المشاركة على السيرفر في الشبكة ، وكله تمام 🙂

السلام عليكم ورحمة الله وبركاته جرب التعديل التالى حسب طلبكم الاخير وفقكم الله طريقة اخرى للبحث معدلة5.xlsb

تفضل أخي الكريم توحيد البحث في شيت واحد v5 .xlsb

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

أحسنت الرد أحي الكريم الأستاذ / @محمد هشام.