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

العفو عزيزي واذا اردت استخدام استعلام واحد مباشرة من الجدول فاستبدل جملة ال ـSQl للاستعلام TResult بهذه الجملة: SELECT tt1.MidNum, tt1.empid, tt1.emprep FROM tt1 GROUP BY tt1.MidNum, tt1.empid, tt1.emprep HAVING ((tt1.MidNum) In (Select TOP 3 MidNum FROM [tt1] as TagRs WHERE TagRs.[empid] = [tt1].[EmpID] ORDER BY MidNum Desc )) ORDER BY tt1.empid;

وعليكم السلام ورحمة الله وبركاته تفضل عزيزي test00w.rar

اخي الكريم ابو زاهر لي ملاحظة صغيرة قد تنفعك مستقبلاً .. ارجو ان تتقبلها مني بصدرٍ رحب .. سؤالك منذ بداية الموضوع كان منصب على نقطة اخرى وليس بخصوص جعل عملية الحفظ التي تريدها ان تتم بعد استقبال الكثير من الاصناف وهذا ماسبب في الاكواد وطريقة تنفيذها وبذلك صعبت المهمة مع انه كان من الافضل لو انك طرحت مافي جعبتك منذ البداية حتى لاتضطر الى الانتظار او قد لا تحصل على اجابة نهائياً. على العموم ارجو تجربة المرفق التالي الجرد3.mdb

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

برنامج محاسبي يصلح للشركات الصغيره و المتوسطه لا يحتاج البرنامج الي خبير حسابات يسهل التعامل مع البرنام الاصدار الاول البرنامج باللغه العربيه برنامج محاسبي مجاني مصصم بالاكسيس تسجيل قيود اليوميه بكل سهوله واعداد دفتر الاستاذ اعداد ميزان المراجعه اعداد قيود التسويه اعداد قائمه الدخل و الميزانيه العموميه اعداد قائمه التدفقات النقديه اعداد كافه التقارير المحاسبيه يمكن التعديل علي البرنامج و تطويره http://activeterium.com/BhBv http://activeterium.com/BhBv

السلام عليكم اعضاء المنتدى الكرام اولا لماذا الكومبو لايغير الشيلد فى فورم 1 . ثانيا ازاى اعمل كشف حساب لكل عميل . Database141.rar

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

اعتقد ان المرفق الاخير يلبي طلبك اخي الفاضل فهو يقوم بتخزين الاصناف التي تدخلها من نموذج frmEdrajSenf_ajrd في جدول temp طبعا لابد ان تضغط على زر رجوع بعد ادراج كل صنف لكي يخزنه في الجدول temp (بامكانك جعل عملية التخزين في اي حدث اخر تريده لكني فضلت ان اضعه في زر امر رجوع) .. هنا النقطة المهمة وهي وبعد ادراج عدد من الاصناف يأتي دور زر امر حفظ فعند الضغط عليه فانه سوف ينظر الى كل صنف قمت بتخزينه في جدول temp ويرى اذا كان موجود في جدول tfsil_jard فسيقوم بزيادة كميته فقط بدون تكرار اما اذا كان غير موجود فسيقوم باضافته هذا ماتم عمله في المرفق الجرد 3

see this file salim_formula.xlsx

اخي الكؤيم راجع هذا

قد يكون اختلاف اصدارات الاوفيس هي المشكلة

اتفضل اخى تم تغير النموذج كله لان به بعض الاخطاء Database141.rar

Database141.rar

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

من باب تصحيح المطلوب سالفا والشكر موصول لأستاذتنا الوزير Database1.rar

تفضل أخي sandanet tb 2003.mdb

تفضل جرب المرفق التالي الغاء الحفظ2.accdb

استاذي الفاضل قد تجد نفس الفكرة في هذا الموضوع https://www.officena.net/ib/topic/82619-مساعدة-لعمل-استعلام-يبحث-في-آخر-سجلين-في-الجدول/ تحياتي

جرب هذا الكود Option Explicit Sub hid_rows() ' اختر هنا اي ورقة تريد '===================== Dim my_sh As Worksheet: Set my_sh = Sheets("العاملين") 'Dim my_sh As Worksheet: Set my_sh = ActiveSheet '===================== Dim My_Rg As Range Dim lr% lr = my_sh.Cells(Rows.Count, 1).End(3).Row Set My_Rg = my_sh.Range("A1:A" & lr) My_Rg.EntireRow.Hidden = False My_Rg.SpecialCells(4).EntireRow.Hidden = True End Sub

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

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

صباح الخير ....... فيديو جديد https://youtu.be/pteO5hkvTfg

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

أحد الشروط التي التزم بها دائما ، هي كتابة اسم متغير مفهوم وله معنى ، مثلا: File_Name او How_Many ، بحيث بعد مدة لما أرجع لتصحيح الكود ، افهم ما هو عمل المتغير. والمحترفين يذهبون إلى ابعد من هذا ، فبالاضافة إلى استعمالهم مسمى مفهوم المعنى ، فإنهم يسبقون الاسم بحروف تدل على ان المتغير رقم أو كلمات ، هكذا: للارقام: intRows او nColumns ، وللكلمات: strName. واستغرب من بعض المتغيرات المستعمله في كود معقد مثل: a او b !! جعفر

السلام عليكم ورحمة الله أخي الكريم، المشكل الذي ذكرته ليس في الأوفيس وإنما في ملف Registry الخاص بالويندوز... وإن شاء الله حل هذه المشكلة يكون بتنفيذ الأداة في الملف المرفق وهي تقوم بتصحيح الخلل في ملف Registry تلقائيا والمتعلق بخصائص HTM/HTML... أرجو أن تفيدك هذه الأداة... أخوك بن علية html_association_fix.zip

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar