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

تفضل أخى مطلوب معادلة ناجح بحكم القانون.xls

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

بسم الله الرحمن الرحيم هذا برنامج لعمل المرتبات للمعلمين والعمال والاداريين نتيجة مجهود شهور وتم تجريب البرنامج والعمل عليه على مستوى ادارة الشهداء التعليمية بالمنوفية يتم ادخال بيانات المعليمن والعمال المتعاقدين فى قاعدة بيانات ثم بالذهاب الى كشف رقم 1 مثلا يتم فقد كتابة رقم الموظف فى خانة التوقيع بالاستلام وسيتم عمل مرتبه تلاقائيا وكذلك الادرايين واى سؤال أن تحت امركم اشكر الاستاذ محمد الدسوقى لانه ساعدنى فى وضع كود لاخفاء الاعمدة الغير مطلوبة والتى لاتحتوى على قيم لتصغير الكشف http://www.mediafire.com/file/x514ut1gz24mdv3/المرتبات+أخر+تحديث.xlsm والشرح من هنا اتمنى البرنامج يعجبكم

السلام عليكم دالة kh_IFERROR دالة بديلة للدالة IFERROR للاستخدام مع اوفيس 2003 Function kh_IFERROR(Value, Value_if_error) If IsError(Value) Then kh_IFERROR = Value_if_error Else kh_IFERROR = Value End If End Function تحياتي

وعليكم السلام أخى يمكنك أن تجرب الأن بارك الله فيك وجزاك خيرا فورمة جديد حتى 40 عمود.xlsm

هذا يعطيك اخر تاريخ شراء Expr1: DMax("buy_date";"stock_query";"buy_price=buy_price")

فكرة حلو استاذ ابو اخليل زالرساله بتكون بهذا الشكل Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT Count(*) as expr1 FROM (SELECT DISTINCT tblcomIn.Datem FROM tblcomIn)as expr2 ") MsgBox " ( عدد ايام العمل الفعلية " & " ( " & rs!expr1 & " ", vbOKOnly + vbInformation, " تنبيه "

تسلم . تصل بالسلامة ..

اوصل البيت وابشر تحياتي

الذي عندي بعضا مما عندكم ، جزاك الله خير الثلاث الاول واضحة ومفهومة . نريد الرابعة لا حرمك الله الأجر

1. تضع جملة الاستعلام مصدر لمربع قائمة وتاخذه من مربع القائمة مع عمل ريكويري للقائمة عند الحاجة 2. تحفظ الاستعلام و تستخدم دالة لوك اب 3. تحفظ الاستعلام التجميعي كما بمشاركتك وتستخدم دي كاونت 4. دالة بالكود هذا واعتقد انك ستعود الينا بفكرة جميلة تحياتي

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

لم افهم المطلوب تمام يا غالي هل تقصد كيف تحصل على الرقم ؟ حدد المكان ؟

صحيح .. لا شك ان جملة سلكت افضل واسرع السؤال الآن استاذنا كيف اعلن عن هذا الرقم الناتج ؟

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

السلام عليكم و رحمة الله وبركاته بعد تحليل الموضوع عدة ايام وجدة فكرة ان شاء الله سوف اوافيك به اليوم hemnn.xls

ضع هذا الكود تحت امر معاينة مع تغيير ما يلزم Dim InviceFiltR As String InviceFiltR = "[Issuance ID] ='" & Me.[Issuance ID] & "'" DoCmd.OpenReport "YrRep", acPreview, , InviceFiltR ولا حاجة للفلتر في الاستعلام

السلام عليكم أخي محمد إطلع على هذه المشاركة: و هذه أيضا:

تفضل أخى تم ضبط الأكواد والتعديل لكى يناسبك فورمة جديد.xlsm

تفضل A2.rar

تم اختصار الكود رجاء مراجعة تجربته مع العلم أن الكود يقوم باختبار وجود الملف ضمن مجموعة المصنفات المفتوحة في إكسل وليس له علاقة بموضوع إغلاق أو فتح الملف ولا تنسونا من صالح دعائكم

ممكن تجرب هذا برنامج لإدارة المشتريات والمبيعات والمخازن.xls وذلك برنامج أخر أتمنى من الله أن تجد فيه ما تحتاجه اسم المستخدم : المدير كلمة السر : 123 بارك الله فيك وجزيت خيرا SIS 3.152.rar

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

انظر للملف بشكله نهائي كما قلت سابقا ليس بحل مثالي و لكنه يوصلك للنتائج المرجوة في انتظار حلول امثل من الاعضاء النتيجة ستكون مثلا في طالبين على شكل 3/1((1 3/1((2 و تعني 3 : ان الطالبان ترتيبهما حسب معدلهما هو الثالث 1 : ان الطالب حسب سنه هو الاول و اذاكان متساويان في السن سنجد 1 و 1 و بالتالي نذهب لقراءة الرقم وراء القوس و هو الذي يعبر عن الترتيب الابجدي... اتمنى انني وفقت في المساعدة بالتوفيق الملف النهائي.rar